RPG�掘，�んたんな帳票プログラム(PRTF) 
印刷装置ファイル
EX0031P.prtf
A INDARA
A REF(EX0020P)
A R HDR
A SKIPB(001)
A 8DATE
A EDTCDE(Y)
A 60'EX0020Pリスト'
A 120'PAGE.'
A 127PAGNBR
A EDTCDE(Z)
A 4'コード'
A SPACEB(002)
A 18'名称'
A 42'価格'
A 6'---'
A SPACEB(001)
A 11'--------------------'
A 33'-------------------------'
A R DTL
A EX2010 R 6
A SPACEB(001)
A EX2020 R 11
A EX2030 R 33EDTCDE(J)
A R TTL
A 6'---'
A SPACEB(001)
A 11'--------------------'
A 33'-------------------------'
A 4'合計'
A SPACEB(002)
A TTLCNT 4S 0 20EDTCDE(J)
A 27'件'
A TTL030 19S 0 33EDTCDE(J)
プログラム
EX0031R.rpg
H Y/ 1
FEX0020P IF E K DISK
FEX0031P O E 60 PRINTER
C*
C SETON 60
C Z-ADD*ZERO TTLCNT 件数
C Z-ADD*ZERO TTL030 合計金額
C*
C DO *HIVAL
C READ EX2R 99
C 99 LEAVE
C 60 WRITEHDR 見出し印刷
C 60 SETOF 60
C WRITEDTL 明細印刷
C ADD 1 TTLCNT 件数カウント
C ADD EX2030 TTL030 金額加算
C ENDDO
C WRITETTL 合計印刷
C*
C SETON LR
C RETRN
このページへのコメント
KdJtuM Major thanks for the article post.
zxpKEp Looking forward to reading more. Great blog post.Really looking forward to read more.