Example: embedded map summary
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. EMBMAP. |
. . . |
000176 Data division. |
000177 File section. |
000178 |
000179 |
000180 FD COMMUTER-FILE |
000181 record 80 characters. | (1) (2)
000182 01 commuter-record. | 80
000183 05 commuter-key PIC x(16). | 16(0000000)
000184 05 filler PIC x(64). | 64(0000016)
. . . |
000221 IA1620 01 print-record pic x(121). | 121
. . . |
000227 Working-storage section. |
000228 01 Working-storage-for-EMBMAP pic x. | 1
000229 |
000230 77 comp-code pic S9999 comp. | 2
000231 77 ws-type pic x(3) value spaces. | 3
000232 |
000233 |
000234 01 i-f-status-area. | 2
000235 05 i-f-file-status pic x(2). | 2(0000000)
000236 88 i-o-successful value zeroes. |IMP
000237 |
000238 |
000239 01 status-area. | 8
000240 05 commuter-file-status pic x(2). |(3) 2(0000000)
000241 88 i-o-okay value zeroes. |IMP
. . . |
000246 |
000247 77 update-file-status pic xx. | 2
000248 77 loccode-file-status pic xx. | 2
000249 77 updprint-file-status pic xx. | 2
. . . |
000877 procedure division. |
000878 000-do-main-logic. |
000879 display "PROGRAM EMBMAP - Beginning". |
000880 perform 050-create-stl-main-file. |931
. . . |
- (1)
- Decimal length of data item
- (2)
- Hexadecimal displacement from the beginning of the base locator value
- (3)
- Special definition
symbols:
- UND
- The user name is undefined.
- DUP
- The user name is defined more than once.
- IMP
- An implicitly defined name, such as special registers or figurative constants.
- IFN
- An intrinsic function reference.
- EXT
- An external reference.