Sujet : Re: Capturing DCL output in symbol
De : mw40171 (at) *nospam* mucweb.de (hb0815)
Groupes : comp.os.vmsDate : 14. May 2025, 20:06:44
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <1002pk4$2ks95$1@dont-email.me>
References : 1 2 3 4
User-Agent : Mozilla Thunderbird
On 5/14/25 15:08, Arne Vajhøj wrote:
On 5/14/2025 5:31 AM, Lawrence D'Oliveiro wrote:
On Sat, 10 May 2025 13:40:45 +0200, hb0815 wrote:
There are limitations. This can only work if the equivalence string of
the logical name is valid, does not exceed a limit, etc.
>
You have to choose a logical name that won’t clash with any other use in
any other process in the same job, you have to remember to delete it
afterwards to avoid clutter ...
That is not so hard.
...
Dunno if it is worth the effort (but this is or can be one line):
$ sh log/job
(LNM$JOB_821AC8C0)
"MYSCRATCH" = "USR_SCRATCH:[<username>]"
"SYS$LOGIN" = "DISK_USER:[DECUSERVE_USER.<username>]"
"SYS$LOGIN_DEVICE" = "DISK_USER:"
"SYS$REM_ID" = "528C3CA5:BA72"
"SYS$REM_NODE" = "i528C3CA5"
"SYS$REM_NODE_FULLNAME" = "i528C3CA5.<myisp>"
"SYS$SCRATCH" = "DISK_USER:[DECUSERVE_USER.<username>]"
$ show symbol t
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
$
$ pipe u=""""+f$unique()+"""" ;show time |(read sys$pipe t ;qt=""""+f$fao("!AS",t)+"""" ;def/job/nolog &u &qt) ;t=f$trnlnm(&u) ;deassign/job &u
$
$ show symbol t
T = " 14-MAY-2025 14:53:51"
$ sh log/job
(LNM$JOB_821AC8C0)
"MYSCRATCH" = "USR_SCRATCH:[<username>]"
"SYS$LOGIN" = "DISK_USER:[DECUSERVE_USER.<username>]"
"SYS$LOGIN_DEVICE" = "DISK_USER:"
"SYS$REM_ID" = "528C3CA5:BA72"
"SYS$REM_NODE" = "i528C3CA5"
"SYS$REM_NODE_FULLNAME" = "i528C3CA5.<myisp>"
"SYS$SCRATCH" = "DISK_USER:[DECUSERVE_USER.<username>]"
$
Much more to type and to think about than doing this in bash. And before someone asks, /SYMBOLS is default for PIPE (as for SPAWN).