*---------------------------------------------------------------*
 *           Scan with QCLSAN                          Logiforce *
 *---------------------------------------------------------------*
 *                                                                
C                     READ FILE                     50            
C           *IN50     DOWEQ*OFF                                   
C           SEARCH    IFNE *BLANKS                                
C                     SELEC                                       
 * Ignore case: convert SEARCH to upper case                      
C           ZCASE     WHEQ '2'                                    
C                     CALL '#UPLOW'                               
C                     PARM 'LU'      PUPLOW  2                    
C                     PARM SEARCH    PIN    80                    
C           STRPA     PARM           POUT   80                    
C                     MOVE '1'       TRANSL                       
 * Same case                                            
C           ZCASE     WHEQ '1'                          
C                     MOVELSEARCH    STRPA     P        
C                     MOVE '0'       TRANSL             
C                     ENDSL                             
C                     CALL 'QCLSCAN'                    
C                     PARM           FIELD  40          
C                     PARM 4         STRLEN  30         
C                     PARM 1         STRPOS  30         
C                     PARM           STRPA  40          
C                     PARM 4         PATLEN  30         
C                     PARM           TRANSL  1          
C                     PARM '1'       TRIM    1          
C                     PARM '*'       WILD    1          
C                     PARM           RESULT  30         
 * Process results                                     
C                     SELEC                            
 * Error on scan                                       
C           RESULT    WHLT 0                           
C                     EXSR ERROR                       
 *                                                     
 * Not found: next read                                
C           RESULT    WHEQ 0                           
 *                                                     
 * Found match; starting position in RESULT            
C           RESULT    WHGT 0                           
C                     EXSR ACTION                      
C                     ENDSL                            
 *                                                     
C                     ENDIF                            
C                     READ FILE                     50 
C                     ENDDO