ILE COBOL 解説書

INSPECT の例

INSPECT ステートメントの例を示します。

.. 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*********


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]