RE: CL question

["Chaudhary, Sachin \(GE Equipment Services, Consultant\)" <sachin.chaudhary@xxxxxx>]

Cant you do an OPNQRYF with required selection after CPYF and prior to OVRDBF?

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Muralidhar Narayana
Sent: Thursday, February 17, 2005 5:43 PM
To: midrange-l@xxxxxxxxxxxx
Subject: CL question


I have following code:
Iam copying YWRKVOLF1 to qtemp/ywrkvolf1 .
after copying (after cpyf condition and before overrdiing)I want to execute 
delete condition like
DELETE FROM QTEMP/YWRKVOLF1 WHERE WVYEAR > 2004 AND WVMONTH > 02.
Can some one advise me without creating addtional files how can I achieve 
it,Iam deleting qtemp file at the end.
 
PGM        PARM(&ACCOUNT)                                            
  DCL        VAR(&ACCOUNT)    TYPE(*CHAR) LEN(8)                     
 DCL        VAR(&FLIB)       TYPE(*CHAR) LEN(10)                     
                                                                     
  OVRPRTF    FILE(BYACT) TOFILE(PRINTERF) PAGESIZE(66) +             
             LPI(6) OVRFLW(60)                                       
             CPYF       FROMFILE(QS36F/YWRKVOLF1) +                  
                          TOFILE(QTEMP/YWRKVOLF1) MBROPT(*REPLACE) + 
                          CRTFILE(*YES) INCREL((*IF WVACCT *EQ +     
                          &ACCOUNT))                                 
OVRDBF     FILE(YWRKVOLF1) TOFILE(QTEMP/YWRKVOLF1)                   
CALL       PGM(YVOLSTATR2) PARM(&ACCOUNT)                            
  DLTF       FILE(QTEMP/YWRKVOLF1)                              
DLTOVR     FILE(YWRKVOLF1)                                           
MONMSG     MSGID(CPF0000)                                            
DLTOVR     FILE(*ALL)                                                

-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.