この図では、データ宣言を含むソース行の右側にマップ情報のあるサンプル・ソース・リストが示されています。
次の例では、マップ情報の形式を示します。
121 64(0000016)
121 および 64 は、10 進数で表したデータ項目の長さです。 (0000016) は、ベース・ロケーター値の先頭からの 16 進変位です。
マップ情報には、UND、IMP、または EXT など、データ宣言に関するその他の情報を提供する特殊な定義記号を組み込むことができます。これらの記号については、図の後のメイン・テキストの注 (3) で説明されています。
次に、サンプル・ソース・リストからの抜粋を示します。
000002 Identification Division.
000004 Program-id. EMBMAP.
000176 Data division.
000177 File section.
000180 FD COMMUTER-FILE
*Numbers in parentheses on the following line refer to explanations in the main text.
000181 record 80 characters. (1) (2)
000182 01 commuter-record. 80
000183 05 commuter-key PIC x(16). 16(0000000)
000184 05 filler PIC x(64). 64(0000016)
000221 IA1620 01 print-record pic x(121). 121
000227 Working-storage section.
000228 01 Working-storage-for-EMBMAP pic x. 1
000230 77 comp-code pic S9999 comp. 2
000231 77 ws-type pic x(3) value spaces. 3
000234 01 i-f-status-area. 2
000235 05 i-f-file-status pic x(2). 2(0000000)
*The numbers in parentheses on the following line refers to an explanation in the main text.
000236 88 i-o-successful value zeroes. (3) IMP