入力仕様書を使用して、入力ファイルの外部記述中の一定の情報を一時変更するか、 あるいは外部記述に RPG 機能を追加することができます。 入力仕様書では次のことを行うことができます。
入力仕様書を使用して外部記述ファイル中のフィールドの位置を一時変更することはできません。 外部記述ファイル中のフィールドは、データ記述仕様にリストされた順序でレコードに入れられます。 また、外部記述ファイルの場合には、用紙制御などの装置従属機能は、RPG プログラムでは有効ではありません。
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... * IRcdname+++....In.........................................................* IMSTRITEM 01 1 I..............Ext-field+..................Field+++++++++L1M1..PlMnZr...... I ITEMNUMB 2 ITEM L1 3 * IMSTRWHSE 02 I ITEMNUMB ITEM L1 *
この例では、レコード識別標識 01 がレコード MSTRITEM に割り当てられ、 標識 02 がレコード MSTRWHSE に割り当てられています。
この例では、両方のレコードのフィールド ITEMNUMB が このプログラムで ITEM に名前変更されます。
この例では、 レコード MSTRITEM と MSTRWHSE の両方でフィールド ITEM が L1 制御フィールドとなるように 指定されています。
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... * IFilename++SqNORiPos1+NCCPos2+NCCPos3+NCC.................................. IMSTREC 01 1 I..............Ext-field+..................Field+++++++++L1M1..PlMnZr...... I CUSTNO M1 1 * IWKREC 02 I CUSTNO M1 I BALDUE 98 2 *
この 例では、MSTREC と WKREC の両方のレコードの CUSTNO フィールドに 突き合わせレベル値 M1 が割り当てられています。
この例では、レコード WKREC 中のフィールド BALDUE をプログラムで 読み取った時点で、ゼロか否かテストします。 フィールドの値がゼロの場合には、標識 98 がオンに設定されます。
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.