Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  newsreader  groups  login

Message-ID:  

In specifications, Murphy's Law supersedes Ohm's.

computers / comp.os.vms / Re: How to detect ^Y from an inner command procedure

SubjectAuthor
* How to detect ^Y from an inner command procedurealanfe...@gmail.com
+* Re: How to detect ^Y from an inner command procedureDave Froble
|`* Re: How to detect ^Y from an inner command procedureCraig A. Berry
| `* Re: How to detect ^Y from an inner command procedurealanfe...@gmail.com
|  +- Re: How to detect ^Y from an inner command procedureSimon Clubley
|  `- Re: How to detect ^Y from an inner command procedureArne Vajhøj
`- Re: How to detect ^Y from an inner command procedureStephen Hoffman

1
How to detect ^Y from an inner command procedure

<9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28194&group=comp.os.vms#28194

  copy link   Newsgroups: comp.os.vms
X-Received: by 2002:ac8:5bc9:0:b0:3f5:b72:e778 with SMTP id b9-20020ac85bc9000000b003f50b72e778mr112316qtb.6.1684455323469;
Thu, 18 May 2023 17:15:23 -0700 (PDT)
X-Received: by 2002:a05:620a:28c1:b0:759:41f7:4688 with SMTP id
l1-20020a05620a28c100b0075941f74688mr387040qkp.14.1684455323153; Thu, 18 May
2023 17:15:23 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!1.us.feeder.erje.net!3.us.feeder.erje.net!feeder.erje.net!border-1.nntp.ord.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.os.vms
Date: Thu, 18 May 2023 17:15:22 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=74.105.0.168; posting-account=mCRRdgoAAAAonHT6WInwG1Fadnh7R0dx
NNTP-Posting-Host: 74.105.0.168
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
Subject: How to detect ^Y from an inner command procedure
From: alanfeld...@gmail.com (alanfe...@gmail.com)
Injection-Date: Fri, 19 May 2023 00:15:23 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 20
 by: alanfe...@gmail.com - Fri, 19 May 2023 00:15 UTC

Suppose you're running a command procedure from a command procedure.

$ TYPE 1.COM
$ @2.COM
$ EXIT

$ TYPE 2.COM
$ WAIT 0:00:04
$ EXIT

So 1.com runs 2.com.

Suppose you run 1.com and press ^ Y while 2.com is running. The command interpreter then exits 2.com and resumes running 1.com. Is there any way to tell from 1.com if 2.com was aborted via ^Y or just finished normally?

I thought $STATUS might help, but sometimes I get
$STATUS == "%X10000001"
and sometimes I get
$STATUS == "%X10010001"
So I guess that's not the way to go.
Is there a way to do this?
TIA.

Re: How to detect ^Y from an inner command procedure

<u46fsl$dpnf$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28195&group=comp.os.vms#28195

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: dav...@tsoft-inc.com (Dave Froble)
Newsgroups: comp.os.vms
Subject: Re: How to detect ^Y from an inner command procedure
Date: Thu, 18 May 2023 20:28:51 -0400
Organization: A noiseless patient Spider
Lines: 32
Message-ID: <u46fsl$dpnf$1@dont-email.me>
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 19 May 2023 00:29:09 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="8ab2821c6a3f135609d16d90d9e9e959";
logging-data="452335"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX180r2H4R08bKHbkzd5Urr5xB0DJt0+13F4="
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:45.0) Gecko/20100101
Thunderbird/45.8.0
Cancel-Lock: sha1:ceIjCyszxgCreE8HuTCPNaHFOgI=
In-Reply-To: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
 by: Dave Froble - Fri, 19 May 2023 00:28 UTC

On 5/18/2023 8:15 PM, alanfe...@gmail.com wrote:
> Suppose you're running a command procedure from a command procedure.
>
> $ TYPE 1.COM
> $ @2.COM
> $ EXIT
>
> $ TYPE 2.COM
> $ WAIT 0:00:04
> $ EXIT
>
> So 1.com runs 2.com.
>
> Suppose you run 1.com and press ^ Y while 2.com is running. The command interpreter then exits 2.com and resumes running 1.com. Is there any way to tell from 1.com if 2.com was aborted via ^Y or just finished normally?
>
> I thought $STATUS might help, but sometimes I get
> $STATUS == "%X10000001"
> and sometimes I get
> $STATUS == "%X10010001"
> So I guess that's not the way to go.
> Is there a way to do this?
> TIA.
>

