Example: embedded map summary

  000002     Identification Division.
  000003
  000004     Program-id.    IGYTCARA.
    . . .
  000054     Data division.
  000055     File section.
  000056
  000058     FD  COMMUTER-FILE
  000059         record 80 characters.
    . . .                                                                        (1)       (2)     (3)
  000060       01 commuter-record.                                             BLF=00001           0CL80
  000061         05 commuter-key                 PIC x(16).                    BLF=00001,000000000 16C
  000062         05 filler                       PIC x(64).                    BLF=00001,000000016 64C
    . . .
  000105     Working-storage section.
  000106       01 Working-storage-for-IGYCARA    pic x.                                            1C
  000107
  000108       77 comp-code                      pic S9999 comp.                                   2C
  000109       77 ws-type                        pic x(3)   value spaces.                          3C
  000135       01 i-f-status-area.                                                                 0CL2
  000136         05 i-f-file-status              pic x(2).                               000000000 2C
  000137           88 i-o-successful             value zeroes.
  000138
  000139
  000140       01 status-area.                                                                     0CL8
  000141         05 commuter-file-status         pic x(2).                               000000000 2C
  000142           88 i-o-okay                   value zeroes.
  000143         05 commuter-vsam-status.                                                000000002 0CL6
  000144           10 vsam-r15-return-code       pic 9(2) comp.                          000000002 2C
  000145           10 vsam-function-code         pic 9(1) comp.                          000000004 2C
  000146           10 vsam-feedback-code         pic 9(3) comp.                          000000006 2C
  000147
  000148       77 update-file-status             pic xx.                                           2C
  000149       77 loccode-file-status            pic xx.                                           2C
  000150       77 updprint-file-status           pic xx.                                           2C
  000151
  000216       01 ws-commuter-record EXTERNAL.                                 BLX=00001           0CL81
  000217         05 ws-commuter-key.                                           BLX=00001,000000000 0CL16
  000218           10 ws-commuter-generic-key.                                 BLX=00001,000000000 0CL5
  000219             15 commuter-shift           pic x.                        BLX=00001,000000000 1C
  000220             15 commuter-home-code       pic xx.                       BLX=00001,000000001 2C
  000221             15 commuter-work-code       pic xx.                       BLX=00001,000000003 2C
  000222           10 commuter-name              pic x(9).                     BLX=00001,000000005 9C
  000223           10 commuter-initials          pic xx.                       BLX=00001,000000014 2C
  000224         05 commuter-address             pic x(18).                    BLX=00001,000000016 18C
  000225         05 commuter-city                pic x(13).                    BLX=00001,000000034 13C
  000226         05 commuter-state               pic xx.                       BLX=00001,000000047 2C
  000227         05 commuter-zipcode             pic 9(5) comp-3.              BLX=00001,000000049 3P
    . . .
  000395     Linkage Section.
  000396       01 detail1-line.                                                BLL=00001           0CL121
  000397         05 filler                       pic xx.                       BLL=00001,000000000 2C
  000398         05 print-transaction-code       pic x.                        BLL=00001,000000002 1C
  000399         05 filler                       pic x(4).                     BLL=00001,000000003 4C
  000400         05 print-record-type            pic x(3).                     BLL=00001,000000007 3C
  000401         05 filler                       pic xxx.                      BLL=00001,000000010 3C
  000402         05 print-shift                  pic x.                        BLL=00001,000000013 1C
  000403         05 filler                       pic x.                        BLL=00001,000000014 1C
  000404         05 print-home-code              pic xx.                       BLL=00001,000000015 2C
  000405         05 filler                       pic x.                        BLL=00001,000000017 1C
  000406         05 print-work-code              pic xx.                       BLL=00001,000000018 2C
  000407         05 filler                       pic xx.                       BLL=00001,000000020 2C
  000408         05 print-name                   pic x(9).                     BLL=00001,000000022 9C
  000409         05 filler                       pic xx.                       BLL=00001,000000031 2C
  000410         05 print-initials               pic xx.                       BLL=00001,000000033 2C
    . . .
  000487     procedure division.
  000488       000-do-main-logic.
  000489         display "PROGRAM IGYTCARA - Beginning".

(1)

Base locator used for this data item

(2)

Decimal displacement from the beginning of the containing structure. It indicates that the MAP(DEC) option is in effect. If you specified the MAP(HEX) option or MAP with no suboption, hexadecimal displacement is shown.

(3)

Pseudoassembler code showing how the data is defined