CL question -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Subject: CL question
From: "Muralidhar Narayana" <Muralidhar_Narayana@xxxxxxxxxxx>
Date: Fri, 18 Feb 2005 05:13:13 +0530
List-archive: <http://archive.midrange.com/midrange-l>
List-help: <mailto:midrange-l-request@midrange.com?subject=help>
List-id: Midrange Systems Technical Discussion <midrange-l.midrange.com>
List-post: <mailto:midrange-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=unsubscribe>

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)

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: CL question , Booth Martin
Re: CL question , Martin Rowe
Re: CL question , Peter Dow
Re: CL question , Peter Dow

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.