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

2.7.50 JMN9153I-W

(@1@)IF文中の@2@特殊レジスタ指定は共通範囲外です.
処理を続行します.

引数の説明

@1@:

SIA,STD

@2@:

ADDRESS OF

      000001 @OPTIONS FLAGSW(STDM)
      000002 IDENTIFICATION  DIVISION.
      000003 PROGRAM-ID.     C9153.
      000004 ENVIRONMENT     DIVISION.
      000005 DATA            DIVISION.
      000006 WORKING-STORAGE SECTION.
      000007 01  REC01       PIC 9(5).
      000008 LINKAGE         SECTION.
      000009 01  ZPTR0 POINTER.
      000010 PROCEDURE       DIVISION USING ZPTR0.
      000011 P-START.
      000012     IF ADDRESS OF ZPTR0 = NULL THEN
      000013        MOVE  00001 TO REC01
      000014     END-IF.
      000015     STOP RUN.
    

C9153.cob (12) : JMN9153I-W (STD)IF文中のADDRESS OF特殊レジスタ指定は共通範囲外です.処理を続行します.