*DECK DCPNCHIO
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. PNCHIO.
*CALL COPYRIGHT 
      *    THIS PROGRAM PERFORMS ALL IO ON PNCHFIL
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT PUNCH-FILE ASSIGN TO PNCHFIL
               USE "RT=Z".
       DATA DIVISION. 
       FILE SECTION.
       FD  PUNCH-FILE 
           LABEL RECORDS ARE OMITTED. 
       01  FD-PUNCH-CARD. 
           02  FILLER                      PICTURE X(72). 
*CALL CVTCOM
       01  PRINT-AREA.
*CALL WKPRINT 
*CALL WRKFHDR 
*CALL PNCHCOM 
  
       PROCEDURE DIVISION.
       BEGIN-PARA.
           IF PNCH-FUNCTION-CODE IS EQUAL TO "O"
               OPEN OUTPUT PUNCH-FILE 
               GO TO END-PARA 
           END-IF.
           IF PNCH-FUNCTION-CODE IS EQUAL TO "C"
               CLOSE PUNCH-FILE 
               GO TO END-PARA 
           END-IF.
           IF PNCH-FUNCTION-CODE IS NOT EQUAL TO "W"
               GO TO END-PARA 
           END-IF.
           MOVE PUNCH-CARD TO FD-PUNCH-CARD.
           WRITE FD-PUNCH-CARD. 
       END-PARA.
           EXIT PROGRAM.
