RPG�掘，�んたんなCRUDのサンプル 
かんたんなデータベースの作成とそれらを照会・更新するプログラムです
物理ファイル
EX0020P.pf
A UNIQUE
A R EX2R
A EX2010 3S 0 TEXT('CODE')
A EX2020 20O TEXT('NAME')
A EX2030 19P 0 TEXT('PRICE')
A K EX2010
表示装置ファイル
EX0020D.dspf
A*****************************************************************
A*****************************************************************
A REF(EX0020P)
A CHGINPDFT(CS)
A PRINT(QSYSPRT)
A INDARA
A DSPSIZ(24 80 *DS3)
A MSGLOC(24)
A R HDRSCN
A TEXT('PROMPT FOR EX2 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 6O O 1 4DSPATR(HI)
A 1 13'MODE'
A DSPATR(HI)
A 2 4TIME
A DSPATR(HI)
A 2 28'EX0020P FILE MAINTENANCE'
A DSPATR(HI RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A EX2010 R D I 10 28DSPATR(CS)
A 51 ERRMSG('CODE ALREADY ON +
A FILE' 51)
A 52 ERRMSG('CODE NOT ON FILE' 52)
A
A 10 33'<--ENTER CODE 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 EX2INQ
A TEXT('DISPLAY DEVD INFO')
A CA12(12 'PREVIOUS SCREEN')
A MODE 6O O 1 4DSPATR(HI)
A 1 13'MODE'
A DSPATR(HI)
A 2 4TIME
A DSPATR(HI)
A 2 28'EX0020P FILE MAINTENANCE'
A DSPATR(HI)
A DSPATR(RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A 10 20'CODE:'
A DSPATR(HI)
A DSPATR(UL)
A EX2010 R O 10 28DSPATR(HI)
A 12 20'NAME:'
A EX2020 R B 12 28DSPATR(CS)
A 04 DSPATR(PR)
A 14 20'PRICE:'
A EX2030 R B 14 28DSPATR(CS)
A 04 DSPATR(PR)
A 23 2'F12 CANCEL'
A MODE1 8 O 23 13
A R EX2BLD TEXT('ADD RECORD')
A CA12(12 'PREVIOUS SCREEN')
A MODE 6O O 1 4DSPATR(HI)
A 1 13'MODE' DSPATR(HI)
A 2 4TIME
A DSPATR(HI)
A 2 28'EX0020P FILE MAINTENANCE'
A DSPATR(HI RI)
A 2 70DATE
A EDTCDE(Y)
A DSPATR(HI)
A 10 20'CODE:'
A DSPATR(HI)
A EX2010 R O 10 28DSPATR(HI)
A 12 20'NAME:'
A DSPATR(HI)
A EX2020 R I 12 28
A DSPATR(HI)
A 14 20'PRICE:'
A DSPATR(HI)
A EX2030 R I 14 28
A 23 2'F12 CANCEL ADDITION'
プログラム
EX0020R.rpg
H Y/ 1
FEX0020D CF E WORKSTN
FEX0020P UF E K DISK A
C*初期化 1
C MOVE '照会' MODE
C*ヘッダ部
C HEAD01 TAG
C EXFMTHDRSCN
C 03 SETON LR 終了チェック
C LR RETRN
C 05 MOVEL'追加' MODE PFキー
C 06 MOVEL'更新' MODE
C 07 MOVEL'削除' MODE
C 08 MOVEL'照会' MODE
C*簡易入力チェック
C EX2010 CABEQ*ZERO HEAD01 入力なし
C*ファイル読み込み
C EX2010 CHAINEX2R 98
C*該当有無のチェック
C SETOF 5152
C SELEC
C MODE WHEQ '追加'
C N98 SETON 51 該当あり
C MODE WHEQ '更新'
C MODE OREQ '削除'
C MODE OREQ '照会'
C 98 SETON 52 該当なし
C ENDSL
C 51
COR 52 GOTO HEAD01
C*各処理への振り分け
C MODE CASEQ'追加' SUB05
C MODE CASEQ'更新' SUB06
C MODE CASEQ'削除' SUB07
C MODE CASEQ'照会' SUB08
C ENDCS
C*
C GOTO HEAD01
C***** 追加処理 ******************************
C SUB05 BEGSR
C WRITEHDRSCN
C EXFMTEX2BLD
C N12 WRITEEX2R
C ENDSR
C***** 更新処理 ******************************
C SUB06 BEGSR
C WRITEHDRSCN
C EXFMTEX2INQ
C N12 UPDATEX2R
C ENDSR
C***** 削除処理 ******************************
C SUB07 BEGSR
C SETON 04 プロテクト
C WRITEHDRSCN
C EXFMTEX2INQ
C N12 DELETEX2R
C SETOF 04
C ENDSR
C***** 照会処理 ******************************
C SUB08 BEGSR
C SETON 04 プロテクト
C WRITEHDRSCN
C TAG05 TAG
C EXFMTEX2INQ
C N12 GOTO TAG05
C SETOF 04
C ENDSR
このページへのコメント
fr1Eh7 Wow, great post.Really looking forward to read more.
1rHPdY Really enjoyed this article post.Really thank you! Keep writing.