引数の説明
PERFORMまたはSEARCH. |
例
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文中の条件に誤りがあります.