Re: external program call from a subprocedure in /free

[rob@xxxxxxxxx]

Aha!  It's a combination of two factors:
1)  EXTPGM
2)  No parameters defined

Instead of this:
D AA47R001        PR

Try this:
     D AA47R001        PR                  extpgm('AA47R001')
     D  MyParm                             like(P1USER)


Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 





fkany@xxxxxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/22/2003 01:47 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG400-L@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        external program call from a subprocedure in /free



I'm trying to call an external program from a subprocedure using /FREE.
The program I want to call the external program is having trouble
compiling.  I'm pretty sure I have it coded wrong since I've never done
anything like this before.  Can anyone send me an example of how the code
is supposed to look or what is needed to call an external program with a
parm.

TIA,

Frank

Here's a snippet of what I have so far:

D AA47R001        PR

P PROCEDURE1      B
/FREE

CALLP AA47R001(P1USER);

/END-FREE
P PROCEDURE1      E



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