Subject: | |
From: | |
Reply To: | |
Date: | Wed, 7 Mar 2001 14:52:21 +0000 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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.
#
|
|
|