In Figure 1, program COBDUMP1 calls COBDUMP2, which in turn calls the Language Environment dump service CEE3DMP.
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.