[WEB400] Re: Displaying standard-out

[Hans Boldt <boldt@xxxxxxxxxx>]

Bob Cozzi wrote:
> Han's, would the old output from calls to QtmhWrStout (in RPG IV)still
> be there if you called that program?
> Also, could we just do this?
>
>  D GetChar      PR     10u0   Extproc('getchar')
>
>  C          CallB 'QtmhWrStout' .... Blah, blah, blah
>
>  C* end of program.
>  C          CallP  GetChar()
>
> And get the same result?

Apparently not.  It would appear that the stream written to by
QtmhWrStout() is not the same as the stdout written out by C.  The
program I posted simply displays the Stdout session and waits for
user input before exiting.  Off-hand, I'm not sure if there's an
easy way to see the QtmhWrStout stream from the terminal.  (Hmmm,
that's got to play havoc with porting CGI scripts in other
languages, like Perl, to the iSeries!)

The corresponding program in RPG to display the Stdout session would
look something like this:
-----------------------------------------------------
H dftactgrp(*no) bnddir('QC2LE')
D putchar         pr            10i 0 extproc('putchar')
D   char                        10i 0 value
D getchar         pr            10i 0 extproc('getchar')
  /free
     putchar(x'0d');
     getchar();
     *inlr = *on;
  /end-free
-----------------------------------------------------

Cheers!  Hans