Re: Retrieving # of Records in RPG

Make the program SQLRPG instead of RPG in PDM

define field CNTSQL (count SQL) or some other name, zero its contents, then

/EXEC SQL
/ SELECT COUNT(*) FROM SSH INTO :CNTSQL
/ WHERE
then put the criteria for selection, or leave off the whole WHERE if want all
/END-SQL

I usually put everything for embedded SQL in separate subroutines.

I would like to have the # of records in a file that is being processed,
thought the program data structure would return this. I know I can get it
in a cl, but prefer not to use cl's.

When I run with debug, here is the value that is being returned from the
program data structure. Any ideas what this represents? The actual number
of the file being read is 17,038.

Jim Waymire
Tallyho Systems, Inc.


NBRRCD = 1077952576

D sds
D errmsg 91 170
D userid 254 263
D date 276 281
D pgmid 324 333
D rtime 282 287 0
D nbrrcd 156 159i 0

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.