SQL Selektion mit LIKE

[Fuerchau]

EXEC SQL
DECLARE SQLCUR2 CURSOR FOR SELECT LAUFNR, BIBLIOTHEK,
OBJEKT, OBJEKTTYP, BESCHREIB, LASTUSEDAT, ABTEILUNG,
PRIRORITA, TEVBEBRAU, DATMUT, MUTUSER, TYP, RECORDGEL,
RELEVANT FROM AIGDBA1F01 WHERE BIBLIOTHEK LIKE
trim(:W-D1BIBLIO)
AND OBJEKT LIKE
trim(:W-D5OBJEKT)
AND BESCHREIB LIKE
trim(:W-D5BESCHR)
ORDER BY BIBLIOTHEK, OBJEKT
END-EXEC.

[RLurati]

Ich habe es mit TRIM angepasst, leider den gleichen Effekt.


STRSQL (so geht es): zum Beispiel

SELECT LAUFNR, BIBLIOTHEK, OBJEKT, OBJEKTTYP, BESCHREIB,
LASTUSEDAT, ABTEILUNG, PRIRORITA, TEVBEBRAU, DATMUT, MUTUSER, TYP,
RECORDGEL, RELEVANT FROM zzrelu/AIGDBA1F01 WHERE BIBLIOTHEK =
'AIGTOOL' AND OBJEKT like '% ' and BESCHREIB like
'% ' ORDER BY BIBLIOTHEK, OBJEKT


aus dem COBOL (SQLCBLLE):

EXEC SQL
DECLARE SQLCUR2 CURSOR FOR SELECT LAUFNR, BIBLIOTHEK,
OBJEKT, OBJEKTTYP, BESCHREIB, LASTUSEDAT, ABTEILUNG,
PRIRORITA, TEVBEBRAU, DATMUT, MUTUSER, TYP, RECORDGEL,
RELEVANT FROM AIGDBA1F01 WHERE BIBLIOTHEK LIKE
trim(:W-D1BIBLIO) AND OBJEKT LIKE trim(:W-D5OBJEKT) AND
BESCHREIB LIKE trim(:W-D5BESCHR) ORDER BY BIBLIOTHEK, OBJEKT
END-EXEC.



Inhalt Variablen im Debug-Mode:

W-D5OBJEKT = '% '
W-D5BESCHR =
....5...10...15...20...25...30...35...40...45...50 ...55...60
1 '% '
61 ' '
W-D1BIBLIO = 'AIGTOOL '
SQLCODE = 000000100.


EXEC SQL
FETCH NEXT FROM SQLCUR2 INTO :LAUFNR, :BIBLIOTHEK, :OBJEKT,
:OBJEKTTYP, :BESCHREIB, :LASTUSEDAT, :ABTEILUNG, :PRIRORITA
:TEVBEBRAU, ATMUT, :MUTUSER, :TYP, :RECORDGEL, :RELEVANT
END-EXEC.


Gruss Reno