A.4 Running Dectpu From An Openvms Subprocess; A–4 Procedure To Run Dectpu From A Subprocess - Compaq DEC Text Processing Utility (DECTPU) Guide Manual

Guide to the dec text processing utility

Table of Contents

A.4 Running DECTPU from an OpenVMS Subprocess

Example A–4 shows one way of running DECTPU from a subprocess. It also

shows how to move to or from the subprocess.

Example A–4 Procedure to Run DECTPU from a Subprocess

!DCL command procedure to run DECTPU from subprocess

!Put $ e = "@keptedit"

!in your login.com. This spawns the editor the first time

!and attaches to it after that. I have defined a key to be

!"attach" so it always goes back to the parent.

$ tt = f$getdvi("sys$command","devnam") - "_" - "_" - ":"

$ edit_name = "Edit_" + tt

$ priv_list = f$setprv("NOWORLD, NOGROUP")

$ pid = 0

$10$:

$ proc = f$getjpi(f$pid(pid), "PRCNAM")

$ if proc .eqs. edit_name then goto attach

$ if pid .ne. 0 then goto 10$

$spawn:

$ priv_list = f$setprv(priv_list)

$ write sys$error "[Spawning a new Kept Editor]"

$ define/nolog sys$input sys$command:

$ t1 = f$edit(p1 + " " + p2 + " " + p3 + " " + p4 + " "

+ p5 + " " + p6 + " " + p7 + " " + p8,"COLLAPSE")

$ spawn/process="''edit_name'" /nolog edit/tpu 't1'

$ write sys$error "[Attached to DCL in directory ''f$env("DEFAULT")']"

$ exit

$attach:

$ priv_list = f$setprv(priv_list)

$ write sys$error "[Attaching to Kept Editor]"

$ define/nolog sys$input sys$command:

$ attach "''edit_name'"

$ write sys$error "[Attached to DCL in directory ''f$env("DEFAULT")']"

$ exit

A.4 Running DECTPU from an OpenVMS Subprocess

Sample DECTPU Procedures

Sample DECTPU Procedures A–7

Table of Contents

Dec text processing utility Dectpu