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.
- (1) - Base locator used for this data item
- (2) - Hexadecimal displacement from the beginning of the base locator value
- (3) - Hexadecimal displacement from the beginning of the containing structure
- (4) - Pseudoassembler code showing how the data is defined
© Copyright IBM Corp.
