QMQRY

Code:
select f1, f2, f3, f4, f5 from datei where 
f1 concat f2 concat f3 concat f4 concat f5 like &STRING
order by rrn(datei) desc

CLLE
Code:
 pgm &STRING                                                     
 DCL &STRING *CHAR 30                                            
 CHGJOB SRTSEQ(*LANGIDSHR)                                       
 MONMSG CPF0000                                                  
              CHGVAR &STRING ('''%' *CAT &STRING *TCAT '%''')    
              STRQMQRY   QMQRY(MT940) SETVAR((STRING &STRING)) 
 ENDPGM
Aufruf
call cl (F4)

Eingabe
hme gef

Dateiinhalt in f4
Maßnahme gefunden

mit
QMQRY

Code:
select f1, f2, f3, f4, f5 from datei where 
upper(f1 concat f2 concat f3 concat f4 concat f5) like upper(&STRING)
order by rrn(datei) desc
geht es

Robi