HP3000-L Archives

March 2001, Week 1

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:
Art Bahrs <[log in to unmask]>
Reply To:
Art Bahrs <[log in to unmask]>
Date:
Wed, 7 Mar 2001 07:44:25 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (60 lines)
Hi Mike :)
   Quick call Dell at 1-800-682-0200 and chat about scripts and macros... if
he hasn't written it already... he can point out ways to achieve it ... if
it can be done :)

Art "TechSupport is your Friend :) hehe" Bahrs

----- Original Message -----
From: "Mike Williams" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Wednesday, March 07, 2001 6:52 AM
Subject: [HP3000-L] Viewing terminal settings in Minisoft


Hi,

Does anyone know how I would go about viewing the terminal settings from a
script in Minisoft?

I have a command file and COBOL macro which can set the number of display
rows to a specified value (see end of email).

These work fine in both Minisoft and Reflections, but they do not include
any way of resetting the display rows back to the original value. In order
to do this, I will need to first read how many rows are currenly displayed.

In Reflections, I can use the command "Verify DISPLAY_ROWS" to get this, but
there doesn't seem to be any equivalent within Minisoft.

Anyone got any ideas?

Thanks.

Michael Williams.

-----------------------------------

Command file:
     parm rows="24"
     setvar rw_esc chr(27)
     setvar rw_init "!rw_esc"+"&oF"
     setvar rw_command_set "Set DISPLAY-ROWS " + "!rows"
     echo !rw_init!rw_command_set

COBOL macro:
      1   RCROW.
       3    ROW-SET.
        5     FILLER                  PIC X           VALUE %33.
        5     FILLER                  PIC X(4)        VALUE "&oF ".
        5     FILLER                  PIC X(17)
              VALUE "SET DISPLAY-ROWS ".
        5     ROW-NUMBER              PIC 999.
     *
     $DEFINE %ROWS=
     *
          MOVE !1                     TO ROW-NUMBER.
     *
          DISPLAY ROW-SET.
     #

ATOM RSS1 RSS2