例題
[C5133.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5133. 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. M5133. 000014 ENVIRONMENT DIVISION. 000015 DATA DIVISION. 000016 LINKAGE SECTION. 000017 01 LK1 PIC X ANY LENGTH. 000018 02 WLENG PIC S9(4). 000019 02 WBUF PIC X(40). 000020 PROCEDURE DIVISION 000021 USING LK1. 000022 END METHOD M5133. 000023 END OBJECT. 000024 END CLASS C5133.
C5133.cob 17: JMN5133I-S ANY LENGTH句は集団項目に指定できません．ANY LENGTH句は無効になります．
C5133.cob 17: JMN2124I-S PICTURE句は，集団項目に指定できません．
詳細な説明
ANY LENGTH句は，連絡節のデータ項目の長さが，実行時に決まることを指定します．ANY LENGTH句は，PICTURE句だけが指定された項目に指定可能であり，PICTURE句の文字列は，“X”または“N”の1つの文字でなければなりません．
