Re: how do I prototype this .... -- RPG400-L

Thanks, it helped, I found what I was missing, likeds.

Here is what I used if you are interested. I had tried this before with the "like" keyword ... I needed to be useing "likeds".

d parms_          ds
d  co#                    1      2p 0
d  cycle#                 3      4p 0
d  bAcct#                 5      8p 0
d  payAmt                 9     14p 2
d returnCode_     s              1a

 * entry prototype for OBillPay
d OBillPay        pr                  extpgm('OBILLPAY')
d  parms                              likeds(parms_)
d  returnCode                         like(returnCode_)

d OBillPay        pi
d  parms                                    likeds(parms_)
d  returnCode                               like(returnCode_)

VWilliamson@xxxxxxxxxxx wrote:

Robert, try this link.  This article helped us get a data structure
prototyped.
http://www.midrangeserver.com/mgo/mgo111502-story02.html
Valene M. Williamson
IBM Certified Specialist
vwilliamson@xxxxxxxxxxx
972-448-8018
Robert Upshall <rupshall@xxxxxxxx To: "rpg400-l@xxxxxxxxxxxx" <rpg400-l@xxxxxxxxxxxx> com> cc: Sent by: Subject: how do I prototype this .... rpg400-l-bounces@x idrange.com 03/18/2003 06:04 PM Please respond to RPG programming on the AS400 / iSeries
Can somebody help me protoype the below code, I am converting the
c-specs in one my applications to free format, everything was going good
until this program.  I am running into problems prototyping the
datastructure.
Anybody know how I should be doing this?

*** snip ***
d parms           ds
d  co#                    1      2p 0
d  cycle#                 3      4p 0
d  bAcct#                 5      8p 0
d  payAmt                 9     14p 2
d returnCode      s              1a
c     *entry        plist
c                   parm                    parms
c                   parm                    returnCode
*** snip ***

Robert
_______________________________________________
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.
_______________________________________________
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.

--

Robert Upshall
Professional Software of Amarillo
(806) 358-8928
rupshall@xxxxxxxxxxx