RE: RPG-FREE calling CL program

["Eavers, Chuck" <Chuck_Eavers@xxxxxxxxx>]

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.