引数の説明
関数種別 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3385. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC S9(8) BINARY. 000007 01 I PIC S9(2)V9(2) BINARY. 000008 PROCEDURE DIVISION. 000009 PERFORM VARYING I FROM FUNCTION RANDOM BY 0.1 000011 UNTIL I > 5 000012 COMPUTE A = A - 1 000013 END-PERFORM 000014 END PROGRAM C3385.
C3385.cob (9) : JMN3385I-S PERFORM文中のFUNCTION RANDOMは,数字定数または数字項目でなければなりません.