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:
Mike Williams <[log in to unmask]>
Reply To:
Mike Williams <[log in to unmask]>
Date:
Wed, 7 Mar 2001 14:52:21 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (41 lines)
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