I would start with "on error ..."

--
David Froble Tel: 724-529-0450
Dave Froble Enterprises, Inc. E-Mail: davef@tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486

Re: How to detect ^Y from an inner command procedure

<u46ggf$dpqf$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28196&group=comp.os.vms#28196

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: craigbe...@nospam.mac.com (Craig A. Berry)
Newsgroups: comp.os.vms
Subject: Re: How to detect ^Y from an inner command procedure
Date: Thu, 18 May 2023 19:39:42 -0500
Organization: A noiseless patient Spider
Lines: 38
Message-ID: <u46ggf$dpqf$1@dont-email.me>
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
<u46fsl$dpnf$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 19 May 2023 00:39:43 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="78424c82fc4d7fd424359f0a0792ae63";
logging-data="452431"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19LVi/nMzrYdJbi2VigA4I4P/CUN1fSRis="
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:102.0)
Gecko/20100101 Thunderbird/102.11.0
Cancel-Lock: sha1:2VtCHwSHKeXLaP8ecJ++M3K86sk=
Content-Language: en-US
In-Reply-To: <u46fsl$dpnf$1@dont-email.me>
 by: Craig A. Berry - Fri, 19 May 2023 00:39 UTC

On 5/18/23 7:28 PM, Dave Froble wrote:
> On 5/18/2023 8:15 PM, alanfe...@gmail.com wrote:
>> Suppose you're running a command procedure from a command procedure.
>>
>> $ TYPE 1.COM
>> $ @2.COM
>> $ EXIT
>>
>> $ TYPE 2.COM
>> $ WAIT 0:00:04
>> $ EXIT
>>
>> So 1.com runs 2.com.
>>
>> Suppose you run 1.com and press ^ Y while 2.com is running. The
>> command interpreter then exits 2.com and resumes running 1.com. Is
>> there any way to tell from 1.com if 2.com was aborted via ^Y or just
>> finished normally?
>>
>> I thought $STATUS might help, but sometimes I get
>> $STATUS == "%X10000001"
>> and sometimes I get
>> $STATUS == "%X10010001"
>> So I guess that's not the way to go.
>> Is there a way to do this?
>> TIA.
>>
>
> I would start with "on error ..."
>

You might benefit from the following in 2.com:

$ On Control_Y Then Goto Control_Y_exit
.. . .
$ Control_Y_exit:
$ $status = 1552 ! %SYSTEM-W-CONTROLY

Re: How to detect ^Y from an inner command procedure

<9ca02703-38b0-4c00-b04e-2d841d284d9en@googlegroups.com>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28198&group=comp.os.vms#28198

  copy link   Newsgroups: comp.os.vms
X-Received: by 2002:ad4:4e32:0:b0:623:8359:2085 with SMTP id dm18-20020ad44e32000000b0062383592085mr237255qvb.0.1684474760363;
Thu, 18 May 2023 22:39:20 -0700 (PDT)
X-Received: by 2002:a05:6214:b84:b0:623:8899:7d8a with SMTP id
fe4-20020a0562140b8400b0062388997d8amr250527qvb.7.1684474760142; Thu, 18 May
2023 22:39:20 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!1.us.feeder.erje.net!feeder.erje.net!border-1.nntp.ord.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.os.vms
Date: Thu, 18 May 2023 22:39:19 -0700 (PDT)
In-Reply-To: <u46ggf$dpqf$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=74.105.0.168; posting-account=mCRRdgoAAAAonHT6WInwG1Fadnh7R0dx
NNTP-Posting-Host: 74.105.0.168
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
<u46fsl$dpnf$1@dont-email.me> <u46ggf$dpqf$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9ca02703-38b0-4c00-b04e-2d841d284d9en@googlegroups.com>
Subject: Re: How to detect ^Y from an inner command procedure
From: alanfeld...@gmail.com (alanfe...@gmail.com)
Injection-Date: Fri, 19 May 2023 05:39:20 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Lines: 47
 by: alanfe...@gmail.com - Fri, 19 May 2023 05:39 UTC

