Re: how do I prototype this ....

[Robert Upshall <rupshall@xxxxxxxxxxx>]

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