2009年04月10日

COBOLの基礎知識【10】


浜松1チ-ムの
雅宏です。

COBOLの基礎知識の第10回は、”データ部”の説明です。

【データ部(DATA DIVISION)その1】

COBOLの基礎知識(第7回)でご紹介したサンプルプログラム(SAMPLE01)で、
データ部は以下の行となります。

001700 DATA DIVISION.
001800 FILE SECTION.
001900 FD INFL1.
002000 01 I-SHAIN-REC.
002100 05 I-SHAIN-NO PIC 9(05).
002200 05 I-SHAIN-NAME PIC N(10).
002300 05 FILLER PIC X(02).
002400 WORKING-STORAGE SECTION.
002500 01 W-END-FLG PIC X(01).

データ部は、プログラムが入力、出力するファイルの構成、プログラム内部で使用するデータ項目、
およびプログラム間で使用するデータ項目を定義する部です。
必要が無ければ省略可能です。
ファイル節(FILE SECTION)、作業場所節(WORKING-STORAGE SECTION)、
連絡節(LINKAGE SECTION)、通信節(COMMUNICATION SECTION)、
報告書節(REPORT SECTION)で構成されます。

環境部に記述できるのは以下の要素です。
キーワード記述する内容必須/任意
ファイル節FILE SECTION環境部の入出力節で定義した入出力ファイルのファイル構造とレコードのデータ構造任意
作業場所節WORKING-STORAGE SECTIONプログラム内で使用する作業用のデータ項目任意
連絡節LINKAGE SECTIONプログラム間で通信を行う際に呼ばれるプログラムが参照するデータ項目(呼ばれるプログラム側に定義する)任意
通信節COMMUNICATION SECTION通信管理システムとのインタフェース任意
報告書節REPORT SECTION環境部の入出力節で定義した報告書ファイルのファイル構造とレコードのデータ構造任意

まずは、ファイル節(FILE SECTION)についてご説明いたします。

サンプルプログラムの 1900行目に”FD”と記述しています。
これを「ファイル記述項」と呼びます。
ファイル記述項は、環境部(ENVIRONMENT DIVISION)に定義したファイル毎に記述します。
複数のファイルを使用する場合は、ファイル節に複数のファイル記述項を記述することになります。
サンプルプログラムでは、”INFL1”という名前のファイルを1つ定義しています。

2000~2300行目では、入力ファイル(INFL1)のレコードを定義しています。
先頭の”01”や”05”を「レベル番号」と呼びます。
2000行目は 01レベル、2100~2300行目は 05レベルで記述しています。
05レベルは 01レベルよりも下位になります。
これは、社員レコード(I-SHAIN-REC)が、社員番号(I-SHAIN-NO)、社員名(I-SHAIN-NAME)と
FILLERの3項目で構成していることを表します。

また、社員番号には”PIC 9(05)”、社員名には”PIC N(10)”、FILLERには”PIC X(02)”と
記述しています。
PICの後の”9”は数字、”N”は日本語、”X”は英数字であることを示します。
また括弧内の数字は桁数を示します。

なお、”FILLER”は無名の項目であることを表し、プログラム中で単独の項目として使用する
ことはできません。
入力ファイル(INFL1)と社員レコード(I-SHAIN-REC)の関係は、以下のイメージとなります。

COBOLの基礎知識【10】

次回は、”作業場所節(WORKING-STORAGE SECTION)”についてご説明いたします。


Blog Ranking
ブログランキングに参加しています。

---------------------------------------------------------------------------------------------------------------
   ■ 弊社の事をお知りになりたい方
   ■ 弊社へ入社希望の方
   ■ その他、ご相談やご連絡を取りたい方は


画面上部の「オ-ナ-へメッセ-ジ」よりご連絡を下さい。




同じカテゴリー(COBOL)の記事
SQL豆知識【60】
SQL豆知識【60】(2010-06-13 16:07)


上の画像に書かれている文字を入力して下さい
 
<ご注意>
書き込まれた内容は公開され、ブログの持ち主だけが削除できます。

プロフィール
JOB CAFE
JOB CAFE
株式会社 ネクサス
                  
本社 :静岡県浜松市中区大工町311-15
            
     TEL:053-451-0830           
     FAX:053-451-0832
オーナーへメッセージ
QRコード
QRCODE
アクセスカウンタ
読者登録
メールアドレスを入力して登録する事で、このブログの新着エントリーをメールでお届けいたします。解除は→こちら
現在の読者数 1人
削除
COBOLの基礎知識【10】
    コメント(0)