Re: RPG-FREE calling CL program

Hi Chuck,

This won't work - for a few reasons.

1. As with the previous prototype, the object name must be in uppercase.
Object names are case sensitive.

         d ExeCL           pr                  extpgm('QCMDEXC')

2. Syntax of the call is incorrect. It must correspond to the prototype. It
should be:-

           ExeCL('rtvneta sysname(sysname)':23);

3. RTVNETA cannot be used in this context. It can only be used in a CL
program to retrieve information into a CL variable.

4. If you want to eliminate the CL program, you need to use the Retrieve
Network Attributes API (QWCRNETA).

HTH

Paul Tuohy

----- Original Message -----
From: "Eavers, Chuck" <Chuck_Eavers@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, June 22, 2004 10:24 PM
Subject: RE: RPG-FREE calling CL program


> That work, Thanks
>
> Was also trying this process also.  Was trying to eliminate calling of
> the CL program.
>
> d ExeCL           pr                  extpgm('qcmdexc')
> d  cmd                         512a   options(*varsize)
> d                                     const
> d  cmdlen                       15p 5 const
>
> d  sysnam         s              8
>
>  /free
>
>     qcmdexc rtvneta sysname(sysnam)
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bryan Yates
> Sent: Tuesday, June 22, 2004 5:10 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: RPG-FREE calling CL program
>
> Is the extpgm keyword case sensitive? extpgm('RTVSYSNM') instead of
> extpgm('rtvsysnm')
>
> Bryan Yates
> SR Systems Analyst/Programmer
> Information Information Technology
> Collin County Government
> http://www.collincountytexas.gov
> mailto:byates@xxxxxxxxxxxxxxxxxxxxx
>
> -----Original Message-----
> From: rpg400-l-bounces+byates=co.collin.tx.us@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces+byates=co.collin.tx.us@xxxxxxxxxxxx] On Behalf
> Of Eavers, Chuck
> Sent: Tuesday, June 22, 2004 4:01 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RPG-FREE calling CL program
>
> I'm trying to retrieve system name from a in-house CL program.  It works
> fine when I don't do RPG Free, but I wish to use RPG Free for this.
> Below is a sample of my test.
>
> d rtvsysnm        pr                  extpgm('rtvsysnm')
> d  val1                          8
>
> d  sysname        s              8
>
>  /free
>
>     callp  rtvsysnm(sysname);
>
>     *inlr = *on;
>
>  /end-free
> --
> 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.
>
>
> --
> 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.
>