ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.4.289 JMN3527I-S

CALL文のBY VALUEに指定された@1@は,用途がCOMPUTATIONAL-5である4バイト以下の2進整数項目,BINARY-SHORT SIGNED,BINARY-LONG SIGNEDまたは9けた以下の整定数でなければなりません.

引数の説明

@1@:

データ項目

      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けた以下の整定数でなければなりません.