Rational Developer for System z
COBOL for Windows, Version 7.5, Programming Guide


Image description: DATA DIVISION map

This image shows a sample compiler listing for the MAP option. The MAP option produces a DATA DIVISION map that shows file definitions, data definitions, attribute codes, length, and data type.

The following are the attribute codes and their meaning:

The following table presents three lines from the sample listing.

Table 124. Formatted DATA DIVISION map
Source LineID Hierarchy and Data Name Length (Displacement) Data Type Data Def Attributes
180 FD COMMUTER-FILE   File INDX
182 1 COMMUTER-RECORD 80 Group  
189 2 COMMUTER-KEY-MST 16(0000000) Display  

The complete sample listing follows. Numbers in parentheses correspond to explanations that follow the image in the main text. If you want to skip headings, search for 180 or COMMUTER-FILE. You can use your browser's back button to return to the main text at any time.

 Data Division Map
 (1)
 Data Definition Attribute codes (rightmost column) have the following meanings:
     D = Object of OCCURS DEPENDING    G = GLOBAL                             LSEQ= ORGANIZATION LINE SEQUENTIAL
     E = EXTERNAL                      O = Has OCCURS clause                  SEQ= ORGANIZATION SEQUENTIAL
     VLO=Variably Located Origin       OG= Group has own length definition    INDX= ORGANIZATION INDEXED
     VL= Variably Located              R = REDEFINES                          REL= ORGANIZATION RELATIVE

 (2)      (3) (4)                                            (5)      (6)         (7)           (8)
 Source   Hierarchy and                                                                        Data Def
 LineID   Data Name                                        Length(Displacement) Data Type      Attributes
      4  PROGRAM-ID IGYTCARA----------------------------------------------------------------------------------*
    180   FD COMMUTER-FILE                                                     File            INDX
    182   1  COMMUTER-RECORD                                      80           Group
    183     2  COMMUTER-KEY                                       16(0000000)  Display
    184     2  FILLER                                             64(0000016)  Display
    186   FD COMMUTER-FILE-MST                                                 File            INDX
    188   1  COMMUTER-RECORD-MST                                  80           Group
    189     2  COMMUTER-KEY-MST                                   16(0000000)  Display
    190     2  FILLER                                             64(0000016)  Display
    192   FD LOCATION-FILE                                                     File            SEQ
    203   FD UPDATE-TRANSACTION-FILE                                           File            SEQ
    208   1  UPDATE-TRANSACTION-RECORD                                         80           Display
    216   FD PRINT-FILE                                                        File            SEQ
    221   1  PRINT-RECORD                                        121           Display
    228   1  WORKING-STORAGE-FOR-IGYCARA                           1           Display

End of image description.


Terms of use | Feedback

Copyright IBM Corporation 1996, 2008.
This information center is powered by Eclipse technology. (http://www.eclipse.org)