2.4.74 JMN3097I-S

UNSTRING文の@1@指定の一意名@2@は，整数項目でなければなりません．

引数の説明

@1@:

COUNT,POINTER,TALLYING

@2@:

一意名の名標

例

      000001 IDENTIFICATION  DIVISION.
      000002 PROGRAM-ID.  C3097.
      000003 ENVIRONMENT  DIVISION.
      000004 DATA  DIVISION.
      000005 WORKING-STORAGE SECTION.
      000006 01  A    PIC X(10).
      000007 01  B    PIC XX.
      000008 01  C    PIC X(4).
      000009 01  D    PIC 9(3)V9  BINARY.
      000010 PROCEDURE  DIVISION.
      000011 P-START.
      000012     UNSTRING A  DELIMITED BY B  INTO C  POINTER D.
      000013     STOP RUN.

C3097.cob (12) : JMN3097I-S UNSTRING文のPOINTER指定の一意名'D'は，整数項目でなければなりません．