topic editing a file in tpu editor within a command deck in Operating System - OpenVMS

editing a file in tpu editor within a command deck

Mary Monaghan — Tue, 20 May 2008 08:47:41 GMT

when I edit a file using tpu from within a command deck how can I set the screen width to be 132 automatically so the user does not have to enter it.

can I pass it with the edit command

$edit/tpu test.txt

Re: editing a file in tpu editor within a command deck

Wim Van den Wyngaert — Tue, 20 May 2008 08:55:31 GMT

Before starting the editor do "set term/wi=132". TPU will set the width itself based upon the current width.

Wim

Re: editing a file in tpu editor within a command deck

Robert Gezelter — Tue, 20 May 2008 09:15:14 GMT

Mary,

I concur with Wim, do the SET TERMINAL command.

However, I would STRONGLY recommend that before setting the terminal width, the command procedure should use F$GETDVI to store the current width in a DCL symbol. After the editing session is complete, the prior width setting should be restored.

Also, if this is a general procedure, I would consider using a logical name to select which editor is used. Having an underlying name in the group or system logical name table could provide a default of TPU (see my OpenVMS Technical Journal paper "Inheritance Based Environments in Stand-alone OpenVMS Systems and OpenVMS Clusters", abstract and links at http://www.rlgsc.com/publications/vmstechjournal/inheritance.html, for examples and the concepts of defaulting).

- Bob Gezelter, http://www.rlgsc.com

Re: editing a file in tpu editor within a command deck

Karl Rohwedder — Tue, 20 May 2008 09:30:35 GMT

To support Roberts idea:
It is not obvious to the casual user, that the terminal width can be obtained with:

$ old_width= F$GETDVI("TT","DEVBUFSIZ")

regards Kalle

Re: editing a file in tpu editor within a command deck

Mary Monaghan — Tue, 20 May 2008 09:42:58 GMT

thanks for the help, one more question when to user exit's or quits from the edit, the screen gets set back to 80 but then it never seems to get to the menu

It just comes back with
$ TYPE SYS$INPUT

and takes input from the screen

$set term/width = 132
$edit/tpu test.txt /read_only
$set term/width 80
$ goto menu

Re: editing a file in tpu editor within a command deck

Karl Rohwedder — Tue, 20 May 2008 09:49:31 GMT

You should assign sys$input (which comes from the DCL procedure) to your terminal to allow for edit commands, e.g.

$ 1: inquire ok ! here is your menu instead
$ assign /user sys$command sys$input
$ edit/read sys$login:login.com
$ goto 1

Where does the TYPE SYS$INPUT come from?

regards Kalle

Re: editing a file in tpu editor within a command deck

Wim Van den Wyngaert — Tue, 20 May 2008 09:50:26 GMT

On my VMS 7.3 it's working.

Did you do define (/users) sys$input sys$command somewhere in the command procedure ? Without /user it will stay active ... when you go to the menu.

BTW : You can also use /init=file and put tpu commands in "file". I do "tpu set (mouse,off) in it. Thus I can use cut/paste in tpu.

Wim

Re: editing a file in tpu editor within a command deck

Mary Monaghan — Tue, 20 May 2008 09:57:32 GMT

thanks for all you help , I'm sorted

Re: editing a file in tpu editor within a command deck

Mary Monaghan — Tue, 20 May 2008 11:09:44 GMT

thanks

Re: editing a file in tpu editor within a command deck

John Gillings — Tue, 20 May 2008 20:57:12 GMT

Rather than save and restore the terminal width outside, why not get TPU to do it for you? The EVE command SET WIDTH 132 will force the width to 132 characters, and restore it (if necessary) on exit.

There are numerous ways to do this.

1) Using an EVE initialization file:

$ CREATE WIDTH.EVE
SET WIDTH 132
^Z
$ EDIT/TPU/INIT=WIDTH.EVE TEST.TXT

2) Using a TPU command file

$ CREATE WIDTH.TPU
EVE_SET_WIDTH(132);
^Z
$ EDIT/TPU/COMMAND=WIDTH.TPU TEST.TXT

If you don't want to create an extra file, you can even use PIPE!

$ PIPE WRITE SYS$OUTPUT "EVE_SET_WIDTH(132);" | -
(DEFINE/USER SYS$INPUT SYS$COMMAND ; -
EDIT/TPU/COMMAND=SYS$PIPE TEST.TXT)

Re: editing a file in tpu editor within a command deck

Wim Van den Wyngaert — Mon, 26 May 2008 14:55:38 GMT

John's solution is not doing the same thing. The width is indeed set to 132 within tpu but if you start typing words you will notice that justification is still done at column 80. You also need to do "set right 132" .

Wim