MNTMENU: 表示装置ファイルの DDS

図 195. 表示装置ファイル MNTMENU の DDS
     A*****************************************************************
     A*    ファイル名:  MNTMENU                                       *
     A*関連プログラム:  CUSMNT                                        *
     A*  関連ファイル:  CUSMSTL1   (論理ファイル)                     *
     A*          説明:  これは表示装置ファイル MNTMENU です。         *
     A*                 レコード様式があります                        *
     A*****************************************************************
     A                                      REF(CUSMSTL1)
     A                                      CHGINPDFT(CS)
     A                                      PRINT(QSYSPRT)
     A                                      INDARA
     A          R HDRSCN
     A                                      TEXT('PROMPT FOR CUST NUMBER')
     A                                      CA03(03 'END MAINTENANCE')
     A                                      CF05(05 'ADD MODE')
     A                                      CF06(06 'UPDATE MODE')
     A                                      CF07(07 'DELETE MODE')
     A                                      CF08(08 'DISPLAY MODE')
     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 RI)
     A                                  2 70DATE
     A                                      EDTCDE(Y)
     A                                      DSPATR(HI)
     A            CUST      R     Y  I 10 25DSPATR(CS)
     A                                      CHECK(RZ)
     A  51                                  ERRMSG('CUSTOMER ALREADY ON +
     A                                      FILE' 51)
     A  52                                  ERRMSG('CUSTOMER NOT ON FILE' +
     A                                      52)
     A                                 10 33'<--Enter Customer Number'
     A                                      DSPATR(HI)
     A                                 23  4'F3 End Job'
     A                                 23 21'F5 Add'
     A                                 23 34'F6 Update'
     A                                 23 50'F7 Delete'
     A                                 23 66'F8 Display'

     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 プログラム中の標識と関連付けています。