埋め込みの説明
@1@ : PERFORMまたはSEARCH.
例題
[P2567.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2567. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 PROCEDURE DIVISION. 000008 PERFORM TEST BEFORE 000009 UNTIL A = 000010 DISPLAY "IN LOOP". 000011 END PROGRAM P2567.
P2567.cob 9: JMN2567I-S PERFORM文中の条件に誤りがあります.