cobol
データ分割

前書き

データ部のセクション

COBOLのセクションは、それらがどのディビジョンにあるかに応じて、必須でもオプションでもかまいません。

DATA DIVISION.
FILE SECTION.
FD SAMPLE-FILE
01 FILE-NAME PIC X(20).
WORKING-STORAGE SECTION.
01 WS-STUDENT PIC A(10).
01 WS-ID PIC 9(5).
LOCAL-STORAGE SECTION.
01 LS-CLASS PIC 9(3).
LINKAGE SECTION.
01 LS-ID PIC 9(5).

上の例では、01はレベル番号です。

レベル番号

レベル番号は、レコード内のデータのレベルを指定するために使用されます。これらは、基本項目とグループ項目を区別するために使用されます。基本項目をグループ化してグループ項目を作成することができます。

• 01：レコード記述項を記録する。グループレベルの番号は常に01です。

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NAME               PIC X(25).   ---> ELEMENTARY ITEM 
01 WS-SURNAME            PIC X(25).   ---> ELEMENTARY ITEM    
01 WS-ADDRESS.                        ---> GROUP ITEM   
   05 WS-HOUSE-NUMBER    PIC 9(3).    ---> ELEMENTARY ITEM
   05 WS-STREET          PIC X(15).   ---> ELEMENTARY ITEM 

• 02〜49：小項目
• 66：句項目の名前を変更する
• 77：細分できない項目。
• 88：レベル88は、COBOLプログラムの可読性を向上させ、IFテストを改善するために使用される特別なレベル番号です。レベル88は別の変数の下のレベルのように見えますが、そうではありません。 PICTUREはありませんが、値はあります。レベル88は、常に別の変数に関連付けられ、その変数の条件名です。

 01 YES-NO PIC X.
 88 ANSWER-IS-YES VALUE "Y".

以下の両方の条件は、YES-NOが "Y"に等しいかどうかをテストします。

 IF YES-NO = "Y"
 IF ANSWER-IS-YES

英数字または数値変数にレベル88の条件名を使用できます。

ピクチャ句

PICTURE CLAUSEは、変数のサイズ（メモリに使用されるバイト数）と変数に格納できるデータの種類の2つを定義します。