引数の説明
データ項目 |
例
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けた以下の整定数でなければなりません.