H DFTNAME(TESTLOOK) DATEDIT(*YMD/) BNDDIR('QC2LE') DFTACTGRP(*NO)                              
     F********** %LOOKUP のテスト *************************************                             
     F*                                                                                             
     F*****************************************************************                             
                                                                                                    
      *( 作業変数の定義 )                                                                           
     D N               S              4S 0                                                          
     D RECR            S             10A   DIM(32)                               レコード名の配列   
     D RC              S              4S 0                                       配列数             
     D MSG             S             40A                                                            
     D ANS             S              1A                                                            
                                                                                                    
      /FREE                                                                                         
        N = 4;                                                                                      
        N = %LOOKUP('PRTHEAD   ': RECR);                                                            
        IF N > 0;                                                                                   
          MSG = 'FOUND AT ' + %CHAR(N);                                                             
        ELSE;                                                                                       
          MSG = 'NOT FOUND';                                                                        
        ENDIF;                                                                                      
        DSPLY MSG '' ANS;                                                                           
        *INLR = *ON;                                                                                
      /END-FREE                                                                                     
      ***********************************************************                                   
     C     *INZSR        BEGSR                                                  * 初期値セット      
      ***********************************************************                                   
      /FREE                                                                                         
        RECR(1) = 'PRTHEAD   ';                                                                     
        RECR(2) = 'MIDDTA    ';                                                                     
        RECR(3) = 'DETAIL    ';                                                                     
        RECR(4) = 'PRTENDD   ';                                                                     
        RC = 4;                                                                                     
      /END-FREE                                                                                     
     C                   ENDSR