Thanks to all who replied to my posting and gave me *invaluable* assistance.
Thank you. However, a slight problem exists, let me explain:
This app allows the user to stream jobs -- works great (excluding Vesoft's
STREAMX). When the job is streamed I capture the job number which is
shown at the top of the screen. Example:
The following has been submitted #J1234
Great! However, the way I capture the job number is to run the program to
a stdlist file (RUN pgm.group.acct;stdlist=STDFILE
When the job is streamed I open and read the stdlist file to retrieve the
job number.
Now I have introduced the concept of VTURNOFF/VTURNON to allow the user
to answer STREAMX prompts if they exist. Well, the user isn't seeing the
prompts because they are being written to the stdlist file!
So then I tried running the program without the stdlist=STDFILE.
Now I get the STREAMX prompts just fine but I am no longer getting the job
number on the screen where I expected/wanted/needed it to be. Ho hum.
Does anyone have any suggestions as to how I may solve this problem.
BTDT, anyone ??
TIA,
Brian.
On Wed, 16 Feb 2005 17:47:17 -0500, Brian Donaldson <[log in to unmask]>
wrote:
>I have a Cobol/Vplus app that allows users to maintain and stream jobs.
>
>Works fine unless the job happens to have Vesoft's STREAMX stuff in it.
>
>So, I introduced the VTURNOFF/VTURNON procedures to let the user
>provide STREAMX with the necessary prompt responses.
>
>After the job is streamed I call VTURNON. Unfortunately, the screen is
>all messed up, partially blank and just isn't behaving normally as it was
>before I called VTURNOFF.
>
>I moved the COMAREA to a working-storage hold area before calling VTURNOFF.
>After the job is streamed I move the working-storage hold area back to
>COMAREA hoping this would solve the problem but it didn't do anything for
>me.
>
>Anyone out there who knows the solution to this one?
>
>TIA,
>Brian.
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|