Re: RPG-FREE calling CL program

["Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>]

Hi Chuck,

Is the problem that it doesn't find the program?

Try putting the program name in upppercase - object names are case
sensitive.

d rtvsysnm        pr                  extpgm('RTVSYSNM')

HTH

Paul Tuohy

----- Original Message -----
From: "Eavers, Chuck" <Chuck_Eavers@xxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, June 22, 2004 10:00 PM
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.