In the example in Figure 1, program COBDUMP2 calls the Language Environment dump service CEE3DMP.
CBL TEST(STMT,SYM),RENT
IDENTIFICATION DIVISION.
PROGRAM-ID. COBDUMP2.
AUTHOR. USER NAME
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL IOFSS1 ASSIGN AS-ESDS1DD
ORGANIZATION SEQUENTIAL ACCESS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD IOFSS1 GLOBAL.
1 IOFSS1R PIC X(40).
WORKING-STORAGE SECTION.
01 TEMP4.
05 A-1 OCCURS 2 TIMES.
10 A-2 OCCURS 2 TIMES.
15 A-3V PIC X(3).
15 A-6 PIC X(3).
77 DMPTITLE PIC X(80).
77 OPTIONS PIC X(255).
77 FC PIC X(12).
LINKAGE SECTION.
01 SALARY-RECORD.
02 NAME PIC X(10).
02 DEPT PIC 9(4).
02 SALARY PIC 9(6).
PROCEDURE DIVISION USING SALARY-RECORD.
START-SEC.
DISPLAY "STARTING TEST COBDUMP2"
MOVE "COBOL DUMP" TO DMPTITLE.
MOVE "XXX" TO A-6(1, 1).
MOVE "YYY" TO A-6(1, 2).
MOVE "ZZZ" TO A-6(2, 1).
MOVE " BLOCKS STORAGE PAGE(55) FILES" TO OPTIONS.
CALL "CEE3DMP" USING DMPTITLE, OPTIONS, FC.
DISPLAY "END OF TEST COBDUMP2"
GOBACK.
END PROGRAM COBDUMP2.