RE: Stored Procedure calls from Cognos Impromptu

[Gord Royle <GRoyle@xxxxxxxx>]

My thanks to Pete Hall for getting us past the first stumbling block and
configuring ODBC to allow procedure calls. Now we're at the next stp and we
can't get the results set to come back to us. In fact, we can't get it to
come back to STRSQL even though we can see the results set being generated
in debug. I've added all of the code below.

Can anyone help?

Gord Royle

The sample AS/400 RPGILE program is as follows.

fiwil01    if   e           k disk
di                s              3  0
dinvent           ds                  occurs(30)
dITEM                           15
DNUMBER                          5
c     *entry        plist
c                   parm                    xprod            15
c                   parm                    xNUM              5
c                   eval      i=0
c     *loval        setll     iwil01
c                   read      iwil01
c                   dow       not(%eof)
c                   if        wprod=xprod
c                   eval      i=i+1
c     i             occur     invent
c                   move      wprod         ITEM

The program should accept parameters from via the ODBC call and return the
contents of the data structure as the result set.

We is compiled using the statement.

CRTSQLRPGI OBJ(USERA/EXTTEST) OUTOUT(*PRINT) DBGVIEW(*SOURCE)

We defined the program as a procedure to the Data Base.

CREATE PROCEDURE USERAEXTTEST LANGUAGE RPGLE SPECIFIC
USERA/EXTTEST NOT DETERMINISTIC CONTAINS SQL EXTERNAL NAME
USERA/EXTTEST PARAMETER STYLE SQL

We called the procedure from STRSQL and from Impromptu.

We don't get the results.