The following example shows an embedded map summary from specifying the MAP option. The summary appears in the right margin of the listing for lines in the DATA DIVISION that contain data declarations.
000002 Identification Division. 000003 000004 Program-id. IGYTCARA. . . . 000177 Data division. 000178 File section. 000179 000180 000181 FD COMMUTER-FILE 000182 record 80 characters. (1) (2) (3) (4) . . . 000222 01 print-record pic x(121). BLF=00004+000 121C . . . 000228 Working-storage section. 000229 01 Working-storage-for-IGYCARA pic x. BLW=00000+000 1C 000230 000231 77 comp-code pic S9999 comp. BLW=00000+008 2C 000232 77 ws-type pic x(3) value spaces. BLW=00000+010 3C 000233 000234 000235 01 i-f-status-area. BLW=00000+018 0CL2 000236 05 i-f-file-status pic x(2). BLW=00000+018,0000000 2C 000237 88 i-o-successful value zeroes. 000238 000239 000240 01 status-area. BLW=00000+020 0CL8 000241 05 commuter-file-status pic x(2). BLW=00000+020,0000000 2C 000242 88 i-o-okay value zeroes. 000243 05 commuter-vsam-status. BLW=00000+022,0000002 0CL6 000244 10 vsam-r15-return-code pic 9(2) comp. BLW=00000+022,0000002 2C 000245 10 vsam-function-code pic 9(1) comp. BLW=00000+024,0000004 2C 000246 10 vsam-feedback-code pic 9(3) comp. BLW=00000+026,0000006 2C 000247 000248 77 update-file-status pic xx. BLW=00000+028 2C 000249 77 loccode-file-status pic xx. BLW=00000+030 2C 000250 77 updprint-file-status pic xx. BLW=00000+038 2C 000251 000252 01 flags. BLW=00000+040 0CL3 000253 05 transaction-eof-flag pic x value space. BLW=00000+040,0000000 1C 000254 88 transaction-eof value "Y". 000255 05 location-eof-flag pic x value space. BLW=00000+041,0000001 1C 000256 88 location-eof value "Y". 000257 05 transaction-match-flag pic x. BLW=00000+042,0000002 1C . . . 000876 procedure division. 000877 000-do-main-logic. 000878 display "PROGRAM IGYTCARA - Beginning" 000879 perform 050-create-vsam-master-file.
related references
Symbols used in LIST and MAP output