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


例: 組み込み相互参照

次の例は、ソース・リストに組み込まれる変更済み相互参照を示しています。 この相互参照は XREF コンパイラー・オプションによって作成されます。

 LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8  Map and Cross Reference
   . . .
 000878                procedure division.
 000879                  000-do-main-logic.
 000880                    display "PROGRAM IGYTCARA - Beginning".
 000881                    perform 050-create-vsam-master-file.                                   932 (1)
 000882                    perform 100-initialize-paragraph.                                      984
 000883                    read update-transaction-file into ws-transaction-record                204 340
 000884                        at end
 000885      1                    set transaction-eof to true                                     254
 000886                    end-read.
   . . .
 000984                  100-initialize-paragraph.
 000985                    move spaces to ws-transaction-record                                   IMP 340 (2)
 000986                    move spaces to ws-commuter-record                                      IMP 316
 000987                    move zeroes to commuter-zipcode                                        IMP 327
 000988                    move zeroes to commuter-home-phone                                     IMP 328
 000989                    move zeroes to commuter-work-phone                                     IMP 329
 000990                    move zeroes to commuter-update-date                                    IMP 333
 000991                    open input update-transaction-file                                     204
 000992                        location-file                                                      193
 000993                        i-o commuter-file                                                  181
 000994                        output print-file                                                  217
   . . .
 001442                1100-print-i-f-headings.
 001443
 001444                    open output print-file.                                                217
 001445
 001446                    move function when-compiled to when-comp.                              IFN 698 (2)
 001447                    move when-comp (5:2) to compile-month.                                 698 640
 001448                    move when-comp (7:2) to compile-day.                                   698 642
 001449                    move when-comp (3:2) to compile-year.                                  698 644
 001450
 001451                    move function current-date (5:2) to current-month.                     IFN 649
 001452                    move function current-date (7:2) to current-day.                       IFN 651
 001453                    move function current-date (3:2) to current-year.                      IFN 653
 001454
 001455                    write print-record from i-f-header-line-1                              222 635
 001456                          after new-page.                                                  138
   . . .

(1)
プログラム内のデータ名またはプロシージャー名の定義の行番号。
(2)
特殊定義記号:
UND
ユーザー名が未定義です。
DUP
ユーザー名が 1 回を超えて定義されています。
IMP
暗黙的に定義された名前 (特殊レジスターや形象定数など)。
IFN
組み込み関数参照。
EXT
外部参照。
*
NOCOMPILE オプションが有効なため、プログラム名が未解決です。

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

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