Several things look a bit wonky to me here. Firstly I'd get rid of the first three lines with CMD = "COUNT ":FILENAME
Then the routine as shown here leaves a hanging select list - NOT a good idea when the next person comes along and doesn't realise it. I've never used it, but isn't there a form of EXECUTE that will return the select list as a variable? I'd use that to "mop up" the select list. Then I'd do RCNT = @SELECTED (iirc there is such an @ variable) Failing any of those, after the execute, I'd do a READLIST to mop up the select list, followed by a RCNT = DCOUNT( variable, @FM) to get the count. Oh - and I'd return RCNT in the first argument. Makes it a lot more flexible - you can declare it as a function, call it from SUBR in i-descriptors, whatever whatever. Cheers, Wol -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dave Laansma Sent: 19 November 2008 14:05 To: [email protected] Subject: RE: [U2] Counting records I have written the following subroutine to count files: SUBROUTINE HUB.COUNT.FILE (FILENAME,RCNT) CMD = 'COUNT' CMD<-1> = FILENAME SWAP @AM WITH " " IN CMD CALL SB.DISP(9,CMD) EXECUTE CMD CAPTURING MSG RETURNING ERR RCNT = ERR<2,2> IF RCNT = "" THEN RCNT = ERR<1,2> END 9999 RETURN END David Laansma IT Manager Hubbard Supply Co. Direct: 810-342-7143 Office:810-234-8681 Fax: 810-234-6142 www.hubbardsupply.com "Delivering Products, Services, and Innovative Solutions" -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Symeon Breen Sent: Wednesday, November 19, 2008 8:34 AM To: [email protected] Subject: RE: [U2] Counting records In udt there is a system function after you have done a select, system(11). E.g. EXECUTE "SELECT file" ; NUM.OF.RECORDS = SYSTEM(11) -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of T Stokes Sent: 18 November 2008 22:59 To: [email protected] Subject: [U2] Counting records I am trying to remember a Universe function that returns the number of records in a file. Something like this. OPEN 'SOMEFILE' TO SOMEFILE ELSE STOP 201,"SOMEFILE" NUM.OF.RECORDS = UNKNOWNFUNCTION(SOMEFILE) -- View this message in context: http://www.nabble.com/Counting-records-tp20569376p20569376.html Sent from the U2 - Users mailing list archive at Nabble.com. ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.175 / Virus Database: 270.9.3/1786 - Release Date: 17/11/2008 17:24 ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
