引数の説明
POINTER |
一意名の名標 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3109.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 AN-1 PIC X(6).
000006 01 AN-2 PIC X(10).
000007 01 PTR PIC 99V9.
000008 PROCEDURE DIVISION.
000009 P-START.
000010 STRING AN-1 DELIMITED BY "I" INTO AN-2 POINTER PTR.
000011 STOP RUN.
C3109.cob (10) : JMN3109I-S STRING文のPOINTER指定の項目'PTR'は,整数項目でなければなりません.