引数の説明
一意名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3038. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC 99. 000007 01 B PIC XX. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING A FROM B BY 1 UNTIL A < 0 000010 COMPUTE A = A - 1 000011 END-PERFORM. 000012 STOP RUN.
C3038.cob (9) : JMN3038I-S PERFORM文中の'B'は,数字項目でなければなりません.