プログラムの概要

( 2 ) プ ロ グ ラ ム の 構 成  

StockLibrary.cobproj

SYAIN.COB SYOHIN.COB ZAIKO.COB IODETAIL.CBL MSGTBL.CBL COBOLソースファイル

COBOL登録集ファイル StockLibrary.ｓｌn ソリューションファイル

COBOLプロジェクトファイル

従業員テーブル用COBOLソースファイル 商品テーブル用COBOLソースファイル 在庫テーブル用COBOLソースファイル 画面出力用レコード用登録集 出力メッセージ用登録集

TestSYAIN.COB SYAIN.COBテスト用ソースファイル TestSYAIN..cobproj

TestSYAIN.sln

TestSYIHIN..cobproj TestSYOHINN.sln

TestZAIKO..cobproj TestZAIKO.sln

COBOLソースファイル

TestSYOHIN.COB SYAIN.COBテスト用ソースファイル COBOLソースファイル

TestSYAIN.exe.config

TestSYOHIN.exe.config

TestZAIKO.COB SYAIN.COBテスト用ソースファイル COBOLソースファイル

TestSZAIKO.exe.config COBOL登録集ファイル IODETAIL.CBL

実行環境設定ファイル

実行環境設定ファイル 実行環境設定ファイル

画面出力用レコード用登録集

図 5 . 5 . 1 ( 2 )   サ ン プ ル プ ロ グ ラ ム の 構 成 フ ァ イ ル  

デ ー タ ベ ー ス ア ク セ ス を 行 う た め の 、 サ ブ プ ロ グ ラ ム を 集 め た ク ラ ス ラ イ ブ ラ リ は 、 同 じ プ ロ ジ ェ ク ト に 作 成 し ま す 。 ま た 、 プ ロ グ ラ ム の 実 行 に 必 要 な 登 録 集 も プ ロ ジ ェ ク ト に 登 録 し ま す 。

ま た 、 作 成 し た サ ブ プ ロ グ ラ ム を 検 証 す る た め 、 サ ブ プ ロ グ ラ ム ご と に 簡 単 な コ ン ソ ー ル ア プ リ ケ ー シ ョ ン を 作 成 し ま す 。 各 プ ロ グ ラ ム は 、 独 自 の コ ン ソ ー ル ア プ リ ケ ー シ ョ ン と し て 作 成 す る た め 、 ソ ー ス フ ァ イ ル と と も に 、 実 行 時 に 必 要 な 設 定 を 格 納 し た 実 行 環 境 設 定 フ ァ イ ル を 作 成 し ま す 。 実 行 環 境 設 定 フ ァ イ ル に は 、 埋 込 みS Q Lで 使 用 す る 接 続 文 字 列 設 定 な ど の 情 報 を 格 納 し ま す 。

( 3 ) サ ブ プ ロ グ ラ ム の 仕 様  

3種 類 の サ ブ プ ロ グ ラ ム の 仕 様 に つ い て 説 明 し ま す 。

„ S YA I N . C O Bサ ブ プ ロ グ ラ ム

社 員 コ ー ド と パ ス ワ ー ド を 受 け 取 り 、 社 員 テ ー ブ ル を 読 み 込 ん で 認 証 処 理 を 行 い ま す 。 認 証 の 結 果 は 、 戻 り 値 で 返 し ま す 。 ま た 、 エ ラ ー 発 生 時 の メ ッ セ ー ジ も パ ラ メ ー タ ー と し て 返 し ま す 。

(パ ラ メ ー タ ー と 戻 り 値)

パ ラ メ ー タ ー   I N / O U T   型   意 味  

P - E m p l o y e e C o d e   I N   N ( 6 )   社 員 コ ー ド  

P - P a s s w o r d       I N   N ( 6 )   パ ス ワ ー ド  

P - M s g       O U T   N ( 2 0 )   例 外 メ ッ セ ー ジ  

戻 り 値   I N / O U T       意 味  

R - R e t u r n C o d e   O U T   B I N A R Y - L O N G  

認 証 O K : 0   社 員 コ ー ド 誤 り : 2   パ ス ワ ー ド 誤 り : 3  

„ S Y O H I N . C O Bサ ブ プ ロ グ ラ ム

商 品 コ ー ド の み 格 納 さ れ た 商 品 レ コ ー ド を 受 け 取 り 、 商 品 テ ー ブ ル を 検 索 し て 、 該 当 す る 商 品 コ ー ド の レ コ ー ド を 読 み 込 み 、 商 品 レ コ ー ド と し て 呼 出 し 元 に 返 し ま す 。

(パ ラ メ ー タ ー と 戻 り 値)

パ ラ メ ー タ ー   I N / O U T   型   意 味  

P - S Y O H I N R E C   I N / O U T   集 団 項 目   商 品 レ コ ー ド  

P - S Y O C D   I N / O U T   P I C   9 ( 5 )   商 品 コ ー ド  

P - S Y O N A   O U T   P I C   N ( 2 0 )   商 品 名  

P - B A I K A   O U T   P I C   9 ( 8 )   売 価  

P - G E N K A   O U T   P I C   9 ( 8 )   原 価  

P - M s g       O U T   N ( 2 0 )   例 外 メ ッ セ ー ジ  

戻 り 値   I N / O U T   型   意 味  

R - R e t u r n C o d e   O U T   B I N A R Y - L O N G   正 常 終 了 : 0   商 品 コ ー ド な し : 5  

„ Z A I K O . C O Bサ ブ プ ロ グ ラ ム

指 定 さ れ た 商 品 コ ー ド の 在 庫 状 況 に つ い て 、 在 庫 テ ー ブ ル を 読 み 込 み 、 画 面 出 力 用 の1ペ ー ジ 分( 1 0行)の レ コ ー ド を 生 成 し 、 呼 出 し 元 に 返 し ま す 。

(パ ラ メ ー タ ー と 戻 り 値)

パ ラ メ ー タ ー   I N / O U T   型   意 味  

M - A R E A     I N / O U T   I O D E T A I L . C B L   パ ラ メ ー タ ー 用 レ コ ー ド P - S t a r t   I N / O U T   B I N A R Y - L O N G   開 始 行  

P - C n t       O U T   P I C   9 ( 3 )   件 数  

P - N e x t     O U T   P I C   9 ( 1 )   次 レ コ ー ド 有 無  

P - M s g       O U T   N ( 2 0 )   例 外 メ ッ セ ー ジ  

戻 り 値   I N / O U T   型   意 味  

R - R e t u r n C o d e   O U T   B I N A R Y - L O N G   正 常 終 了 : 0   商 品 コ ー ド な し : 5