例題
[P2177.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2177. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 RECORD VARYING IN SIZE 000012 DEPENDING ON WRECL. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 02 WRECL PIC 9(4). 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2177.
[Win32]
P2177.cob 12: JMN2177I-S RECORD句のデータ名は,作業場所節または連絡節に定義されていなければなりません.データ名は,無効になります.
[Winx64]
P2177.cob 12: JMN2177I-S RECORD句のデータ名は,作業場所節,局所記憶節または連絡節に定義されていなければなりません.データ名は,無効になります.
詳細な説明
RECORD句のDEPENDING ONで指定したデータ項目に対して,プログラムだけでなくCOBOL処理系も実行時にレコードの文字位置の個数を設定します.このため,所定の属性である必要があります.