Re: Using Scott's JDBCR4 doing select inside a read loop

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Mike,

Please either remove the inner JDBC_FreeResult(), or remove the 
'stmt_close' from the internals of the JDBC_FreeResult() routine, and 
see if that helps.



On 10/11/2010 12:46 PM, Mike Cunningham wrote:
> What would be the proper sequence of instructions using JDBCR4 to do a second SELECT while looking through the result set of the first SELECT?
>
> My code was like this and it run OK
>
> SQL_Statement = 'SELECT.........";
> prepstm = JDBC_prepStmt(conn : SQL_Statement);
> Select_PO_NO = 'P0000041';
> jdbc_setString(prepstm: 1: Select_PO_NO);
> rs = jdbc_ExecPrepQry(prepstm);
> dow (jdbc_nextRow(rs));
>    HPOs.Purch00001 = jdbc_getCol(rs: 1);
>   ...
> Enddo;
> JDBC_FreeResult(rs);
> JDBC_FreePrepStmt(prepstm);
> JDBC_Close(conn);
>
> Then I added the "Exsr  getVendorAddress;" and started getting a dump on JDBC_FreeResult(rs);
>
> SQL_Statement = 'SELECT.........";
> prepstm = JDBC_prepStmt(conn : SQL_Statement);
> Select_PO_NO = 'P0000041';
> jdbc_setString(prepstm: 1: Select_PO_NO);
> rs = jdbc_ExecPrepQry(prepstm);
> dow (jdbc_nextRow(rs));
>    HPOs.Purch00001 = jdbc_getCol(rs: 1);
> Exsr  getVendorAddress;
>   ...
> Enddo;
> JDBC_FreeResult(rs);
> JDBC_FreePrepStmt(prepstm);
> JDBC_Close(conn);
>
> -------------------------------------------------
> GetVendorAddress  BEGSR
> aSQL_Statement = 'SELECT.........";
> aprepstm = JDBC_prepStmt(conn : aSQL_Statement);
> ars = jdbc_ExecPrepQry(aprepstm);
> dow (jdbc_nextRow(rs));
>    HAddress_ls.Addre00001 = jdbc_getCol(ars: 2);
>    ...
> Enddo;
> JDBC_FreeResult(ars);
> JDBC_FreePrepStmt(aprepstm);
>                                           ENDSR
>
>
> Error is a MCH3601   Pointer not set for location referenced.
>
> FATAL ERROR in native method: Received NULL object reference
>   java.lang.Throwable
>
> If I remove the EXSR it runs clean. Add it back and it dumps.  I have tried removing the JDBC_FreeResult(ars);  and JDBC_FreePrepStmt(aprepstm); from the end of the GetVendorAddress routine and it still dumps.   If I remove the JDBC_FreeResult(rs);    JDBC_FreePrepStmt(prepstm); from the very end it dumps on the      JDBC_Close(conn);