引数の説明
データ項目 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3527. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 LOCK-KEY PIC X(30). 000008 01 WAIT-TIME PIC S9(9). 000009 01 ERR-DETAIL PIC 9(9) COMP-5. 000010 01 RET-VALUE PIC S9(9) COMP-5. 000011 PROCEDURE DIVISION. 000012 CALL "COB_LOCK_DATA" USING BY REFERENCE LOCK-KEY 000013 BY VALUE WAIT-TIME 000014 BY REFERENCE ERR-DETAIL 000015 RETURNING RET-VALUE. 000016 STOP RUN. 000017 END PROGRAM C3527.
C3527.cob (13) : JMN3527I-S CALL文のBY VALUEに指定された'WAIT-TIME'は,用途がCOMPUTATIONAL-5である4バイト以下の2進整数項目,BINARY-SHORT SIGNED,BINARY-LONG SIGNEDまたは9けた以下の整定数でなければなりません.