RE: Call Service Program Procedure (QZRUCLSP) API

You're right.... here's the code:

d p1              s             10i 0 inz(4)
d p2              s             10i 0 inz(3)
d p3              s             10i 0 inz(10)
d Rtn             s             10i 0
d pp1             s               *   inz(%addr(p1))
d pp2             s               *   inz(%addr(p2))
d pp3             s               *   inz(%addr(p3))
d pRtn            s               *   inz(%addr(Rtn))

D DS_P_Error      DS
D zBytp                         10I 0 inz(%size(P_Error))
D zByta                         10I 0
D zErrid                         7
D zError                         1
D zExdta                       240
D P_Error                      256    overlay(DS_P_Error)

 * el formato de los parametros (todos enteros)
d array           s             10i 0 dim(3) inz(1)

d qzruclsp        pr                  extpgm('QZRUCLSP')
d  QualSrvPgm...
d                               20a   const
d  ExportName...
d                                 *   const options(*string)
d  ReturnValueFormat...
d                               10i 0 const
d  ParametersFormat...
d                               10i 0 const dim(3)
d  NumberOfParameters...
d                               10i 0 const
d  ErrorCode...
d                              256a
d  ReturnValue...
d                                 *   options(*nopass)
d  Parameter1...
d                                 *   options(*nopass)
d  Parameter2...
d                                 *   options(*nopass)
d  Parameter3...
d                                 *   options(*nopass)

c                   callp     qzruclsp('TEST      BABIB': 'MAX':
c                                      1: array: 3: p_error:
c                                      pRtn: pp1: pp2: pp3)
c*                  callp     SndAPIErr(p_error)
c                   eval      *inlr = *on


-----Mensaje original-----
De: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]En nombre de Scott Klement
Enviado el: jueves, 19 de junio de 2003 22:45
Para: RPG programming on the AS400 / iSeries
Asunto: RE: Call Service Program Procedure (QZRUCLSP) API



Carlos,

There was no attached file.   I'm not even sure that you can attach files,
since this mailing list is sent out as a newsgroup, digested and archived.

Please post your question again, this time paste the code into the message
itself.

Thanks

On Thu, 19 Jun 2003, Carlos Kozuszko wrote:
>
> Im actually coding the array as 10i0, have you seen the attached file ?
> I just cant figure out which parameter isnt valid becouse the info
provided
> is not enough.
>
_______________________________________________
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.