RE: CL question

["Booth Martin" <booth@xxxxxxxxxxxx>]

Is this actually true?  I saw documentation yesterday saying otherwise and
wondered at the time if it was true. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: 02/18/05 05:41:19
To: Midrange Systems Technical Discussion
Subject: 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.
 
 
 
--
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.