*DECK DCCONDRVR 
       IDENTIFICATION DIVISION. 
       PROGRAM-ID. CONDRVR. 
*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. 
       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.
           CALL "CONEDT". 
           IF RETURN-CODE IS NOT EQUAL TO ZERO
               GO TO 9000-END 
           END-IF.
           IF CVTBL-MOD-REQUEST IS NOT EQUAL TO "9" 
               GO TO 9000-END.
           IF LANG-CODE IS EQUAL TO "C" 
               CALL "CONCBL"
               GO TO 9000-END 
           END-IF.
           IF LANG-CODE IS EQUAL TO "T" 
               CALL "CONTOT"
               GO TO 9000-END 
           END-IF.
           IF LANG-CODE IS NOT EQUAL TO "S" 
               GO TO 9000-END 
           END-IF.
           MOVE "O" TO WRKF-FUNCTION-CODE.
           CALL "WRKFOUT".
           MOVE "W" TO WRKF-FUNCTION-CODE.
           CALL "CONSCH". 
           CALL "CONSUB". 
           CALL "CONMDS". 
           CALL "CONFIL". 
           MOVE "C" TO WRKF-FUNCTION-CODE.
           CALL "WRKFOUT".
       9000-END.
           PERFORM RETURN-CODE-00 THRU RETURN-CODE-XIT
           STOP RUN.
*CALL RETCODE 
