[ プログラムパターン_目次 ]

帳票　単純明細出力その２

仕様を確認する

明細用データを読み込んでそのまま出力する。
ただし、キー重複時は2件目以降のキー項目を非表示。
改ページ後１行目の明細は全ての項目を表示。
今回のキーは購入日付と商品コード。
１ページ１０明細。
最後に金額合計あり。

コーディングする

→ クリックしてソースを表示
ソースの作成場所とファイル名は
C:/cygwin/home/各ユーザID/cobol/LIST0002.COB

コピー句を作成する

コピー句（入力用）の作成場所とファイル名は
C:/cygwin/home/各ユーザID/copy/I-PRDCTDTL.COB

       01 I-PRDCTDTL.
         03 I-PRDCTCD             PIC X(08).
         03 I-PRICE               PIC 9(09) COMP-3.
         03 I-QUANTITY            PIC 9(09) COMP-3.
         03 I-PCHASEDATE          PIC X(08).
         03                       PIC X(24).

出力結果

出力結果をワードパッドで開いて確認します。
メモ帳だとうまく改行されないのでワードパッドで確認してください。
印刷プレビューで見ると、改ページされているのも確認できます。
出力結果はこんなカンジ(これは単純にワードパッドで開いた状態)

注意点

このプログラムは入出力ファイル名をソース内で直接指定しています。
プログラムから紙に直接出力する方法を知らないので、今回はファイルに出力しました。