AW: RPG-FREE calling CL program

Simon,

in this case you must use the QWCRNETA API.
It's a little bit tricky. You can have my code example offline.
Regards,
Werner Noll

-----Ursprüngliche Nachricht-----
Von: Simon Coulter [mailto:shc@xxxxxxxxxxxxxxxxx]
Gesendet: Mittwoch, 23. Juni 2004 14:52
An: RPG programming on the AS400 / iSeries
Betreff: Re: RPG-FREE calling CL program



On 23/06/2004, at 9:19 PM, Bruce Odum wrote:

> You can also use the QC2LE function System
>
>  *  Prototype for 'system'
> d System          PR            10I 0 ExtProc('system')
> d  CmdText                        *   Value Options(*String)
> d RtnCode         S             10I 0 Inz(0)
>
> RtnCode = system('rtvneta sysname(sysname)');

This won't work. system() and QCMDEXC and QCAPCMD can run only those 
commands that have ALLOW(*EXEC) specified. No RTVxxx command has 
ALLOW(*EXEC). Think about it ... you are passing a character string to 
system() ... how do you suppose it will address a variable?

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         AS/400 Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------


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