RE: CL question

The OVRDBF specifying SHARE(*YES) must proceed OPNQRYF.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

"i" comes before "p", "x" and "z"
e gads

Our system's had more names than Elizabeth Taylor!

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com
http://www.as400connection.com



                                                                           
             "Chaudhary,                                                   
             Sachin \(GE                                                   
             Equipment                                                  To 
             Services,                 "Midrange Systems Technical         
             Consultant\)"             Discussion"                         
             <sachin.chaudhary         <midrange-l@xxxxxxxxxxxx>           
             @ge.com>                                                   cc 
             Sent by:                                                      
             midrange-l-bounce                                     Subject 
             s@xxxxxxxxxxxx            RE: CL question                     
                                                                           
                                                                           
             02/18/2005 12:35                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




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.


--
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.