OPNQRYF

[RobertMack]

...aus dem Gedächtnis, hoffe es funktioniert so:

CHGVAR QRY VALUE('(IWIDDT *EQ' *BCAT &PDATV_N *TCAT ')')

OPNQRYF FILE((DIW7PF)) OPTION(*ALL) QRYSLT(&QRY)
MAPFLD((PDATV_N IWIDDT *DEC 8 0))

OVRDBF FILE(DIW7PF) SHARE(*YES)

[MarkowP]

Lieber Robert,

vielen Dank für deine Antwort

CHGVAR QRY VALUE('(IWIDDT *EQ' *BCAT &PDATV_N *TCAT ')')

Funktioniert leider nicht, da folgende Fehler auftraten
* CPD0712 30 Art von Operand für Operator ungültig.
* CPD0711 30 Art der Ausdrucksoperanden unterschiedlich.

Gruß Michael

[Fuerchau]

Numerische Variablen musst du per CHGVAR erst mal in Character umwandeln um sie mit CAT zu verarbeiten.

[MarkowP]

Hallo,

wie Du in meinem Beispiel ersehen kannst, gehe ich wie folgt vor:

DCL VAR(&PDATV) TYPE(*CHAR) LEN(8) +
VALUE('20120822') -> Übergabeparameter
DCL VAR(&PDATV_N) TYPE(*DEC) LEN(8 0)

Umsetzung von Character in numerisch
CHGVAR VAR(&PDATV_N) VALUE(&PDATV)

Das Feld IWIDDT aus Datei DIW7PF ist definiert mit S 8 0 (=gezont), da ich doch ansonsten nicht anders vergleichen kann?!?!

OPNQRYF FILE((DIW7PF)) QRYSLT('IWIDDT *EQ PDATV_N') +
MAPFLD((PDATV_N IWIDDT *DEC 8 0))

Funktioniert so nicht - weshalb nicht?!?!

[Pikachu]

So wie das aussieht vergleichst du IWIDDT mit IWIDDT.

Was du brauchst ist der Inhalt der CL-Variablen. Du mußt also eine Zeichenkette zusammenbauen und als Parameter übergeben, damit der Inhalt der CL-Variablen &PDATV im Parameter QRYSLT mitgegeben wird.

Probier nochmal mit:

... QRYSLT('IWIDDT *EQ ' *CAT &PDATV) ...

Hochkommas und &PDATV (CL-Variable *CHAR) beachten, und das Leerzeichen nach *EQ.

[MarkowP]

Hallo Pikachu,

vielen Dank - jetzt habe ich den gewünschten Erfolg erzielt. Man muß ganz genau auf die Hochkommatas achten, d.h. die in der Bedienerführung mitgegebenen Hochkommatas stimmten in diesem Fall nicht.

Nochmals vielen Dank für Deine Unterstützung

Gruß Michael