*DECK DCCVTDRVR 
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. CVTDRVR. 
*CALL COPYRIGHT 
      *    THIS PROGRAM IS THE DRIVER WHICH CALLS THE SEGMENTS
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION. 
       SOURCE-COMPUTER. CYBER.
       OBJECT-COMPUTER. CYBER.
*CALL OTHSN 
       DATA DIVISION. 
*CALL CVTCOM
       01  PRINT-AREA.
*CALL WKPRINT 
*CALL WRKFHDR 
*CALL PNCHCOM 
       PROCEDURE DIVISION.
       BEGIN-PARA.
           CALL "CVTHDR". 
           IF RETURN-CODE IS NOT EQUAL TO ZERO
               PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT
               STOP RUN 
           END-IF.
           MOVE "O" TO WRKF-FUNCTION-CODE.
           CALL "WRKFIO". 
           MOVE "R" TO WRKF-FUNCTION-CODE.
           CALL "WRKFIO". 
           MOVE "C" TO WRKF-FUNCTION-CODE.
           CALL "WRKFIO". 
           IF END-SW IS EQUAL TO SPACE
               IF OUT-LANG-CODE IS EQUAL TO "S" 
                   CALL "CVT0320" 
                   CALL "CVT2226" 
               ELSE 
                   CALL "CVTGEN"
               END-IF 
           END-IF.
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT
           STOP RUN.
*CALL RETCODE 
