例題
[C5130.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5130. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 ENVIRONMENT DIVISION. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 PROCEDURE DIVISION. 000012 IDENTIFICATION DIVISION. 000013 METHOD-ID. M5130. 000014 ENVIRONMENT DIVISION. 000015 DATA DIVISION. 000016 LINKAGE SECTION. 000017 01 LK1 ANY LENGTH. 000018 PROCEDURE DIVISION 000019 USING LK1. 000020 END METHOD M5130. 000021 END OBJECT. 000022 END CLASS C5130.
C5130.cob 17: JMN5130I-S PICTURE句を持たない項目にANY LENGTH句は指定できません．PICTURE Xが指定されたとみなします．
詳細な説明
ANY LENGTH句は，連絡節のデータ項目の長さが，実行時に決まることを指定します．ANY LENGTH句は，PICTURE句だけが指定された項目に指定可能であり，PICTURE句の文字列は，“X”または“N”の1つの文字でなければなりません．
