RE: How to replace a simple program call in /FREE ?

[jrc@xxxxxxxxxx]

You need to prototype your CALL and use CALLP.  Since this is an external 
program, use the EXTPGM option on the prototype like so...

 d myNewName       pr           256    extpgm('PROGRAM1') 
 d  Parm1                                  like(myParm1)
 d  Parm2                                      like(myParm2)

 /free
    myNewName( myParm1 : myParm2 );
 /end-free

Two things of note: you notice I did not actually use the callp opcode.  If you 
do not need an extender it is assumed that you are using callp when it 
encounters a procedure name.  Secondly, a nice benefit of this approach is that 
I can rename the program so that it makes since when I use it!

Here is a real example of a program with no parms...

d createFile      pr                  extpgm('PICINITS') 

...

 /free
   createFile(); 
 /end-free


Hope this helps,

Joel
http://www.rpgnext.com



>-----Original Message-----
>From: Michael Gottlieb [mailto:gottlm@xxxxxxxxx] 
>Sent: 01 July 2003 20:04
>To: RPG400-L@xxxxxxxxxxxx
>Subject: How to replace a simple program call in
>/FREE ?
>
>
>If I have a simple call to an external program,
>passing a parameter, like:
> 
> C                   CALL      'PROGRAM1'         
>        
> C                   PARM                    Parm1
>     
> C                   PARM                    Parm2
> 
>What is the easiest way to replace it in /FREE?
> 
>Many thanks,
> 
>
>
>Michael Gottlieb  
>gottlm@xxxxxxxxxxxxx
>gottlm@xxxxxxxxx
> 
>Out of every 10 people, one understands binary,
>the other doesn't.
> 
>
>
>
>---------------------------------
>Do you Yahoo!?
>SBC Yahoo! DSL - Now only $29.95 per month!
>_______________________________________________
>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.
>
>For the latest on Bertram Books products and
>services and for up-to-the-minute book news visit
>www.bertrams.com
>
>
>This e-mail and any attachments may contain
>information that is confidential and privileged
>and is solely for the use of the intended
>recipient. If you are not the intended recipient
>please notify the sender and delete this e-mail
>and any attachments immediately
>
>
>
>
>
>
>_______________________________________________
>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.
>