Example: MAP output

The following example shows output from the MAP option. The numbers used in the explanation below correspond to the numbers that annotate the output.

Example 1

Start of changeThe following example shows the MAP output when SOURCE(DEC) is in effect.End of change


 Data Division Map

(1)
Data Definition Attribute codes (rightmost column) have the following meanings:
    D = Object of OCCURS DEPENDING    G = GLOBAL                             S = Spanned file
    E = EXTERNAL                      O = Has OCCURS clause                  U = Undefined format file
    F = Fixed-length file             OG= Group has own length definition    V = Variable-length file
    FB= Fixed-length blocked file     R = REDEFINES                          VB= Variable-length blocked file
    X = Unallocated
(2)      (3)   (4)                                        (5)       (6)           (7)               (8)            (9)
Source   Hierarchy and                                    Base      Displacement  Asmblr Data                      Data Def
LineID   Data Name                                        Locator     Structure   Definition        Data Type      Attributes
     4  PROGRAM-ID IGYTCARA----------------------------------------------------------------------------------------------------*
    58   FD COMMUTER-FILE . . . . . . . . . . . . . . . . BLF=00001                                 VSAM           F
    60   1  COMMUTER-RECORD . . . . . . . . . . . . . . . BLF=00001               DS 0CL80          Group
    61     2  COMMUTER-KEY. . . . . . . . . . . . . . . . BLF=00001   000000000   DS 16C            Display
    62     2  FILLER. . . . . . . . . . . . . . . . . . . BLF=00001   000000016   DS 64C            Display
    64   FD COMMUTER-FILE-MST . . . . . . . . . . . . . . BLF=00002                                 VSAM           F
    66   1  COMMUTER-RECORD-MST . . . . . . . . . . . . . BLF=00002               DS 0CL80          Group
    67     2  COMMUTER-KEY-MST. . . . . . . . . . . . . . BLF=00002   000000000   DS 16C            Display
    68     2  FILLER. . . . . . . . . . . . . . . . . . . BLF=00002   000000016   DS 64C            Display
   140   1  STATUS-AREA . . . . . . . . . . . . . . . . .                         DS 0CL8           Group
   141     2  COMMUTER-FILE-STATUS. . . . . . . . . . . .             000000000   DS 2C             Display
   142     88 I-O-OKAY. . . . . . . . . . . . . . . . . .
   143     2  COMMUTER-VSAM-STATUS. . . . . . . . . . . .             000000002   DS 0CL6           Group
   144       3  VSAM-R15-RETURN-CODE. . . . . . . . . . .             000000002   DS 2C             Binary
   145       3  VSAM-FUNCTION-CODE. . . . . . . . . . . .             000000004   DS 2C             Binary
   146       3  VSAM-FEEDBACK-CODE. . . . . . . . . . . .             000000006   DS 2C             Binary
   148   77 UPDATE-FILE-STATUS. . . . . . . . . . . . . .                         DS 2C             Display
   149   77 LOCCODE-FILE-STATUS . . . . . . . . . . . . .                         DS 2C             Display
   150   77 UPDPRINT-FILE-STATUS. . . . . . . . . . . . .                         DS 2C             Display
   152   1  FLAGS . . . . . . . . . . . . . . . . . . . .                         DS 0CL3           Group
   153     2  TRANSACTION-EOF-FLAG. . . . . . . . . . . .             000000000   DS 1C             Display
   154     88 TRANSACTION-EOF . . . . . . . . . . . . . .
   155     2  LOCATION-EOF-FLAG . . . . . . . . . . . . .             000000001   DS 1C             Display
   156     88 LOCATION-EOF. . . . . . . . . . . . . . . .
   157     2  TRANSACTION-MATCH-FLAG. . . . . . . . . . .             000000002   DS 1C             Display
   158     88 TRANSACTION-MATCH . . . . . . . . . . . . .
   159     88 TRANSACTION-MATCH-OFF . . . . . . . . . . .
   216   1  WS-COMMUTER-RECORD. . . . . . . . . . . . . . BLX=00001               DS 0CL81          Group          E
   217     2  WS-COMMUTER-KEY . . . . . . . . . . . . . . BLX=00001   000000000   DS 0CL16          Group          E
   218       3  WS-COMMUTER-GENERIC-KEY . . . . . . . . . BLX=00001   000000000   DS 0CL5           Group          E
   219         4  COMMUTER-SHIFT. . . . . . . . . . . . . BLX=00001   000000000   DS 1C             Display        E
   220         4  COMMUTER-HOME-CODE. . . . . . . . . . . BLX=00001   000000001   DS 2C             Display        E
   221         4  COMMUTER-WORK-CODE. . . . . . . . . . . BLX=00001   000000003   DS 2C             Display        E
   222       3  COMMUTER-NAME . . . . . . . . . . . . . . BLX=00001   000000005   DS 9C             Display        E
   223       3  COMMUTER-INITIALS . . . . . . . . . . . . BLX=00001   000000014   DS 2C             Display        E
   224     2  COMMUTER-ADDRESS. . . . . . . . . . . . . . BLX=00001   000000016   DS 18C            Display        E
   225     2  COMMUTER-CITY . . . . . . . . . . . . . . . BLX=00001   000000034   DS 13C            Display        E
   226     2  COMMUTER-STATE. . . . . . . . . . . . . . . BLX=00001   000000047   DS 2C             Display        E
   227     2  COMMUTER-ZIPCODE. . . . . . . . . . . . . . BLX=00001   000000049   DS 3P             Packed-Dec     E
   396   1  DETAIL1-LINE. . . . . . . . . . . . . . . . . BLL=00001               DS 0CL121         Group
   397     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000000   DS 2C             Display
   398     2  PRINT-TRANSACTION-CODE. . . . . . . . . . . BLL=00001   000000002   DS 1C             Display
   399     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000003   DS 4C             Display
   400     2  PRINT-RECORD-TYPE . . . . . . . . . . . . . BLL=00001   000000007   DS 3C             Display
   401     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000010   DS 3C             Display
   402     2  PRINT-SHIFT . . . . . . . . . . . . . . . . BLL=00001   000000013   DS 1C             Display
   403     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000014   DS 1C             Display
   404     2  PRINT-HOME-CODE . . . . . . . . . . . . . . BLL=00001   000000015   DS 2C             Display
   405     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000017   DS 1C             Display
   406     2  PRINT-WORK-CODE . . . . . . . . . . . . . . BLL=00001   000000018   DS 2C             Display
   407     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00001   000000020   DS 2C             Display
   408     2  PRINT-NAME. . . . . . . . . . . . . . . . . BLL=00001   000000022   DS 9C             Display
   454   1  DETAILX-LINE. . . . . . . . . . . . . . . . . BLL=XXXXX               DS 0CL121         Group          X
   455     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 36C            Display        X
   456     2  PRINT-CITY. . . . . . . . . . . . . . . . . BLL=XXXXX               DS 13C            Display        X
   457     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 3C             Display        X
   458     2  PRINT-STATE . . . . . . . . . . . . . . . . BLL=XXXXX               DS 2C             Display        X
   459     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 1C             Display        X
   460     2  PRINT-ZIPCODE . . . . . . . . . . . . . . . BLL=XXXXX               DS 5C             Display        X
   461     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 1C             Display        X
   462     2  PRINT-WORK-PHONE. . . . . . . . . . . . . . BLL=XXXXX               DS 14C            Display        X
   463     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 1C             Display        X
   464     2  PRINT-WORK-JUNCTION . . . . . . . . . . . . BLL=XXXXX               DS 25C            Display        X
   465     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=XXXXX               DS 20C            Display        X (10)
   467   1  DETAIL2-LINE. . . . . . . . . . . . . . . . . BLL=00002               DS 0CL121         Group
   468     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000000   DS 36C            Display
   469     2  PRINT-CITY. . . . . . . . . . . . . . . . . BLL=00002   000000036   DS 13C            Display
   470     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000049   DS 3C             Display
   471     2  PRINT-STATE . . . . . . . . . . . . . . . . BLL=00002   000000052   DS 2C             Display
   472     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000054   DS 1C             Display
   473     2  PRINT-ZIPCODE . . . . . . . . . . . . . . . BLL=00002   000000055   DS 5C             Display
   474     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000060   DS 1C             Display
   475     2  PRINT-WORK-PHONE. . . . . . . . . . . . . . BLL=00002   000000061   DS 14C            Display
   476     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000075   DS 1C             Display
   477     2  PRINT-WORK-JUNCTION . . . . . . . . . . . . BLL=00002   000000076   DS 25C            Display
   478     2  FILLER. . . . . . . . . . . . . . . . . . . BLL=00002   000000101   DS 20C            Display

