Re: Displaying standard-out -- WEB400

Hi Simon,

Thanks.  I am using QZHBCGI.  I changed SHWSTDOUTC to system state using SST
(offset 105C changed from x'01' to x'80' -- btw, in the MI archives, Leif
has two emails, one that says change offset 105C, the other that says change
offset 15C1), and it now indeed shows the output of my program if I call it
after calling my program.

I changed my Wrt procedure like this:

d Wrt             pi
d  WrtData                   32766a   const varying

d CRLF            s              2a   inz(x'0D25')
d Data            s          32766a
d DataLen         s              5p 0

c                   eval      DataLen = %len(WrtData) + 2
c                   eval      %subst(Data:1:DataLen) = WrtData + CRLF
c                   if        DataLen > *zero and
c                             $PGM_PARMS = *zero
c                   callp     Translate(DataLen:
c                                       Data:
c                                       'Q037101367':
c                                       'QUSRSYS')
c                   endif

c                   callp     WrtStdOut(Data: DataLen: Error)
c                   add       DataLen       PDF_loc

which seemed a little shorter and accomplishs the same thing as the changes
you suggested, and all is well.  Thanks!

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax


----- Original Message -----
From: "Simon Coulter" <shc@flybynight.com.au>
To: "Peter Dow" <maillist@dowsoftware.com>; <WEB400@midrange.com>
Sent: Sunday, August 04, 2002 12:48 AM
Subject: Re: [WEB400] Displaying standard-out


> Investigation shows that different DSM sessions are used for displaying
> the output from *USER state programs and *SYSTEM state programs.
>
> QZHBCGI (or QTMHCGI if you are still using that but you shouldn't be
> because IBM have been telling you not to use it since VRM430) is a *SYSTEM
> state service program.
>
> SHWSTDOUTC is by default a *USER state program.
>
> Therefore SHWSTDOUTC displays the user domain output which is why it does
> not display the output from QtmhWrStdout.
>
> The solution is to patch SHWSTDOUTC and make it *SYSTEM state then it will
> display the output you need.  Check the MI400-L archives, buy Leif's book,
> or STFW for information on how to do this.
>
> This situation means you need two versions of the SHWSTDOUTC program in
> order to display normal STDOUT and QtmhWrStdout STDOUT.  I am looking for
> the locations of these two separate spaces.  If I find anything I'll
> probably post the information to the MI list.
>
> The reason the first character of each line disappears is because you are
> appending an ASCII CRLF (x'0d0a') after each line.  Notice that the first
> line (containing the Content-Type tag) prints correctly?  EBCIDIC x'0a' is
> an odd character that could be many things depending on the device and the
> version of the EBCDIC table.
>
> You should be appending an EBCDIC CRLF (x'0d25') to each line and if
> sending the output to a browser then convert the whole line.