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



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.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.