*DECK DCWRKFOUT 
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. WRKFOUT. 
*CALL COPYRIGHT 
      *    THIS PROGRAM PERFORMS ALL IO ON WRKFILE
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT WORK-FILE ASSIGN TO WRKFILE 
           USE "RT=Z".
       DATA DIVISION. 
       FILE SECTION.
       FD  WORK-FILE
           LABEL RECORDS ARE OMITTED. 
       01  FD-OUT-REC.
           02  FILLER                      PICTURE X(596).
       COMMON-STORAGE SECTION.
       77  RETURN-CODE                     PICTURE XX.
*CALL CVTBL 
       01  PRINT-CTL-TBL. 
*CALL WKPRINT 
       01  WRKF-FUNCTION-CODE              PICTURE X. 
*CALL WRKFHDR 
  
       PROCEDURE DIVISION.
       BEGIN-PARA.
           IF WRKF-FUNCTION-CODE IS EQUAL TO "O"
               OPEN OUTPUT WORK-FILE
               GO TO END-PARA 
           END-IF.
           IF WRKF-FUNCTION-CODE IS EQUAL TO "C"
               CLOSE WORK-FILE
               GO TO END-PARA 
           END-IF.
           IF WRKF-FUNCTION-CODE IS NOT EQUAL TO "W"
               GO TO END-PARA 
           END-IF.
           MOVE OUT-REC TO FD-OUT-REC.
           WRITE FD-OUT-REC.
       END-PARA.
           EXIT PROGRAM.
