引数の説明
一意名 |
一意名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3162. 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 INX1 INX2. 000010 04 A PIC 9. 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL-2 000013 WHEN A(3, INX2) = 1 000014 STOP RUN.
C3162.cob (13) : JMN3162I-S SEARCH ALL文のWHEN指定の'A'に対する最下位次元の添字は,'TBL-2'の最初の指標名でなければなりません.