引数の説明
一意名 |
個数 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3268. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 5 TIMES. 000008 03 TBL-2 OCCURS 5 TIMES ASCENDING KEY IS A 000009 INDEXED BY INX. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(INX) = 1 000014 STOP RUN.
C3268.cob (13) : JMN3268I-S SEARCH ALL文のWHEN指定の'A'の添字の数は,2個でなければなりません.