.. 1 ... ... 2 ... ... 3 ... ... 4 ... ... 5 ... ... 6 ... ... 7 DATA DIVISION. WORKING-STORAGE SECTION. 01 ID-1 PIC X(10) VALUE "ACADEMIANS". 01 CONTR-1 PIC 99 VALUE 00. 01 CONTR-2 PIC 99 VALUE ZEROS. PROCEDURE DIVISION. * THIS ILLUSTRATES AN INSPECT STATEMENT WITH 2 VARIABLES. 100-BEGIN-PROCESSING. DISPLAY CONTR-1 SPACE CONTR-2. 101-MAINLINE-PROCESSING. PERFORM COUNT-IT THRU COUNT-EXIT. STOP RUN. COUNT-IT. INSPECT ID-1 TALLYING CONTR-1 FOR CHARACTERS BEFORE INITIAL "AD" CONTR-2 FOR ALL "MIANS". DISPLAY-COUNTS. DISPLAY "CONTR-1 = " CONTR-1. DISPLAY "CONTR-2 = " CONTR-2. DISPLAY "*********EOJ*********" COUNT-EXIT. EXIT.
出力結果
00 00 CONTR-1 = 02 CONTR-2 = 01 *********EOJ*********