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