Re: SQL/CLI Count of rows returned in result set

[Mike Garrison <ibmisoftwareengineer@xxxxxxxxx>]

Code is as follows:


*-------------------------------------------------------------------------
      * Procedure name: SQLCLI_getResultRowCount
      * Purpose:        Get the Result Set Row Count
      * Returns:        Returned Result Set Row Count
      * Parameter:      piConnHandle

*-------------------------------------------------------------------------
     p SQLCLI_getResultRowCount...
     p                 b                   export
     d SQLCLI_getResultRowCount...
     d                 pi            10i 0
     d  piConnHandle                 10i 0

      * Local definitions
     d pDescHandle     s               *   inz
     d pRowCount       s               *   inz
     d vBLen           s              5i 0 inz
     d vDescHandle     s                   like(SQLINTEGER) inz
     d vRecNum         s                   like(SQLSMALLINT) inz(0)
     d vRowCount       s             10i 0 inz
     d vSLen           s              5i 0 inz
     d vSQLRC          s             10i 0 inz
     d vConnHandle     s             10i 0 inz

      /free

        vConnHandle = piConnHandle;

        pDescHandle = %addr(vDescHandle);
        vSQLRC = SQL_AlcHandle(SQL_HANDLE_DESC :vConnHandle :pDescHandle);

        pRowCount = %addr(vRowCount);
        vBLen = %len(vRowCount);
        vSQLRC = SQL_GetDescField(vDescHandle :vRecNum :SQL_DESC_COUNT
            :pRowCount :vBLen :vSLen);

        vSQLRC = SQL_FreeHandle(SQL_HANDLE_DESC :vDescHandle);

        return vRowCount;


//----------------------------------------------------------------------
        // Subprocedure error handling routine

//----------------------------------------------------------------------
        begsr *pssr;
          dump(a) 'SubProc(SQLCLI_getResultRowCount)';
          vRowCount = -1;
          return vRowCount;
        endsr;

      /end-free
     p SQLCLI_getResultRowCount...
     p                 e



On Fri, May 29, 2015 at 2:14 PM, Mike Garrison <
ibmisoftwareengineer@xxxxxxxxx> wrote:

> Michael Ryan,
>
> Text from my reply yesterday should be "and it was NOT providing what I
> needed.".
>
> I did add code today to use SQLAllocHandle and SQLGetDescField and I
> apparently do not have it right yet as vSQLRC returns a -2 on the
> SQLGetDescField.
>
> vSQLRC = 0 after SQLAllocHandle call but vDescHandle is 0 as well.
>
> Any thoughts or guidance?
>
>
> On Thu, May 28, 2015 at 4:14 PM, Mike Garrison <
> ibmisoftwareengineer@xxxxxxxxx> wrote:
>
> > I will give that a try tomorrow and report back.  I had been using
> > SQLGetDiagField and it was providing what I needed.
> >
> > The quick reply is much appreciated.
> >
> > On Thu, May 28, 2015 at 4:02 PM, Michael Ryan <michaelrtr@xxxxxxxxx>
> > wrote:
> >
> > > Check out Get Descriptor...that's how I do it.