MNTMENU: 表示装置ファイルの DDS
A R CSTINQ
A TEXT('DISPLAY CUST INFO')
A CA12(12 'PREVIOUS SCREEN')
A MODE 8A O 1 4DSPATR(HI)
A 1 13'MODE'
A DSPATR(HI)
A 2 4TIME
A DSPATR(HI)
A 2 28'CUSTOMER FILE MAINTENANCE'
A DSPATR(HI)
A DSPATR(RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A 4 14'Customer:'
A DSPATR(HI)
A DSPATR(UL)
A CUST R O 4 25DSPATR(HI)
A NAME R B 6 25DSPATR(CS)
A 04 DSPATR(PR)
A ADDR1 R B 7 25DSPATR(CS)
A 04 DSPATR(PR)
A ADDR2 R B 8 25DSPATR(CS)
A 04 DSPATR(PR)
A CITY R B 9 25DSPATR(CS)
A 04 DSPATR(PR)
A STATE R B 10 25DSPATR(CS)
A 04 DSPATR(PR)
A ZIP R B 10 40DSPATR(CS)
A EDTCDE(Z)
A 04 DSPATR(PR)
A 23 2'F12 Cancel'
A MODE1 8 O 23 13
A R CSTBLD TEXT('ADD CUST RECORD')
A CA12(12 'PREVIOUS SCREEN')
A MODE 8 O 1 4DSPATR(HI)
A 1 13'MODE' DSPATR(HI)
A 2 4TIME
A DSPATR(HI)
A 2 28'CUSTOMER FILE MAINTENANCE'
A DSPATR(HI RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A 4 14'Customer:' DSPATR(HI UL)
A CUST R O 4 25DSPATR(HI)
A 6 20'Name' DSPATR(HI)
A NAME R I 6 25
A 7 17'Address' DSPATR(HI)
A ADDR1 R I 7 25
A 8 17'Address' DSPATR(HI)
A ADDR2 R I 8 25
A 9 20'City' DSPATR(HI)
A CITY R I 9 25
A 10 19'State' DSPATR(HI)
A STATE R I 10 25
A 10 36'Zip' DSPATR(HI)
A ZIP R Y I 10 40
A 23 2'F12 Cancel Addition'
MNTMENU 表示装置ファイルの DDS には、 HDRSCN、CSTINQ、および CSTBLD という 3 つのレコード様式が入っています。HDRSCN レコードは、得意先番号および処理方式のプロンプトを出します。CSTINQ レコードは、更新、削除、および表示モードのために使用されます。フィールドは出力 / 入力 (38 桁目に B) として定義されています。 これらのフィールドは、表示または削除モードが選択された時に保護され ます (DSPATR(PR))。 CSTBLD レコードは、新しいレコードの入力フィールド (38 桁目に I) のみを 提供します。
HDRSCN レコード様式には、固定情報 'Customer File Maintenance' が入って います。 ERRMSG キーワードは、エラーが起こった場合に表示するメッセージを定義して います。 CA キーワードは、使用可能な機能キーを定義し、それらの機能キーを RPG プログラム中の標識と関連付けています。