NetCOBOL for .NET V8.0 メッセージ集

2.3.440 JMN2737I-S

SET文のTOの後は，ポインタデータ項目，表意定数NULL(S)またはADDRESS OF特殊レジスタでなければなりません．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2737.
      000003 ENVIRONMENT    DIVISION.
      000004 DATA           DIVISION.
      000005 LINKAGE         SECTION.
      000006 01 WBUF        POINTER.
      000007 PROCEDURE      DIVISION.
      000008     SET ADDRESS OF WBUF TO 13
      000009 END PROGRAM    P2737.
    

P2737.cob (8) : JMN2737I-S SET文のTOの後は，ポインタデータ項目，表意定数NULL(S)またはADDRESS OF特殊レジスタでなければなりません．