0 1 1 2 3 4 2 5 6 3 A C B F E D 7 4 8 5 ENTRY X CALL Y ENTRY Y ENTRY X CALL Y ENTRY Y CALL Y1 CALL Y2 ENTRY Y2 ENTRY Y1 9 6 7 ENTRY X CALL Y ENTRY Y ENTRY X CALL Y ENTRY Y2 ENTRY Y1 10 8 PROGRAM-ID.MAIN WORKING-STORAGE SECTION. 01 01 PROCEDURE DIVISION. 1 CALL ’SUB’ U S I N G 2 5 STOP RUN. MAIN PROGRAM-ID.SUB. LINKAGE SECTION 01 01 PROCEDURE DIVISION. USING 3 3 GO BACK SUB 11 … … 12 13 … 14 9 P U