6.4 表示ファイル機能を使ったプログラム(Sample03)

ここでは、本製品で提供するサンプルプログラム-Sample03-について説明します。

Sample03では、表示ファイル機能を使って、画面から入力したデータを画面に出力し、さらにデータを印刷装置に出力するプログラムの例を示します。画面入出力を行う場合の、表示ファイル機能の使い方は“NetCOBOL ユーザーズガイド”の“表示ファイル(画面入出力)の使い方”を、印刷を行う場合の表示ファイル機能の使い方は、“NetCOBOL ユーザーズガイド”の“表示ファイル(帳票印刷)の使い方”を参照してください。なお、このプログラムを実行するには、MeFtが必要です。

概要

ディスプレイ装置に表示された入力画面に商品コードおよび個数を入力すると、商品コードをキーにマスタファイルを検索し、商品名、単価および金額を求め、さらに合計金額を計算し、ディスプレイ装置に表示します。また、帳票を印刷装置に出力します。

Sample03で入力したデータは、売上げファイル(索引ファイル)に格納します。売上げファイルは、Sample10で入力ファイルとして使用します。

提供プログラム

Sample3.cob(COBOLソースプログラム)
Denpyou.cob(COBOLソースプログラム)
Uriage.cbl(登録集原文)
Denpyo01.smd(画面定義体)
Denpyo02.smd(帳票定義体)
Mefwrc(ウィンドウ情報ファイル)
Mefprc(プリンタ情報ファイル)
Makefile（メイクファイル）

注意

Syohinm.cbl(登録集原文)は、Sample02の提供ファイルを使用します。

使用しているCOBOLの機能

表示ファイル機能(画面入出力)
表示ファイル機能(帳票印刷)
索引ファイル(参照/創成)
登録集の取込み
小入出力機能(メッセージボックス)
プロジェクト管理機能

使用しているCOBOLの文

OPEN文
READ文
WRITE文
CLOSE文
PERFORM文
DISPLAY文
IF文
MOVE文
GO TO文
EXIT文
COPY文

プログラムを実行する前に

MeFtのセットアップを行い、使用できる状態にしておいてください。
Sample02で作成されるマスタファイルを使用します。
“6.3 行順ファイルと索引ファイルの操作(Sample02)”を実行しておきます。
Sample03では、Sample02で作成されるマスタファイルにある商品コードを入力しないと入力エラーとなります。
“6.6 COBOLプログラム間の呼出し(Sample05)”を実行し、入力データを印刷しておくと便利です。