AW: PLIST in free form

Hi,

The magic word is prototyping.
You need a procedure interface that replaces the *ENTRY PLIST
And a prototype that is an exact match of the procedure interface and that
must be embedded in the programm and in each module from which the program
will be called:

Prototype:
D MyPGM PR EXTPGM('MYPGM)
D Par1 10A
D Par2 Like(Field2)

Procedure Interface
D MyPgm PI
D Par1 10A
D Par2 Like(Field2)

Call in free format:
/Free
MyPGM(MyPar1: MyPar2);

/End-Free

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Alan Shore
Gesendet: Friday, August 24, 2007 20:12
An: RPG programming on the AS400 / iSeries
Betreff: PLIST in free form


Afternoon all
At the moment I'm having trouble with the internet so I am hoping someone
can help me out Now that we are on V5R4, I have finally decided to hold my
nose and jump into using free-form. I am sure that I have seen a way to
introduce parameters into a program without using PLIST

Thanks in advance



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill