例題
[C5131.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5131. 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. M5131. 000014 ENVIRONMENT DIVISION. 000015 DATA DIVISION. 000016 LINKAGE SECTION. 000017 01 LK1 PIC X ANY LENGTH JUSTIFIED. 000018 PROCEDURE DIVISION 000019 USING LK1. 000020 END METHOD M5131. 000021 END OBJECT. 000022 END CLASS C5131.
C5131.cob 17: JMN5131I-S ANY LENGTH句を指定したデータ項目には，PICTURE句以外の句は指定できません．次のレベル番号，節または部まで無効になります．
詳細な説明
ANY LENGTH句は，連絡節のデータ項目の長さが，実行時に決まることを指定します．ANY LENGTH句は，PICTURE句だけが指定された項目に指定可能であり，PICTURE句の文字列は，“X”または“N”の1つの文字でなければなりません．
