|
Here's an old RPGIII version of a program that does just that. "Upgrading" to ILE, adding some of John Rusling's suggestions and using as a service program might have some possibilites (?). <snippet> H 1 FDBFILE IF F 528 DISK UC F KINFDS FILEDS IDBFILE NS * * Dummy Field to satisfy RPGIII Compiler. * I 1 1 POS1 IFILEDS DS * * File Record Count at OPEN. * I B 156 1590@COUNT IRCOUNT DS * * Data Structure to convert alpha Parm to numeric. * I 1 90COUNT C* C *ENTRY PLIST C PARM RCOUNT 9 C OPEN DBFILE LR Perform Open C *INLR IFEQ '1' for DB File. C Z-ADD999999999 COUNT Open not C RETRN successful! C END C Z-ADD@COUNT COUNT Setup Parm C MOVE '1' *INLR EOJ flag on. C CLOSEDBFILE Close DB file. C RETRN back to Caller. * * Dummy I/O operation to satisfy RPGIII Compiler. * C READ DBFILE LR <snippet> -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Rusling, John B. (Alliance) Sent: Wednesday, June 02, 2004 3:30 PM To: 'rpg400-l@xxxxxxxxxxxx' Subject: Re: # of records in a file Thinking out loud (haven't actually done this). one thought --- Make your CL program a CLLE program. Create a function in an ile rpg service program that returns the count of records in the file name/library name you pass in and use CALLPROC in your clle pgm to use the function. the rpg function could possibly be one the uses runtime file control with EXTFILE specified, then just do READ's. another thought --- Have a CL program(s) that's only purpose is to do the check (using DCLF, RCVF) for each file. ie, CL program CHKFILE1 does this for FILE1., CHKFILE2 does for FILE2... John B. >>>>>>>>>>>> Subject # of records in a file Hi I have a CL in which I copy records from an OPNQRYF to another file. I want to check if any records are copied. How can I check? I thought of DSPFD (*MBRLST) where MLNRCD gives # of records but this outfile has to be created using DDS, cannot be created runtime. The other option, I thought of is DCLF and RCVF. If EoF for RCVF, the file is blank. But I have to test this for multiple files and I can declare only 1 file in CL. Any suggestions? Deepak -- -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
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.