相互参照表には、少なくとも次の 3 つのリストが入っています。
さらに、これには各サブプロシージャーによって使用されるローカル・フィールドが 含まれます。ファイル、フィールドおよび標識がモジュール / プログラム内のどこで使用さ れるかをチェックするためにこのテーブルを使用してください。
識別コードが参照されない時に出される通知メッセージ RNF7031 は、リストの 相互参照セクションおよびメッセージ要約にのみ表示されることに注意してく ださい。 これはリストのソース・セクションには表示されません。
122 桁を超える長さの名前は、複数行にわたるリストの相互参照セクションに 表示されます。 名前全体が、行の末尾に文字 '...' を付けて印刷され ます。 名前の 最後の部分が 17 桁を超える場合は、 次の行から開始して属性および行番号をリストします。 図 244 は、2 つのサブプロシージャーをもつモジュール TRANSRPT の例を示しています。
この例では、相互参照表は、各参照の行番号を示します。OPTION(*NOSRCSTMT) で はなく OPTION(*SRCSTMT) を指定すると、各参照ごとにステートメント番号が表示 され、相互参照リストは、リストの最初の 80 桁より長く拡張できます。
相 互 参 照 表 ファイルおよびレコードの参照: ファイル 装置 参照 (D=定義済み) レコード CUSTFILE DISK 8D CUSTREC 0 44 *RNF7031 CUSTRPT DISK 9D ARREARS 0 60 79 グローバル・フィールド参照: フィールド 属性 参照 (D=定義 M=変更) *INZSR BEGSR 63D AMOUNT P(10,2) 56M 83 95 CITY A(20) 53D 132 CURDATE D(10*ISO-) 42D 64M 92 CUSTNAME A(20) 50D 122 CUSTNUM P(5,0) 49D 124 DUEDATE A(10) 57M 84 91 EXTREMELY_LONG_PROCEDURE_NAME_THAT_REQUIRES_MORE_THAN_ONE_LINE_IN_THE_CROSS_REFERENCE_EVEN_THOUGH_THE_ENTIRE_LINE_UP_TO_. COLUMN_132_IS_USED_TO_PRINT_THE_NAME... I(5,0) 9D PROTOTYPE FMTCUST PROTOTYPE 35D 59 113 114 134 INARREARS A(1) 30D 58 85 86 PROTOTYPE 101 LONG_FLOAT F(8) 7D 11M 12M NUMTOCHAR A(31) 22D 124 130 PROTOTYPE RPTADDR A(100) 59 82 RPTNAME C(100) 59 81 CCSID(13488) RPTNUM P(5,0) 80 SHORT_FLOAT F(4) 8D 10M *RNF7031 STATE A(2) 54D STREETNAME A(20) 52D 131 STREETNUM P(5,0) 51D 130 THIS_NAME_IS_NOT_QUITE_SO_LONG... A(5) 7D UDATE S(6,0) 64 *RNF7031 ZIP P(5,0) 55D INARREARS フィールド参照: フィールド 属性 参照 (D=定義 M=変更) DAYSLATE I(10,0) 88D 92M 94 DATEDUE D(10*ISO-) 89D 91M 92 FMTCUST フィールド参照: フィールド 属性 参照 (D=定義 M=変更) NAME A(100) 115D 122M BASED(_QRNL_PST+) ADDRESS A(100) 116D 130M BASED(_QRNL_PST+) 標識の参照: 標識 参照 (D=定義 M=変更) *RNF7031 01 44D * * * * * 相 互 参 照 表 の 終 わ り * * * * *
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.