RE: Replacement for *entry plist

Actually,

You don't need DFTACTGRP(*NO).

You can prototype the main procedure and use a PI instead of a *ENTRY PLIST
even with DFTACTGRP(*YES).

At least according to Barbara Morris:
http://archive.midrange.com/rpg400-l/200303/msg00484.html


Charles

> -----Original Message-----
> From: Francis Lapeyre [mailto:flapeyre@xxxxxxxxxxx]
> Sent: Monday, October 04, 2004 6:35 AM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Replacement for *entry plist
> 
> 
> In addition to what Jonathan said, you have to compile your 
> program with
> DFTACTGRP(*NO) and in either a named activation group, *NEW, 
> or *CALLER. (in
> other words, it has to be a "true ILE" program. Also, if you 
> change the
> program name (or clone the code for another program), you 
> must also change
> the name on the PR and PI to match. 
> 
> Francis Lapeyre
> IS Dept. Programmer/Analyst
> Stewart Enterprises, Inc.
> 
> E-mail: flapeyre@xxxxxxxx 
> 
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jonathan Mason
> Sent: Sunday, October 3, 2004 7:41 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Replacement for *entry plist
> 
> Hi Kevin
> 
> Assuming your program is called ABC123 and has two parameters 
> Company (3a)
> and Division (3a), you would define it like:
> 
> D ABC123            pr
> D  Company                      3a
> D  Division                     3a
> 
> D ABC123            pi
> D  Company                      3a
> D  Division                     3a
> 
> Note, the spacing above is as an example, and not the 
> required spacing on
> the actual D spec.
> 
> All the best
> 
> Jonathan
> www.astradyne-uk.com
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces+jonathan.mason=astradyne-uk.com@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+jonathan.mason=astradyne-uk.com@midra
> nge.com]On
> Behalf Of Kevin_J_Forster@xxxxxxxxxxxxxxx
> Sent: 03 October 2004 05:04
> To: RPG400-L@xxxxxxxxxxxx
> Subject: 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.
> 
> 
> 
> --
> 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.
>