引数の説明
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'は,整数項目でなければなりません.