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

[Colin Williams <colin.williams@xxxxxxxxxxxx>]

Michael,

Example below...

Replace

 C                   EVAL      WSCMD = ...
 C                   EVAL      WSLEN = ...
 C                   CALL      'QCMDEXC'                  
 C                   PARM      WSCMD         Parm1      
 C                   PARM      WSLEN         Parm2

With

DQCMDEXC          PR                  extpgm('QCMDEXC')
D  cmd                         500    options(*varsize) const
D  cmdlen                       15P 5 const

WsCmd = ...;
qcmdexc (WsCmd:%len(WsCmd));

Easy


-----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