Re: CL question

["Booth Martin" <booth@xxxxxxxxxxxx>]

Consider using opnqryf and cpyfrmqryf instead of the cpyf.  This would give
you the qtemp file you want directly. 
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: 02/17/05 17:46:57
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.
 
 
.