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

2.3.166 JMN2329I-S

APPLY SAVED-AREA句に指定されたデータ名はREDEFINES句を含んではいけません．
REDEFINES句は，無効になります．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2329.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT SQFILE1 ASSIGN TO SYS001.
      000007 I-O-CONTROL.
      000008     APPLY SAVED-AREA RSVAR ON SQFILE1.
      000009 DATA           DIVISION.
      000010 FILE            SECTION.
      000011 FD SQFILE1.
      000012 01 SQF1REC.
      000013   02           PIC X(80).
      000014 WORKING-STORAGE SECTION.
      000015 01 WSVAR       PIC X(80).
      000016 01 RSVAR REDEFINES WSVAR
      000017                PIC N(80).
      000018 PROCEDURE      DIVISION.
      000019 END PROGRAM    P2329.
    

P2329.cob (16) : JMN2329I-S APPLY SAVED-AREA句に指定されたデータ名はREDEFINES句を含んではいけません．REDEFINES句は，無効になります．