Zitat Zitat von Jenne
Hallo Kollegen,
wer kann mir einen Tip geben bei meinem folgenden Problem ?

Ich möchte aus einem CL heraus ein RUNQRY starten und diesem ein bestimmtes Datum übergeben. Da ich nur die passenden Daten bekommen möchte. Das Datum wird von mir mit einem CMD eingegeben.

Danke im Voraus !
Hallo,

ich nehme an, dass jeweils die Werte von einem bestimmten Datum auswerten willst.
Wenn das Datum jeweils das System-Datum wäre, könntest Du es direkt im Query über Current(Date) ermitteltn.

Handelt es sich um ein echtes Datum oder einen numerischen Wert?

Für numerische und alphanumerische Felder gibt es folgende Möglichkeit. (Mit Datums-Feldern habe ich es noch nicht probiert!)

1.Query-Definition muss erstellt sein
2.Die Variablen Auswahlen müssen mit :FELD bei Sätze auswählen hinterlegt werden.
Code:
         AND/OR  Feld              Test   Wert              
                 FIRNR             EQ     :PFINR            
          AND    ADTPA             EQ     :PTPA
3. Das Query wird nicht mit RUNQRY, sondern mit STRQMQRY aufgerufen
3.1. Die Variablen werden fix vorgegeben
z.B. STRQMQRY QMQRY(MYLIB/MYQRY)
ALWQRYDFN(*YES)
SETVAR((PFINR 240) (PTPA '''E'''))

3.2. Die Variablen werden variabel versorgt
z.B. STRQMQRY QMQRY(MYLIB/MYQRY)
ALWQRYDFN(*YES)
SETVAR((PFINR &QryFiNr) (PTPA &QryTPA)

Beispiel:
Code:
             PGM        PARM(&P$FINR &P$TPA)
         
             DCL        VAR(&P$FINR)  TYPE(*DEC)  LEN(3)
             DCL        VAR(&QryFINR) TYPE(*CHAR) LEN(3)
             DCL        VAR(&P$TPA)   TYPE(*CHAR) LEN(2)
             DCL        VAR(&QryTPA)  TYPE(*CHAR) LEN(4)

             ChgVar     Var(&QryFiNr) Value(&P$FINR)     
             ChgVar     Var(&QryTpa)                     
                        Value('''' *cat &P$TPA *Cat '''')

/* Aufruf Query                                                 
             StrQmQry   QmQry(MyQry)                  +       
                        Output(*PRINT)                  +       
                        QmForm(*QMQRY)                  +       
                        AlwQryDfn(*YES)                 +       
                        SetVar((PFINR &QryFiNr) (PTPA &QryTpa)) 

EOP:        ENDPGM
Birgitta