■

ソースは三度読もう

長いソースは１回読んで分かった気になっても、
２回目に読めば頭の中でソースが動くぐらい理解できる。
3回読めば、覚える。

今日、VSAM2つとファイル5つからデータを読み込む、
二千行のソースを読んで実感しました。

[COBOL]FDと、データ定義と、COPY句

FD　入力ファイル
データ定義

で、内部のデータ部に入力ファイルの内容が入る。

000260******************************************************************
000270* 入力ファイル
000280******************************************************************
000290 FD IN01-F.
000300 01 IN01-R.
000310 　　　03 NAME　　　　　　　　　　　　　　 PIC N(10).
000311 　　　03 NAME-YOMI 　　　　　　　　　　PIC X(10).
000312 　　　03 CLUB 　　　　　　　　　　　　　　PIC N(10).
000313 　　　03 TEL 　　　　　　　　　　　　　　　PIC X(12).
000314 　　　03 NENREI 　　　　　　　　　　　　　PIC 9(02).
000500 　　　03 KIBOU-BI 　　OCCURS 3 　　TIMES.
000501 　　　　　05 HINICHI 　　　　　　　　　　　PIC 9(08).
http://homepage2.nifty.com/pu-relaxroom/pro/pro-cob3.htm

この場合、NAMEには、IN01-FのNAMEが代入される。

さらに、

300行以下を、別ファイル”F100”で作成すると、

FD IN01-F
COPY F100

で同じ処理ができる。