HP3000-L Archives

February 2005, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Paul Christidis <[log in to unmask]>
Reply To:
Date:
Wed, 16 Feb 2005 15:32:44 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (60 lines)
Brian,

In one application where I've used the VTURN(on/off) pair I also call a
home grown routine to 'refresh' the current form (see below).

Regards
Paul Christidis

PROCEDURE VREFRESHFORM (COMAREA);
   INTEGER ARRAY   COMAREA;

   BEGIN
      INTRINSIC    VSHOWFORM,   VGETNEXTFORM;

       MOVE COMAREA(18) := "$REFRESH        ";
      COMAREA(0) := 0;

      VGETNEXTFORM (COMAREA);
        ERR'CHECK;

      VSHOWFORM (COMAREA);
        ERR'CHECK;

   END;



HP-3000 Systems Discussion <[log in to unmask]> wrote on 02/16/2005
02:47:17 PM:

> 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 *

ATOM RSS1 RSS2