On Thursday, May 18, 2023 at 8:41:34 PM UTC-4, Craig A. Berry wrote:
> On 5/18/23 7:28 PM, Dave Froble wrote:
> > On 5/18/2023 8:15 PM, alanfe...@gmail.com wrote:
> >> Suppose you're running a command procedure from a command procedure.
> >>
> >> $ TYPE 1.COM
> >> $ @2.COM
> >> $ EXIT
> >>
> >> $ TYPE 2.COM
> >> $ WAIT 0:00:04
> >> $ EXIT
> >>
> >> So 1.com runs 2.com.
> >>
> >> Suppose you run 1.com and press ^ Y while 2.com is running. The
> >> command interpreter then exits 2.com and resumes running 1.com. Is
> >> there any way to tell from 1.com if 2.com was aborted via ^Y or just
> >> finished normally?
> >>
> >> I thought $STATUS might help, but sometimes I get
> >> $STATUS == "%X10000001"
> >> and sometimes I get
> >> $STATUS == "%X10010001"
> >> So I guess that's not the way to go.
> >> Is there a way to do this?
> >> TIA.
> >>
> >
> > I would start with "on error ..."
> >
> You might benefit from the following in 2.com:
>
> $ On Control_Y Then Goto Control_Y_exit
> . . .
> $ Control_Y_exit:
> $ $status = 1552 ! %SYSTEM-W-CONTROLY

Sorry, I forgot one very important thing. I am writing a DCL command procedure that will run _others'_ procedures, but on multiple files. So I have no control over the user's file, save to copy it and add statements top and bottom.

