COBOL - Opções de compilação - 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.
Data Division Map (01) 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 (02) (03) (04) (05) (06) (07) (08) (09) (10) Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 4 PROGRAM-ID IGYTCARA-----------------------------------------------------------------------------------* 181 FD COMMUTER-FILE VSAM F 183 1 COMMUTER-RECORD BLF=00000 000 DS 0CL80 Group 184 2 COMMUTER-KEY BLF=00000 000 0 000 000 DS 16C Display 185 2 FILLER BLF=00000 010 0 000 010 DS 64C Display 187 FD COMMUTER-FILE-MST VSAM F 189 1 COMMUTER-RECORD-MST BLF=00001 000 DS 0CL80 Group 190 2 COMMUTER-KEY-MST BLF=00001 000 0 000 000 DS 16C Display 191 2 FILLER BLF=00001 010 0 000 010 DS 64C Display 193 FD LOCATION-FILE QSAM FB 198 1 LOCATION-RECORD BLF=00002 000 DS 0CL80 Group 199 2 LOC-CODE BLF=00002 000 0 000 000 DS 2C Display 200 2 LOC-DESCRIPTION BLF=00002 002 0 000 002 DS 20C Display 201 2 FILLER BLF=00002 016 0 000 016 DS 58C Display 204 FD UPDATE-TRANSACTION-FILE QSAM FB 209 1 UPDATE-TRANSACTION-RECORD BLF=00003 000 DS 80C Display 217 FD PRINT-FILE QSAM FB 222 1 PRINT-RECORD BLF=00004 000 DS 121C Display 229 1 WORKING-STORAGE-FOR-IGYCARA BLW=00000 000 DS 1C Display 231 77 COMP-CODE BLW=00000 008 DS 2C Binary 232 77 WS-TYPE BLW=00000 010 DS 3C Display 235 1 I-F-STATUS-AREA BLW=00000 018 DS 0CL2 Group 236 2 I-F-FILE-STATUS BLW=00000 018 0 000 000 DS 2C Display 237 88 I-O-SUCCESSFUL 240 1 STATUS-AREA BLW=00000 020 DS 0CL8 Group 241 2 COMMUTER-FILE-STATUS BLW=00000 020 0 000 000 DS 2C Display 242 88 I-O-OKAY 243 2 COMMUTER-VSAM-STATUS BLW=00000 022 0 000 002 DS 0CL6 Group 244 3 VSAM-R15-RETURN-CODE BLW=00000 022 0 000 002 DS 2C Binary 245 77 UNUSED-DATA-ITEM BLW=XXXXX 022 DS 10C Display (11)