例題
[C5136.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5136. 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. M5136. 000014 ENVIRONMENT DIVISION. 000015 INPUT-OUTPUT SECTION. 000016 DATA DIVISION. 000017 LINKAGE SECTION. 000018 01 LK1 PIC X ANY LENGTH. 000019 88 ZOK VALUE "OK". 000020 88 ZNG VALUE "OK". 000021 PROCEDURE DIVISION 000022 USING LK1. 000023 END METHOD M5136. 000024 END OBJECT. 000025 END CLASS C5136.
C5136.cob 19: JMN5136I-S ANY LENGTH句を持つデータ項目に対して条件名は指定できません．
C5136.cob 20: JMN5136I-S ANY LENGTH句を持つデータ項目に対して条件名は指定できません．
