Re: Retrieving # of Records in RPG

[Al Mac Wheel <macwheel99@xxxxxxxxxx>]

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.