*DECK DCWRKFIO
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. WRKFIO.
*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 TEMP1 
           USE "RT=Z".
       DATA DIVISION. 
       FILE SECTION.
       FD  WORK-FILE
           LABEL RECORDS ARE OMITTED. 
       01  FD-OUT-REC.
           02  FILLER                      PICTURE X(596).
*CALL CVTCOM
       01  PRINT-AREA.
*CALL WKPRINT 
*CALL WRKFHDR 
*CALL PNCHCOM 
  
       PROCEDURE DIVISION.
       BEGIN-PARA.
           IF WRKF-FUNCTION-CODE IS EQUAL TO "O"
               OPEN INPUT 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 "R"
               GO TO END-PARA 
           END-IF.
           MOVE SPACE TO END-SW.
           READ WORK-FILE AT END
               MOVE "E" TO END-SW.
           MOVE FD-OUT-REC TO OUT-REC.
       END-PARA.
           EXIT PROGRAM.
