RE: Replacement for *entry plist

You need a prototype and a program interface, like this:

D @MainPr         pr                  extpgm('MYPROGRAM')
D    @P1                          10a                    
D    @P2                            5p 0         
D                        pi
D    @P1                           10a
D    @P2                             5p 0

Regards.
Juan Carlos Paredes   

> -----Mensaje original-----
> De:   Kevin_J_Forster@xxxxxxxxxxxxxxx
> [SMTP:Kevin_J_Forster@xxxxxxxxxxxxxxx]
> Enviado el:   domingo, 03 de octubre de 2004 6:04
> Para: RPG400-L@xxxxxxxxxxxx
> Asunto:       Replacement for *entry plist
> 
> 
> 
> 
> 
> 
> I've read in a number of articles that I can replace an *entry plist with
> a
> prototype. Could someone show me how this is done ?
> 
> 
> Regards
> Kevin Forster
> 
> This email is sent by or on behalf of the named sender identified above.
> If
> you do not wish to receive any email marketing material from this person
> in
> the future, please forward the contents of this email to
> unsubscriptions@xxxxxxxxxxxxxxx with the word "unsubscribe" in the subject
> box. If you do not forward the contents of this email with your
> unsubscription then it may not be able to be implemented.  If you wish to
> unsubscribe from all central email marketing lists used by our business,
> please forward the contents of this email to
> unsubscriptions@xxxxxxxxxxxxxxx with the message "unsubscribe from all
> central email marketing lists" in the subject box.  If you do not forward
> the contents of this email with your unsubscription then it may not be
> able
> to be implemented.
> 
> 
> The information contained in this email communication may be confidential.
> You should only disclose, re-transmit, copy, distribute, act in reliance
> on
> or commercialise the information if you are authorised to do so.  Any
> views
> expressed in this email communication are those of the individual sender,
> except where the sender specifically states them to be the views of a
> member of the National Australia Bank Group of companies.  Any advice
> contained in this e-mail has been prepared without taking into account
> your
> objectives, financial situation or needs. Before acting on any advice in
> this e-mail, National Australia Bank Limited recommends that you consider
> whether it is appropriate for your circumstances. If this e-mail contains
> reference to any financial products, the National recommends you consider
> the Product Disclosure Statement (PDS) or other disclosure document
> before
> making any decisions regarding any products.  The National Australia Bank
> Group of companies does not represent, warrant or guarantee that the
> integrity of this communication has been maintained nor that the
> communication is free of errors, virus or interference.
> 
> --
> 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.