COBOL1級

2次元テーブルの考え方

1級になってくると２次元テーブルというテーブルを更に発展させたものが、でてきます。

　

下の図が、わかりやすく表現したものです。

データ（行,列）
このように、一級では２次元テーブルと呼ばれる方法が使われるようになります。
下に例題を書きます。

１月、２月、３月の商品売上高を商店ごとに集計します。

このようなデータを集計をするのに使う計算方法は次のようになります。
COMPUTE SYU(CO,TUKI) = SYU(CO,TUKI) + URI

次は印刷の方法です。そのために、もう一つテーブルを用意します。

TL　

PERFORM VARYING M FROM 1 BY 1 UNTIL M > 4
　PERFORM VARYING L FROM 1 BY 1 UNTIL L > 3
　MOVE SYU(M，L) TO TL(M，L)
　END-PERFORM
　テーブルＴＬの印字
END-PERFORM

PERFORM文のMに１が入りLにも１を入れてその後はLの数を増やしていく処理になるため
（１，１）−＞（１，２）−＞（１，３）という具合に増えていきます。

1級に出る文

COBOL一級にもさまざまな文が出てきます。そのさまざまな分を下に上げてみました。

READ 入力ファイル名 INTO レコード名
入力ファイルから読んだレコードを、そのまま他のレコード領域に転記する

READ IN-FL INTO S-REC
AT END MOVE "ON" TO E-FLG
END-READ

EVALUATE TENSU
WHEN " 100" MOVE ”Ａ” TO RANK
WHEN " 90" MOVE ”B” TO RANK
WHEN " 80" MOVE ”Ｃ” TO RANK
WHEN " 70" MOVE ”Ｄ” TO RANK
END-EVALUATE
TENSUに入っている数字で計算し100が入っているならばRANKにＡを入れる
IF文を発展させた形。

SEARCH データ名 (VARYING 指標名) VARYING句は省略可能
AT END 文1 ＜−−条件を満足しなかった時
WHEN 条件
−−−＞ 文2 条件を満足した時
END-SEARCH

SET 指標名 TO {整数、指標名2、データ名｝

（1） SET K TO １ ＜−−指標名Kの値を1とする。
（２） SET N TO L ＜−−指標名Ｎの値をＬとする。

SET Ｋ UP BY ２ ＜−指標名 Kの値を2増加させる。
SET Ｎ DOWN BY １ ＜−指標名Ｎの値を1減少させる。

レベル番号 データ名１ REDEFINES データ名２．
すでに定義されている領域(データ名）をもう一度データ名1として定義し直したいときに用いる。
０１ ALPH PIC X(6) VALUE ”930501”．
０１ NUME REDEFINES ALPH PIC 9(6)．

COBOLのメニュー画面へ