Re: Stored procedure from VA-RPG

Hi Justin, I'm not an expert about stored procedures but I know how VARPG
exchange data with Iseries side programs. Basically there is a 32Kb buffer
limit in the size of the request/answer so don't exeed it (no errors, only
missing bytes...).
So a simple rpg wrapper on Iseries (I don't think you can call the stored
procedure directly but you can try) with a similar interface will work:

d* Result Typedef
d muad00ds        ds                  based(p_muadds) qualified
d  state                              like(statorec)
d  cdutentex                          like(cdutente)
d  dscdutenx                    40
d  descrizix                    40

d* Parameters Type def
d muad00pds       ds                  based(p_muadpds) qualified
d  ordi1                        10
d  ordi2                        10
d  ordi3                        10
d  idaddebip                          like(id)
d  cdutentep                          like(cdutente)
d  descrizip                          like(descriga)

dmuad00int        PR                  extpgm('MUAD00INT')
d*
 /IF DEFINED(VARPG)
d                                     LINKAGE(*SERVER)
 /ENDIF
d  Operazia                     10    const
d  MaxRows                       2  0 const
d  RowsFound                     2  0
d  Parameters                         likeds(muad00pds)
d  ResultSet                          likeds(muad00ds ) dim(40)

I define VARPG only on the VARPG side to keep the copy members unique on
Iseries and Pc side.

HTH
Marco
--- Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:

> I have an iSeries stored procedure that returns a result set that I need
> to access via VisualAge RPG.  Is that possible, and if so, how?
> 
> Thanks 
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com