COBOL program that calls another COBOL program

In Figure 1, program COBDUMP1 calls COBDUMP2, which in turn calls the Language Environment dump service CEE3DMP.

Figure 1. COBOL program COBDUMP1 calling COBDUMP2

  CBL  TEST(STMT,SYM),RENT
       IDENTIFICATION DIVISION.
         PROGRAM-ID.   COBDUMP1.
         AUTHOR. USER NAME

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.
       01 SOME-WORKINGSTG.
          05 SUB-LEVEL PIC X(80).

       01   SALARY-RECORDA.
        02    NAMEA   PIC X(10).
        02    DEPTA   PIC 9(4).
        02    SALARYA PIC 9(6).

       PROCEDURE DIVISION.
       START-SEC.
           DISPLAY "STARTING TEST COBDUMP1".
           MOVE "THIS IS IN WORKING STORAGE" TO SUB-LEVEL.
           CALL "COBDUMP2" USING SALARY-RECORDA.
           DISPLAY "END OF TEST COBDUMP1"
           STOP RUN.
       END PROGRAM COBDUMP1.