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: u2-users@listserver.u2ug.org
Laansma
Sent: 19 November 2008 14:05
To: u2-users@listserver.u2ug.org
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
, and Innovative Solutions
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Anthony
Youngman
Sent: Wednesday, November 19, 2008 10:04 AM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Counting records
Several things look a bit wonky to me here.
Firstly
STUDENTS
39635 record(s) counted.
NUMBER OF RECORDS: 39635
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Dave Laansma
Sent: Wednesday, November 19, 2008 10:24 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Counting records
Wol,
In Unidata
Subject: RE: [U2] Counting records
SIMPLE CODE FOR COUNTING RECORDS (IN UNIDATA)
:AE DAVID COUNT3
PROGRAM COUNT3
PERFORM COUNT STUDENTS
NUM.RECS = @SYSTEM.RETURN.CODE
PRINT
PRINT NUMBER OF RECORDS: :NUM.RECS
*--: FIBR
Filed COUNT3 in file DAVID.
Compiling Unibasic: oisdir/david/COUNT3 in mode
Nothing built in, but here is a simple function to do it:
FUNCTION CountFile(FileName)
$INCLUDE UNIVERSE.INCLUDE ODBC.H
SQL = 'SELECT COUNT(*) FROM ':FileName
Counter = 0
Ok = SQLExecDirect(@HSTMT,SQL)
Ok = SQLBindCol(@HSTMT, 1, SQL.B.DEFAULT, Counter)
Ok = SQLFetch(@HSTMT)
Ok =
