dynamisches qmqry

[Pikachu]

CHGJOB SRTSEQ(*LANGIDSHR)

[Robi]

Hallo Pikachu,

das wars nicht

Zwar stand mein Job auf *hex, aber das umstellen hat nix gebracht

noch ne Idee?
Robi

[Pikachu]

Zeig mal konkrete Beispieldaten und den SELECT mitsamt LIKE-Wert.

[Robi]

QMQRY

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

 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

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

[camouflage]

CHGVAR &STRING ('''%' *CAT &STRING *TCAT '%''')

auch wenn ich ein wenig altmodisch rüberkomme, diesen chgvar würde ich mit zwei variablen machen.

[Robi]

1. es muß nicht alt oder modern sein
2. es muß funktionieren und wartbar sein
3. wenn ich das ändere geht es auch nicht

Robi