AW: return value of a rpg program

["Knezevic, Mihael" <m.knezevic@xxxxxxxx>]

hi,

i wanted to share my experience with this problem.

the compilation worked out just fine. but i hat trouble with the binding 
(CRTPGM).

the service program QZHBCGI in library QHTTPSVR exists in our environment, but 
CRTPGM fails.

i found an example of using stdout on the ibm site

http://www-1.ibm.com/servers/eserver/iseries/software/http/examples/samplerpg/rpg_demo.htm

and it uses the service program QTMHCGI in the library QTCP. that one did the 
job and i had a program i could use and execute.

> -----Ursprüngliche Nachricht-----
> Von: Scott Klement [mailto:klemscot@xxxxxxxxxxxx] 
> Gesendet: Donnerstag, 8. April 2004 10:04
> An: RPG programming on the AS400 / iSeries
> Betreff: Re: return value of a rpg program
> 
> 
> 
> 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...
> _______________________________________________
> 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.
> 
>