RE: RPG-FREE calling CL program

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Bruce,
If you don't want to write wrapper CL program around the RTVNETA command,
you could use the C functions (that wrap the MI instructions) or the RPG
xTools service program to get the network attributes. For example:

      /COPY qcpysrc,sysvalue
.....DName+++++++++++EUDS.......Length+TDc.Functions+++++++++++++++++++
     D SysName         S             10A   
     D SrlNbr          S             10A   
.....CSRn01..............OpCode(ex)Extended-factor2++++++++++++++++++++
     C                   eval      SysName = GetSysName()
     C                   eval      SrlNbr = GetSrlNbr()

-Bob Cozzi
www.rpgxtools.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bruce Odum
Sent: Wednesday, June 23, 2004 8:49 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: RPG-FREE calling CL program

Your correct I have never used it for anything else but to call a
program passing parms or a command passing parms never expecting to
receive a value back.

Bruce Odum
bodum@xxxxxxxxxxxx
(423) 510-3821

4080 Jenkins Rd.
Chattanooga, TN 37421



-----Original Message-----
From: Simon Coulter [mailto:shc@xxxxxxxxxxxxxxxxx] 
Sent: Wednesday, June 23, 2004 8:52 AM
To: RPG programming on the AS400 / iSeries
Subject: 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.


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