引数の説明
一意名 |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3160. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 GRP. 000007 02 TBL OCCURS 10 TIMES INDEXED BY INX. 000008 03 A PIC X. 000009 01 B PIC XX. 000010 01 X PIC X(2). 000011 PROCEDURE DIVISION. 000012 SEARCH ALL TBL 000013 WHEN A(INX) = "Z" 000014 MOVE 1 TO B. 000015 STOP RUN.
C3160.cob (12) : JMN3160I-S SEARCH ALL文の'TBL'のデータ記述には,KEY IS指定がなければなりません.