ＲＰＧトピックス

■プログラム状況データ構造

表 9. プログラム状況データ構造の内容開始位置終了 (26～ (26～ 32 39 桁目） 桁目） 形式長さ キーワード 情報 1 10 文字 10 *PROC メイン・プロシージャーがあればその名前。それがない場合には、主要ソース・セクションと対応する名前。 11 15 ゾーン 10 進 5,0 *STATUS 状況コード。これらのコードの説明について数は、トピック1.5.2.1.1の『プログラム状況コード』を参照してください。 16 20 ゾーン 10 進 5,0 前の状況コード。数 21 28 文字 8 RPG IV ソース・リスト行番号またはステートメント番号。ソース・リスト行番号は、 OPTION(*SRCSTMT) が OPTION(*NOSRCSTMT) の代わりに指定されている場合、ソース・リスト・ステートメント番号に置き換えられます。そのステートメント番号がルート・ソース・メンバーに適用される場合、ステートメント番号全体が組み込まれます。ステートメント番号が 6 桁を超える場合 (すなわち、ゼロ以外のソース ID を組み込んでいる場合)、8 バイト・フィードバック域の最初の 2 桁は、ステートメント番号の残りの部分が 53～54 桁目に保管されることを示す "+" になります。 29 36 文字 8 *ROUTINE 例外またはエラーが起こった RPG IV ルーチンの名前。このサブフィールドは RPG IV ルーチンの開始時点、または *STATUS サブフィールドがゼロ以外の値によって更新される場合にのみ、プログラム呼び出しの後に更新されます。次の名前によってルーチンが識別されます。 *INIT プログラム初期設定 *DETL 明細行 *GETIN 入力レコードの入手 *TOTC 合計演算 *TOTL 合計行 *DETC 明細演算 *OFL オーバーフロー行 *TERM プログラム終了 *ROUTINE 呼び出されたプログラムまたはプロシージャーの名前（最初の 8 文字) 注: 通常の RPG IV サイクルを使用していない場合には、*ROUTINE は有効でありません。プログラムが通常の RPG IV サイクルからはみ出してしまうような論理では、 *ROUTINE が正しい値を反映しない場合があります。 37 39 ゾーン 10 進 3,0 *PARMS 呼び出しプログラムからこのプログラムに渡され数たパラメーターの数。この値は、%PARMS によって戻される値と同じです。使用可能な情報がない場合には、-1 が戻されます。桁目 42 文字 3 例外タイプ（OS/400 システムの例外の場合には CPF またはマシン例外の場合には MCH)。 43 46 文字 4 例外番号。 CPF 例外の場合には、このフィールドには CPF メッセージ番号が入れられます。マシン例外の場合には、マシンの例外番号が入れられます。 47 50 文字 4 未使用。 51 80 文字 30 メッセージ用の作業域。この区域は、ILE RPG コンパイラーが内部で使用するための専用区域です。情報の編成は、常に一定であるとは限りません。この区域は、ユーザーが表示することができます。 81 90 文字 10 プログラムが入っているライブラリーの名前。 91 170 文字 80 検索された例外データ。位置 *STATUS に 09999 が入っている場合に、CPF メッセージがこのサブフィールドに入れられます。 171 174 文字 4 通知される RNX9001 例外の原因となった例外の識別。 175 184 文字 10 ファイル操作が最後に行われたファイルの名前（エラーが起こった場合にのみ更新されます）。この情報には、常に完全なファイル名が含まれています。 185 190 文字 6 未使用。 191 198 文字 8 ジョブがシステムに入力された日付 (*DATE 形式)。バッチ・ジョブが夜間処理として投入された場合、真夜中を過ぎた時間帯に実行されるバッチ・ジョブは翌日の日付になります。この値は、ジョブ日付から導出され、年は 4 桁に拡張されます。この値によって表される日付は、270 ～275 桁目で表される日付と同じ日付です。 199 200 ゾーン 10 進 2,0 4 桁の年の先頭の 2 桁。*YEAR の先頭の 2 桁と数同じ。このフィールドは、270～ 275 桁目の日付の世紀部分に適用されます。たとえば、日付が 1999-06-27 の場合、UDATE は 990627 で、この世紀フィールドは 19 になります。270～275 桁目の値とこのフィールドの値を合わせると、191 ～198 桁目にある値の結合情報になります。注: この世紀フィールドは、276～281 桁目、または 288～293 桁目の日付には適用されません。 201 208 文字 8 ファイル操作が最後に行われたファイルの名前（エラーが起こった場合にのみ更新されます）。長いファイル名が使用されている場合、このファイル名は切り捨てられます。長いファイル名の情報については、175～184 桁目を参照してください。 209 243 文字 35 最後に使用されたファイルの状況情報。この情報には、状況コード、RPG IV 命令コード、RPG IV ルーチン名、ソース・リスト行番号またはステートメント番号、およびレコード名が含まれます。これはエラーが起こった場合にのみ更新されます。注: 命令コード名は INFDS の *OPCODE と同じ形式になっています。ソース・リスト行番号は、OPTION(*SRCSTMT) が OPTION(*NOSRCSTMT) の代わりに指定されている場合、ソース・リスト・ステートメント番号に置き換えられます。そのステートメント番号がルート・ソース・メンバーに適用される場合、ステートメント番号全体が組み込まれます。ステートメント番号が 6 桁を超える場合 (すなわち、ゼロ以外のソース ID を組み込んでいる場合)、8 バイト・フィードバック域の最初の 2 桁は、ステートメント番号の残りの部分が 356～357 桁目に保管されることを示す "+" になります。 244 253 文字 10 ジョブ名。 254 263 文字 10 ユーザー・プロファイルからのユーザー名。 264 269 ゾーン 10 進 6,0 ジョブ番号。数 270 275 ゾーン 10 進 6,0 プログラムの実行がシステムで開始された日付数 (UDATE 形式）(UDATE はこの日付から導出されます)。UDATE の説明については、トピック1.1.3の『ユーザー日付の特殊語』を参照してください。これは、一般に「ジョブ日付」と呼ばれています。この値によって表される日付は、191～198 桁目で表される日付と同じ日付です。 276 281 ゾーン 10 進 6,0 プログラム実行の日付（UDATE 形式のシステム日数付）。この値の年の部分が 40～99 の間の場合、この日付は 1940～1999 の間になります。それ以外の場合、この日付は 2000～2039 の間になります。199～200 桁目の「世紀」値は、このフィールドには適用されません。 282 287 ゾーン 10 進 6,0 プログラム実行の時刻（hhmmss 形式）。数 288 293 文字 6 プログラムがコンパイルされた日付（UDATE 形式）。この値の年の部分が 40～99 の間の場合、この日付は 1940～1999 の間になります。それ以外の場合、この日付は 2000～2039 の間になります。199～200 桁目の「世紀」値は、このフィールドには適用されません。 294 299 文字 6 プログラムがコンパイルされた時刻（hhmmss 形式）。 300 303 文字 4 コンパイラーのレベル。 304 313 文字 10 ソース・ファイル名。 314 323 文字 10 ソース・ライブラリー名。 324 333 文字 10 ソース・ファイル・メンバー名。 334 343 文字 10 プロシージャーが入っているプログラム。 344 353 文字 10 プロシージャーが入っているモジュール。 354 429 文字 76 未使用。 354 355 ゾーン 10 進 2, 0 ソース ID は、21～28 桁目からのステートメン数ト番号と突き合わせられます。 356 357 ゾーン 10 進 2, 0 ソース ID は、228～235 桁目からのステートメ数ント番号と突き合わせられます。 358 367 文字 10 現行ユーザー・プロファイル名。 368 429 文字 62 未使用。

■ファイル状況データ構造

                                                                                                                                    
      FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++Comments++++++++++                                 
      FMYFILE    O    F  132        PRINTER INFDS(OPNFBK)                                                                           
      DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++                                 
      DOPNFBK           DS                                                                                                          
      D ODP_TYPE               81     82                                         * ODP タイプ                                       
      D FILE_NAME              83     92                                         * ファイル名                                       
      D LIBRARY                93    102                                         * ライブラリー名                                   
      D SPOOL_FILE            103    112                                         * スプール・ファイル名                             
      D SPOOL_LIB             113    122                                         * スプール・ファイル・ライブラリー                 
      D SPOOL_NUM             123    124I 0                                      * スプール・ファイル番号                           
      D RCD_LEN               125    126I 0                                      * 最大レコード長                                   
      D KEY_LEN               127    128I 0                                      * 最大キー長                                       
      D MEMBER                129    138                                         * メンバー名                                       
      D TYPE                  147    148I 0                                      * ファイル・タイプ                                 
      D ROWS                  152    153I 0                                      * PRT/DSP 行数                                     
      D COLUMNS               154    155I 0                                      * PRT/DSP 桁数                                     
      D NUM_RCDS              156    159I 0                                      * レコード数                                       
      D ACC_TYPE              160    161                                         * アクセス・タイプ                                 
      D DUP_KEY               162    162                                         * 重複キー?                                        
      D SRC_FILE              163    163                                         * ソース・ファイル?                                
      D VOL_OFF               184    185I 0                                      * ボリューム・ラベル・オフセット                   
      D BLK_RCDS              186    187I 0                                      * ブロックの最大レコード数                         
      D OVERFLOW              188    189I 0                                      * オーバーフロー行                                 
      D BLK_INCR              190    191I 0                                      * ブロック増分                                     
      D FLAGS1                196    196                                         * 雑フラグ                                         
      D REQUESTER             197    206                                         * 要求元端末名                                     
      D OPEN_COUNT            207    208I 0                                      * オープン・カウント                               
      D BASED_MBRS            211    212I 0                                      * 基本メンバー数                                   
      D FLAGS2                213    213                                         * 雑フラグ                                         
      D OPEN_ID               214    215                                         * オープン識別コード                               
      D RCDFMT_LEN            216    217I 0                                      * 最大レコード様式長                               
      D CCSID                 218    219I 0                                      * データベース CCSID                               
      D FLAGS3                220    220                                         * 雑フラグ                                         
      D NUM_DEVS              227    228I 0                                      * 定義済み装置数                                   
                                                                                                                                    
                                                                                                                                    
    
   図 27.  オープン・フィードバック情報を持つ INFDS のコーディング例