I apologize for not being as specific as I should have been. :-| (v_v) :-(

Re: How to detect ^Y from an inner command procedure

<u47p8v$lq3b$2@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28202&group=comp.os.vms#28202

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: club...@remove_me.eisner.decus.org-Earth.UFP (Simon Clubley)
Newsgroups: comp.os.vms
Subject: Re: How to detect ^Y from an inner command procedure
Date: Fri, 19 May 2023 12:15:27 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 13
Message-ID: <u47p8v$lq3b$2@dont-email.me>
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com> <u46fsl$dpnf$1@dont-email.me> <u46ggf$dpqf$1@dont-email.me> <9ca02703-38b0-4c00-b04e-2d841d284d9en@googlegroups.com>
Injection-Date: Fri, 19 May 2023 12:15:27 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="035aeebda919dabd9716dd3e9ef28040";
logging-data="714859"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/S+K0BXx9C3o7bIlFh4RStTOMJsXDoaNs="
User-Agent: slrn/0.9.8.1 (VMS/Multinet)
Cancel-Lock: sha1:G6KSXdgGSj/2Bu6AhHj8sIxkfbY=
 by: Simon Clubley - Fri, 19 May 2023 12:15 UTC

On 2023-05-19, alanfe...@gmail.com <alanfeldman48@gmail.com> wrote:
>
> I apologize for not being as specific as I should have been. :-| (v_v) :-(

If you can't trust the person running this routine to type continue
then turn off Ctrl-Y with $ SET NOCONTROL=Y before running the user's
command procedure from your own command procedure.

Simon.

--
Simon Clubley, clubley@remove_me.eisner.decus.org-Earth.UFP
Walking destinations on a map are further away than they appear.

Re: How to detect ^Y from an inner command procedure

<u47v00$mhhb$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28204&group=comp.os.vms#28204

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: seaoh...@hoffmanlabs.invalid (Stephen Hoffman)
Newsgroups: comp.os.vms
Subject: Re: How to detect ^Y from an inner command procedure
Date: Fri, 19 May 2023 09:53:04 -0400
Organization: HoffmanLabs LLC
Lines: 21
Message-ID: <u47v00$mhhb$1@dont-email.me>
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: dont-email.me; posting-host="738f2cd1ca44d9bd17e3ba5b41fe2096";
logging-data="738859"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19iTAkJWcdgvj2J3Z9Aq0Oh1P0Yd3T/lk0="
User-Agent: Unison/2.2
Cancel-Lock: sha1:5+hK+P8HdgpIM+1vTRC8+RSMGeA=
 by: Stephen Hoffman - Fri, 19 May 2023 13:53 UTC

On 2023-05-19 00:15:22 +0000, alanfe...@gmail.com said:

> Suppose you're running a command procedure from a command procedure.
> ...
> Is there a way to do this?

Shut off ^Y. Capture the ^Y as needed.

Or run the part that can't be bothered away from the user. That can be
via DECnet task-to-task if you're hacking this stuff—see the xqtype.com
example on the OpenVMS Freeware—or run the necessarily-undisturbed DCL
via batch or detached process, or such.

IP networking isn't integrated with OpenVMS, so invoking DCL from DCL
via sockets is less than easy. DCL and the auxillary server (a.k.a.
inetd, etc) never got around to directly supporting these cases.

--
Pure Personal Opinion | HoffmanLabs LLC

Re: How to detect ^Y from an inner command procedure

<u4bl2c$17gvq$1@dont-email.me>

  copy mid

https://www.novabbs.com/computers/article-flat.php?id=28218&group=comp.os.vms#28218

  copy link   Newsgroups: comp.os.vms
Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: arn...@vajhoej.dk (Arne Vajhøj)
Newsgroups: comp.os.vms
Subject: Re: How to detect ^Y from an inner command procedure
Date: Sat, 20 May 2023 19:28:09 -0400
Organization: A noiseless patient Spider
Lines: 83
Message-ID: <u4bl2c$17gvq$1@dont-email.me>
References: <9826cbdc-fbb3-4d4e-8f59-798383652650n@googlegroups.com>
<u46fsl$dpnf$1@dont-email.me> <u46ggf$dpqf$1@dont-email.me>
<9ca02703-38b0-4c00-b04e-2d841d284d9en@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 20 May 2023 23:28:12 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="0a9b34ba649e362b6f01b01019703a4a";
logging-data="1295354"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18iusn8KKXVFoWqiMMAjF4r7w1XQSrEuxg="
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.11.0
Cancel-Lock: sha1:r1wpf00X/HBLKwJTK/+TQ5X4A38=
Content-Language: en-US
In-Reply-To: <9ca02703-38b0-4c00-b04e-2d841d284d9en@googlegroups.com>
 by: Arne Vajhøj - Sat, 20 May 2023 23:28 UTC

On 5/19/2023 1:39 AM, alanfe...@gmail.com wrote:
> On Thursday, May 18, 2023 at 8:41:34 PM UTC-4, Craig A. Berry wrote:
>> On 5/18/23 7:28 PM, Dave Froble wrote:
>>> On 5/18/2023 8:15 PM, alanfe...@gmail.com wrote:
>>>> Suppose you're running a command procedure from a command procedure.
>>>>
>>>> $ TYPE 1.COM
>>>> $ @2.COM
>>>> $ EXIT
>>>>
>>>> $ TYPE 2.COM
>>>> $ WAIT 0:00:04
>>>> $ EXIT
>>>>
>>>> So 1.com runs 2.com.
>>>>
>>>> Suppose you run 1.com and press ^ Y while 2.com is running. The
>>>> command interpreter then exits 2.com and resumes running 1.com. Is
>>>> there any way to tell from 1.com if 2.com was aborted via ^Y or just
>>>> finished normally?
>>>>
>>>> I thought $STATUS might help, but sometimes I get
>>>> $STATUS == "%X10000001"
>>>> and sometimes I get
>>>> $STATUS == "%X10010001"
>>>> So I guess that's not the way to go.
>>>
>>> I would start with "on error ..."
>>>
>> You might benefit from the following in 2.com:
>>
>> $ On Control_Y Then Goto Control_Y_exit
>> . . .
>> $ Control_Y_exit:
>> $ $status = 1552 ! %SYSTEM-W-CONTROLY
>
> Sorry, I forgot one very important thing. I am writing a DCL command
> procedure that will run _others'_ procedures, but on multiple files.
> So I have no control over the user's file, save to copy it and add
> statements top and bottom.
I think that is the way to go.

$ typ z1.com
$ ! doing something out of our control
$ write sys$output "Z1 started"
$ wait 00:00:15
$ write sys$output "Z1 done"
$ exit
$ typ z2.com
$ ! doing something out of our control
$ write sys$output "Z2 started"
$ wait 00:00:15
$ write sys$output "Z2 done"
$ exit
$ typ z.com
$ on control_y then continue
$ call wrap_and_run "z1"
$ call wrap_and_run "z2"
$ exit
$ wrap_and_run: subroutine
$ magic = 1111
$ tmpfnm = f$unique()
$ open/write f 'tmpfnm'.com
$ write f "$ on control_y then exit ''magic'"
$ copy 'p1'.com f
$ close f
$ @'tmpfnm'
$ if $status .eq. magic then write sys$output "CTRL/Y in ''p1'"
$ del 'tmpfnm'.com;*
$ return
$ endsubroutine
$ @z
Z1 started
Interrupt

CTRL/Y in z1
Z2 started
Interrupt

CTRL/Y in z2

Arne

1
server_pubkey.txt

rocksolid light 0.9.8
clearnet tor