RPG�掘，�んたんな帳票プログラム(QPRINT) 
RPG�掘，�んたんなCRUDのサンプルで使用した物理ファイルの内容を印刷するプログラムです。
RPG内のO仕様書を用いて印刷するサンプルです。
RPG内のO仕様書を用いて印刷するサンプルです。
EX0030R.rpg
H Y/ 1
FEX0020P IF E K DISK
FQPRINT O F 132 OF LPRINTER
LQPRINT 66FL 50OL
C*
C SETON OF
C Z-ADD*ZERO TTLCNT 40 件数
C Z-ADD*ZERO TTL030 190 合計金額
C*
C DO *HIVAL
C READ EX2R 99
C 99 LEAVE
C OF EXCPTHDR 見出し印刷
C OF SETOF OF
C EXCPTDTL 明細印刷
C ADD 1 TTLCNT 件数カウント
C ADD EX2030 TTL030 金額加算
C ENDDO
C EXCPTTTL 合計印刷
C*
C SETON LR
C RETRN
OQPRINT E 2 HDR
O UDATE Y 8
O 60 'EX0020Pリスト'
O 128 'PAGE.'
O PAGE 131
O E 2 HDR
O 9 'コード'
O 20 '名称'
O 46 '価格'
O E 1 HDR
O 6 '---'
O 28 '--------------------'
O 50 '--------------------'
O 55 '-----'
O E 1 DTL
O EX2010 6
O EX2020 28
O EX2030J 56
O E 1 TTL
O 6 '---'
O 28 '--------------------'
O 50 '--------------------'
O 55 '-----'
O E 2 TTL
O 10 '合計'
O TTLCNTJ 22
O 26 '件'
O TTL030J 56
このページへのコメント
dTSTnY Hey, thanks for the blog post.Thanks Again. Cool.