IDENTIFICATION DIVISION.
       PROGRAM-ID.     FS1.
       ENVIRONMENT     DIVISION.
       INPUT-OUTPUT    SECTION.
       FILE-CONTROL.
           SELECT DD821E       ASSIGN  UT-S-D821E 
           FILE STATUS IS Z-FS.

       DATA DIVISION.
       FILE SECTION.
       FD  DD821E
           LABEL RECORD STANDARD
           RECORDING F
           BLOCK  0   RECORDS.
       01  D821E                 PIC X(134).

      *> =================================================================
       WORKING-STORAGE SECTION.
       01  C-ZAEHLER                             PACKED-DECIMAL.
           05 C-ZAEHL-W            PIC S9(9)     VALUE +0.

       01  Z-ZWISCHENBEREICHE.
           05 Z-FS                 PIC XX.
           
       PROCEDURE DIVISION.
       Anfang Section.
          move "Cobol-Sample for FILE STATUS" to d821e
          display d821e
          move zero to z-fs
          
          open output dd821e
          display "File Status after OPEN for OUTPUT=" z-fs
          goback.
       
       END PROGRAM   FS1.