Rational Developer for System z
Enterprise COBOL for z/OS, Version 4.1, Programming Guide


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.    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

related references  
Symbols used in LIST and MAP output


Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)