Secskc
15 pts. | Nov 26 2008 10:03AM GMT
Hi,
Thank for the reply..below is the code what I have wriiten for clear understanding..Please help me out
———————————————————————————
OVRDBF FILE(ABC13DEF) SHARE(*YES)
OPNQRYF FILE((TEST1/ABC13DEF)) QRYSLT(’DATE +
*EQ “&SATDYYMD”‘)
CPYFRMQRYF FROMOPNID(ABC13DEF) TOFILE(TEST1/ABCD13) +
MBROPT(*REPLACE) CRTFILE(*NO)
RUNQRY QRY(TEST1/CRADPAYDAT) +
QRYFILE(TEST1/ABC13DEF) (TEST1/ABCDC13)
CLOF OPNID(ABC13DEF)
DLTOVR FILE(ABC13DEF)
———————————————————————————
Gilly400
23625 pts. | Nov 26 2008 10:43AM GMT
Hi,
I think you only need to use (TEST1/ABCDC13) for your RUNQRY - this file should only contain the data you select using OPNQRYF :-
OVRDBF FILE(ABC13DEF) SHARE(*YES)
OPNQRYF FILE((TEST1/ABC13DEF)) QRYSLT(’DATE *EQ “&SATDYYMD”‘)
CPYFRMQRYF FROMOPNID(ABC13DEF) TOFILE(TEST1/ABCD13) +
MBROPT(*REPLACE) CRTFILE(*NO)
CLOF OPNID(ABC13DEF)
DLTOVR FILE(ABC13DEF)
RUNQRY QRY(TEST1/CRADPAYDAT) QRYFILE(TEST1/ABCDC13)
Regards,
Martin Gilbert.






