AW: Converting *ENTRY PLIST to a prototype.

[Werner Noll <werner.noll@xxxxxxxxx>]

Have a look on my example for V5R2:

D pgmname         PR                  ExtPgm('pgmname')             
D  p$GASS                             Like($GASS)                   
D  r$GEMDS                            Like($GEMDS) Options(*NoPass) 

D $GASS         E DS                  ExtName(YGASS)  Qualified  
D $GEMDS        E DS                  ExtName(YGEMDS) Qualified  

D PgmName         PI                                                 
D  p$GASS                             Like($GASS)                    
D  r$GEMDS                            Like($GEMDS) Options(*NoPass)  

YGASS and YGEMDS are PFs used to describe the DS $GASS an $GEMDS, where
$GASS is an input parameter and $GEMDS an output parameter, but this effects
nothing in the specification.

The keyword "Qualified" is an option; if specified, you must use the
fieldnames qualified (e.g. $GASS.FieldA).

Regards,
GEFIS Gesellschaft für
Individual-Software mbH
Werner Noll

-----Ursprüngliche Nachricht-----
Von: Smith, Nelson [mailto:NSmith@xxxxxxxxxxx]
Gesendet: Mittwoch, 30. April 2003 17:00
An: 'RPG programming on the AS400 / iSeries'
Betreff: Converting *ENTRY PLIST to a prototype.


If one of the parameters on a *ENTRY PLIST is an externally-defined data
structure, how would that be defined on the prototype?


****************************************************************************
****************************************************************************
****************************************************
This message originates from Lincare Holdings Inc. It contains information
which may be confidential or privileged and is intended only for the
individual or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the
contents of this message. 
All personal messages express views solely of the sender, which are not to
be attributed to Lincare Holdings Inc., and may not be copied or distributed
without this disclaimer. 
If you received this message in error, please notify us immediately at
MailAdmin@xxxxxxxxxxx or (800) 284-2006.
****************************************************************************
****************************************************************************
****************************************************

_______________________________________________
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.cgi/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.