ここでは、本製品で提供するサンプルプログラム-Sample10-について説明します。
Sample10では、FORMAT句付き印刷ファイルを使って、集計表を印刷装置に出力するプログラムの例を示します。FORMAT句付き印刷ファイルの使い方は、“NetCOBOL ユーザーズガイド”の“帳票定義体を使う印刷ファイルの使い方”を参照してください。なお、このプログラムを実行するには、MeFtが必要です。
概要
商品コード、商品名および単価が格納されているマスタファイル(Sample02で作成した索引ファイル)と受注日、数量および売上げ金額が格納されている売上げファイル(Sample03で作成した索引ファイル)を入力して、売上集計表を印刷装置に出力します。
提供プログラム
Sample10.cob（COBOLソースプログラム）
Syuukei.pmd（帳票定義体）
Mefprc（プリンタ情報ファイル）
Uriage.cbl（登録集原文）
Makefile（メイクファイル）
COBOL85.CBR（実行用の初期化ファイル）
注意
Syohinm.cbl(登録集原文)は、Sample02で提供されたものを使用します。Uriage.cbl(登録集原文)は、Sample03で提供されたものを使用します。
使用しているCOBOLの機能
FORMAT句付き印刷ファイル
索引ファイル(参照)
登録集の取込み
小入出力機能(メッセージボックス)
使用しているCOBOLの文
OPEN文
READ文
WRITE文
START文
CLOSE文
PERFORM文
DISPLAY文
IF文
MOVE文
SET文
GO TO文
EXIT文
COPY文
ADD文
使用している帳票定義体
集計表形式
A4
縦
1/6インチ
PH(ページ頭書き)
［固定パーティション、印刷開始位置:0インチ(1行目)、縦幅:1インチ(6行)］
CH1(制御頭書き)
［浮動パーティション、縦幅:0.83インチ(5行)］
DE(明細)
［浮動パーティション、縦幅:0.33インチ(2行)］
CF1(制御脚書き)
［浮動パーティション、縦幅:0.83インチ(5行)］
CF2(制御脚書き)
［浮動パーティション、縦幅:0.67インチ(4行)］
PF(ページ脚書き)
［固定パーティション、印刷開始位置:10.48インチ(63行目)、縦幅:0.49インチ(3行)］
プログラムを作成する上でのポイント
PHおよびPFは、固定パーティション(固定の印刷位置情報を持っている)なので、パーティションを出力すると、必ず、パーティションに定義されている印刷開始位置に出力されます。
CH1、DE、CF1およびCF2は、浮動パーティション(固定の印刷位置情報を持たない)なので、自由な位置に出力することができる反面、パーティション出力時に印刷位置を制御する必要があります。
各パーティションに定義された出力項目は、翻訳時にCOPY文で帳票定義体からレコードに展開されます。このとき、定義した出力項目の項目名がデータ名になります。
プログラムを実行する前に
MeFtのセットアップを行い、使用できる状態にしておいてください。
Sample02で作成されるマスタファイルを使用します。
“6.3 行順ファイルと索引ファイルの操作(Sample02)”を実行しておきます。
Sample03で作成される売上げファイルを使用します。
“6.4 表示ファイル機能を使ったプログラム(Sample03)”を実行しておきます。
