Re: CL question

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Oops, make that

CPYF FROMFILE(QS36F/YWRKVOLF1)
     TOFILE(QTEMP/YWRKVOLF1)
     MBROPT(*REPLACE)
     CRTFILE(*YES)
     INCREL((*IF WVACCT *EQ &ACCOUNT) (*AND WVYEAR *LE 2004)
            (*OR WVACCT *EQ &ACCOUNT) (*AND WVMONTH *LE 02))

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell



----- Original Message ----- 
From: "Muralidhar Narayana" <Muralidhar_Narayana@xxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, February 17, 2005 3:43 PM
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.
>
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005
>
>



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005