引数の説明
一意名 |
SEARCH/SEARCH ALL |
例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3040. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 TBL. 000007 02 A OCCURS 5 TIMES. 000008 03 B PIC 9. 000009 PROCEDURE DIVISION. 000010 SEARCH A WHEN B(1) = 0 000011 STOP RUN.
C3040.cob (10) : JMN3040I-S SEARCH文中の一意名'A'は,INDEXED BY指定を持つOCCURS句が指定されたデータ項目でなければなりません.