RPG�掘，�んたんなサブファイルのサンプル２ 
画面表示装置
EX0042D.dspf
A*****************************************************************
A REF(EX0020P)
A PRINT(QSYSPRT)
A CHGINPDFT(CS)
A INDARA
A DSPSIZ(24 80 *DS3)
A CA03(03 'END')
A R HEAD01
A 1 27'EX0020P照会'
A DSPATR(HI RI)
A 5 10'名称と金額が変更できます'
A R SFREC01 SFL
A TEXT('SF明細レコード')
A RRN1 4S 0O 8 2TEXT('��')
A EX2010 R O 8 8
A EX2020 R B 8 12TEXT('NAME')
A EX2030 R B 8 34TEXT('PRICE')
A EDTCDE(J)
A
A R SFCTL01 SFLCTL(SFREC01)
A TEXT('SFコントロール')
A OVERLAY
A** PROTECT
A SFLSIZ(14) SFLPAG(13)
A 40 SFLCLR
A N40 SFLDSPCTL SFLDSP
A N40 SFLEND(*MORE)
A*
A 7 2'��'
A DSPATR(HI)
A 7 7'CODE'
A DSPATR(HI)
A 7 12'NAME'
A DSPATR(HI)
A 7 54'PRICE'
A DSPATR(HI)
A R ANS01 OVERLAY
A PROTECT
A CA12(12)
A*更新前の確認
A N41 23 50'更新しますか？(Y/N)'
A COLOR(WHT)
A N41 ANS 1A B 23 72TEXT('��')
A*更新後の結果表示
A 41 CNT1 4S 0O 23 2COLOR(WHT)
A 41 23 7'件中'
A COLOR(WHT)
A 41 CNT2 4S 0O 23 14COLOR(WHT)
A 41 23 19'件 更新しました'
A COLOR(WHT)
DOCFILの結果
sﾟｰﾆﾞ: /
作成者印 承認印
画 面 設 計 書
10/03/03 / / ファイル： PRIMULA/EX0042D SAMPLE
1 2 3 4 5 6 7 8
12345678901234567890123456789012345678901234567890123456789012345678901234567890
1 EX0020P照会 1
2 2
3 3
4 4
5 名称と金額が変更できます 5
6 6
7 �� CODE NAME PRICE 7
8 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 8
9 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 9
10 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 10
11 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 11
12 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 12
13 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 13
14 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 14
15 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 15
16 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 16
17 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 17
18 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 18
19 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 19
20 6666 666 BBBBBBBBBBBBBBBBBBBB 9,999,999,999,999,999,999- 20
21 21
22 22
23 6666 件中 6666 件 更新しました 更新 しますか？(Y/N) B 23
24 24
12345678901234567890123456789012345678901234567890123456789012345678901234567890
1 2 3 4 5 6 7 8
プログラム(RPG��)
EX0042R.rpg
H Y/ 1
FEX0042D CF E WORKSTN
F RRN1 KSFILE SFREC01
FEX0020P UF E K DISK
C*初期処理
C *LIKE DEFN EX2020 WK020 名前
C *LIKE DEFN EX2030 WK030 価格
C*サブファイル初期化
C LOOP1 TAG
C SETON 40 SFL初期化
C WRITESFCTL01
C EXSR K1 ファイルREAD
C*サブファイル表示
C LOOP2 TAG
C SETOF 40
C WRITEHEAD01
C EXFMTSFCTL01
C*終了チェック
C 03 SETON LR
C LR RETRN
C*更新確認
C MOVEL*BLANK ANS
C SETOF 41
C WRITEHEAD01
C WRITESFCTL01
C EXFMTANS01
C 03 SETON LR PF3は終了
C LR RETRN
C 12 GOTO LOOP2 PF12は戻る
C ANS CABNE'Y' LOOP2 Y以外は戻る
C*更新処理
C Z-ADD*ZERO CNT1 変更数ｶｳﾝﾀ
C Z-ADD*ZERO CNT2 更新数ｶｳﾝﾀ
C DO *HIVAL
C READCSFREC01 97
C 97 LEAVE
C ADD 1 CNT1 変更++
C MOVE EX2020 WK020 SFLから退避
C MOVE EX2030 WK030
C EX2010 CHAINEX2R 96
C 96 LEAVE ロック失敗
C MOVE WK020 EX2020 セット
C MOVE WK030 EX2030
C UPDATEX2R
C ADD 1 CNT2 更新++
C ENDDO
C*更新結果表示
C SETON 41
C WRITEHEAD01
C WRITESFCTL01
C EXFMTANS01
C*
C GOTO LOOP1
C***********************************************
C*ファイルを読んでサブファイルに書き出す
C K1 BEGSR
C *LOVAL SETLLEX2R
C 1 DO 1000 RRN1
C READ EX2R N 98
C 98 LEAVE
C WRITESFREC01
C ENDDO
C ENDSR
実行
EX0020P 照会
名称と金額が変更できます
�� CODE NAME PRICE
0001 100 あさあああああああ 1,234,567,890,123,456,789
0002 121 BBBC 234
0003 123 わふわふ 123,123
0004 211 アボガド 1,002
0005 212 CCC 3,456
0006 213 杏 12,315
0007 214 イチゴ 1,123,213
0008 216 イチジク 113,231
0009 217 オレンジ 2,343,242
0010 218 柿 12,333
0011 219 キウイ 1,235,555
0012 220 キワノ 2,225
0013 221 栗 336
続く ...
更新しますか？ (Y/N) Y
このページへのコメント
9Zks9h Very good post.Really looking forward to read more. Really Cool.