RPG�掘，�んたんなサブファイルのサンプル１ 
画面表示装置(DSPF)
EX0040D.dspf
A*****************************************************************
A REF(EX0020P)
A CHGINPDFT(CS)
A PRINT(QSYSPRT)
A INDARA
A DSPSIZ(24 80 *DS3)
A CA03(03 'END')
A R SFREC01 SFL
A TEXT('SF明細レコード')
A RRN1 4S 0O 8 2TEXT('��')
A EX2010 R O 8 8
A EX2020 R O 8 12
A EX2030 R O 8 33EDTCDE(J)
A
A R SFCTL01 SFLCTL(SFREC01)
A TEXT('SFコントロール')
A SFLSIZ(14) SFLPAG(13)
A 40 SFLCLR
A 41 SFLDSPCTL SFLDSP
A 41 SFLEND(*MORE)
A 1 27'EX0020P照会'
A DSPATR(HI RI)
A*
A 7 2'��'
A DSPATR(HI)
A 7 7'CODE'
A DSPATR(HI)
A 7 12'NAME'
A DSPATR(HI)
A 7 53'PRICE'
A DSPATR(HI)
プログラム(RPG��)
EX0040R.rpg
H Y/ 1
FEX0040D CF E WORKSTN
F RRN1 KSFILE SFREC01
FEX0020P IF E K DISK
C*サブファイル初期化
C SETON 40 SFL初期化
C WRITESFCTL01
C SETOF 40
C EXSR K1 ファイルREAD
C*サブファイル表示
C SETON 41 SFL表示
C LOOP1 TAG
C EXFMTSFCTL01
C*終了チェック
C 03 SETON LR
C LR RETRN
C*
C GOTO LOOP1
C***********************************************
C*ファイルを読んでサブファイルに書き出す
C K1 BEGSR
C 1 DO 1000 RRN1
C READ EX2R 98
C 98 LEAVE
C WRITESFREC01
C ENDDO
C ENDSR
コメントをかく