|
Hi, I'm trying to write an OPNQRYF that will apply the same selection criteria to 10 physical files, all with the same format. i.e. Files: Tax00, Tax99, Tax98, Tax97........ I want to select all the recs for all of these files such that RefDte *NE "0001-01-01". Anyone have any sample code that accomplishes this? When I do it, the CL loops..... And just keeps writing the same record, over and over, and over... TIA, Dave PS Here's the actual code: PGM OVRDBF FILE(REPOPCITY0) OVRSCOPE(*JOB) SHARE(*YES) OVRDBF FILE(REPOPCITY9) OVRSCOPE(*JOB) SHARE(*YES) OVRDBF FILE(REPOPCITY8) OVRSCOPE(*JOB) SHARE(*YES) OVRDBF FILE(REPOPCOUN0) OVRSCOPE(*JOB) SHARE(*YES) OVRDBF FILE(REPOPCOUN9) OVRSCOPE(*JOB) SHARE(*YES) OVRDBF FILE(REPOPCOUN8) OVRSCOPE(*JOB) SHARE(*YES) OPNQRYF FILE((RESLIB/REPOPCITY0) (RESLIB/REPOPCITY9) + (RESLIB/REPOPCITY8) (RESLIB/REPOPCOUN0) + (RESLIB/REPOPCOUN9) (RESLIB/REPOPCOUN8)) + FORMAT(RESLIB/REPOPCITY0) QRYSLT('REFDATE + *NE "0001-01-01"') MAPFLD((WARD '1/ward') + (PROPNO '1/propno') (QTR '1/qtr') + (TAXYEAR '1/taxyear') (OWNNAME + '1/ownname') (OWNADDR1 '1/ownaddr1') + (OWNADDR2 '1/ownaddr2') (OWNADDR3 + '1/ownaddr3') (ADDR '1/addr') (AMTOWED + '1/amtowed') (AMTPAID '1/amtpaid') + (PAIDDATE '1/paiddate') (CLAIM# + '1/claim#') (LTR#1DATE '1/ltr#1date') + (LTR#2DATE '1/ltr#2date') (ADVDATE + '1/advdate') (REFDATE '1/refdate') + (AMTREF '1/amtref') (STATUS '1/status') + (AMTOVRPD '1/amtovrpd') (COMMENT1 + '1/comment1') (COMMENT2 '1/comment2') + (FILLER '1/filler')) CPYFRMQRYF FROMOPNID(REPOPCITY0) + TOFILE(TSTLIB/TAXOPALL) MBROPT(*REPLACE) + CRTFILE(*YES) +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
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.