Re: return value of a rpg program

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi Hans,

[SNIP]
> > $myvar = `system myrpgprogram`;
[SNIP]
> BTW, I believe the result of executing the expression `system
> myrpgprogram` is the return code from performing the specified command
> (that is, a success/failure indication), not the output of the command.
> Although a "return code" of a sort was set by RPG III programs (if I'm
> not mistaken), I'm not sure if it is set by RPG IV programs.

The "backquote substitution" that he's doing actually is intended to take
the data that a program writes to stdout and load it into the variable.
In this case, he's running the QShell "system" utility which invokes a CL
command.  The output of the CL command is then stored in $myvar in the
perl script.

See my message to the original poster for an example that worked in my
quick testing...