× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.