Example 2

Start of changeThe following example shows the MAP output when SOURCE(HEX) is in effect.End of change

Start of change

 Data Division Map

(1)
Data Definition Attribute codes (rightmost column) have the following meanings:
    D = Object of OCCURS DEPENDING    G = GLOBAL                             S = Spanned file
    E = EXTERNAL                      O = Has OCCURS clause                  U = Undefined format file
    F = Fixed-length file             OG= Group has own length definition    V = Variable-length file
    FB= Fixed-length blocked file     R = REDEFINES                          VB= Variable-length blocked file
    X = Unallocated
(2)      (3)   (4)                                        (5)       (6)           (7)               (8)            (9)
Source   Hierarchy and                                    Base      Displacement  Asmblr Data                      Data Def
LineID   Data Name                                        Locator     Structure   Definition        Data Type      Attributes
     4   PROGRAM-ID MSGXIT----------------------------------------------------------------------------------------------------*                                                                                                                       
     F   1  EC. . . . . . . . . . . . . . . . . . . . . .             000000000    DS 2P             Packed-Dec          
    10   1  JUNK. . . . . . . . . . . . . . . . . . . . .             000000000    DS 2C             Display               
End of change
(1)
Explanations of the data definition attribute codes.
(2)
Source line number where the data item was defined .
(3)
Level definition or number. The compiler generates this number in the following way:
  • First level of any hierarchy is always 01. Increase 1 for each level (any item you coded as level 02 through 49).
  • Level-numbers 66, 77, and 88, and the indicators FD and SD, are not changed.
(4)
Data-name that is used in the source module in source order.
(5)
Base locator used for this data item.
(6)
Hexadecimal displacement from the beginning of the containing structure if the MAP(HEX) option is in effect. If the MAP(DEC) option is in effect, decimal displacement is shown.
(7)
Pseudoassembler code showing how the data is defined. When a structure contains variable-length fields, the maximum length of the structure is shown.
(8)
Data type and usage.
(9)
Data definition attribute codes. The definitions are explained at the top of the DATA DIVISION map.
(10)
DETAILX-LINE was not referenced in the PROCEDURE DIVISION. Because STGOPT was specified, DETAILX-LINE was deleted, resulting in the base locator being set to XXXXX.