RE: Prototype Field References

About prototype definitions you can use the like keyword.
Our standard is to define the ds (dictionary) in all the programs, of course
the ds is based on a pointer so there is no memory waste and since the
pointer is never set we cannot modify (and use) the fields.

E.g. d mydiz      e ds       based(p_mydiz)

This is working since we have a package and the srvpgm are for internal use
only (we are not selling the service programs to somebody else). Of course
if you have to distribute your programs this is not the right way.

HTH
Marco

--- "Mike Pantzopoulos - (H/O)" <mpantzopoulos@xxxxxxxxxxxxxxxx> wrote:

> 
> Apologies! It should read a prototype (member)  is actually a
> copy-book!!!
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Pantzopoulos -
> (H/O)
> Sent: Thursday, 29 September 2005 4:00 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Prototype Field References
> 
> 
> I am looking for some advice concerning the use of prototypes and the
> actual parameter passed via a sub-procedure:
> 
>       *       Our application uses an external dictionary, and only in
> exceptional circumstances do we ever hard-code an attribute.
>       *       A sub-procedure is actually a copy-book. I haven't
> worked out how to define the prototype parameter as a reference to an
> external data dictionary. Therefore, the field definition is whatever is
> hard-coded in the parameter declaration. Is this correct, or is there
> another way?
>       *       A program which requires the prototype needs to make
> sure that the parameter passed to the procedure matches the attributes
> declared in the prototype. If the prototype definition changes then it
> seems extremely difficult to manage the amendment of all the programs
> which use the prototype/procedure.
>       *       Because the prototype is a source file and not an
> object, the D-spec declaration cannot reference the prototype
> declaration and because the prototype is a source file, it cannot share
> a common definition reference.
> 
> In essence, there seems to be a huge maintenance issue here.
> 
> Am I right with this assessment?
> 
> Any comments?
>     
> Thanks In Advance
> 
> Mike Pantzopoulos
> 
> EIG-Ansvar Limited
> Tel  : 61 (3) 9614 3535
> Fax: 61 (3) 9614 2740
> 
> 
> ************************************************************************
> *********************************
> This email and any files transmitted with it are confidential and
> intended solely for the use of the individual or entity to whom they are
> addressed. If you are not the intended recipient, any use, disclosure or
> copying of this message is unauthorised. If you have received this
> message in error, please reply using the sender's email address. 
> 
> This footnote confirms that this email message has been scanned for
> computer viruses. EIG-Ansvar Limited does not accept liability for any
> loss or damage, whether caused by our own negligence or not, that
> results from a computer virus or defect in the transmission of this
> email or any attached file. 
> 
> EIG-Ansvar Limited - Australia (A.B.N. 21 007 216 506)
> Email : insure@xxxxxxxxxxxxxxxx
> 
> Eig-Ansvar Limited - New Zealand
> Email : insure@xxxxxxxxxxxxxxxx
> 
> ************************************************************************
> *********************************
> -- 
> 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.
> 
> 



                
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com