RPG�掘，�んたんでないサブファイルのサンプル１ 
画面表示装置(DSPF)
EX0041D.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 0H TEXT('��')
A GYO 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(13) SFLPAG(13)
A 40 SFLCLR
A N40 SFLDSPCTL SFLDSP
A ROLLUP(14 '次頁')
A ROLLDOWN(15 '前頁')
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��)
EX0041R.rpg
H Y/ 1
FEX0041D CF E WORKSTN
F RRN1 KSFILE SFREC01
FEX0020P IF E K DISK
C*初期処理
C Z-ADD*ZERO EOFRRN 40 EOFのRRN
C Z-ADD1 WKPAG 40 PAGE
C EXSR K1 ファイルREAD
C*サブファイル表示
C LOOP1 TAG
C EXFMTSFCTL01
C*終了チェック
C 03 SETON LR
C LR RETRN
C*
C *IN14 IFEQ *ON ROLLUP
C EOFRRN CABNE*ZERO LOOP1 EOFならLOOP
C ADD 1 WKPAG PAGE++
C EXSR K1 ROLLUP
C ENDIF
C *IN15 IFEQ *ON
C WKPAG CABEQ1 LOOP1 1PAGEならLOOP
C SUB 1 WKPAG PAGE--
C EXSR K2 ROLLDOWN
C EXSR K1 ROLLUP
C ENDIF
C*
C GOTO LOOP1
C***********************************************
C*ファイルを読んでサブファイルに書き出すROLLUP
C K1 BEGSR
C SETON 40 SFL初期化
C WRITESFCTL01
C SETOF 40 SFL表示
C*ページ計算
C WKPAG SUB 1 WK1 40
C WK1 MULT 13 WK2 40
C*
C 1 DO 13 RRN1
C READ EX2R 98
C 98 RRN1 ADD 13 EOFRRN
C 98 LEAVE
C RRN1 ADD WK2 GYO 行番号
C WRITESFREC01
C ENDDO
C K1END ENDSR
C***********************************************
C*明細列数逆順に読み込むROLLDOWN
C K2 BEGSR
C EOFRRN IFEQ *ZERO 通常戻り
C Z-ADD26 ENDRRN 40
C ELSE EOF戻し
C Z-ADDEOFRRN ENDRRN
C Z-ADD*ZERO EOFRRN
C *HIVAL SETGTEX2R
C ENDIF
C 1 DO ENDRRN
C READPEX2R 98
C 98 *LOVAL SETLLEX2R
C 98 LEAVE
C ENDDO
C ENDSR
このページへのコメント
iYTlG0 I really enjoy the blog article.Really thank you! Want more.
913sqO Thanks a lot for the blog article.Thanks Again. Much obliged.