|
// -- Just guessing on the size of these... d Parm1 s 1a inz d Parm2 s 1a inz d callProgram pr extpgm('PROGRAM1') d inParm1 like(Parm1) d inParm2 like(Parm2) /free callProgam(Parm1: Parm2); /end-free David L. Mosley, Jr. Systems Analyst 2000 CentreGreen Way Suite 250 Cary, NC 27513 www.dancik.com Michael Gottlieb <gottlm@xxxxxxxxx> To: RPG400-L@xxxxxxxxxxxx Sent by: cc: rpg400-l-bounces@x Subject: How to replace a simple program call in /FREE ? idrange.com 07/01/03 04:04 PM Please respond to RPG programming on the AS400 / iSeries 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.