Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


例: 組み込みマップ要約

次の例は、MAP オプションによって作成される組み込みマップ要約を示しています。 この要約は、DATA DIVISION の、データ宣言を含む行のリストの右マージンに現れます。

 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)
このデータ項目に使用されるベース・ロケーター。
(2)
ベース・ロケーター値の先頭からの 16 進変位。
(3)
収容構造の先頭からの 16 進変位。
(4)
データが定義されている方法を示す、疑似アセンブラー・コード。


ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)