[Info-vax] /END=label

Marc Van Dyck marc.gr.vandyck at invalid.skynet.be
Fri Aug 31 11:35:37 EDT 2018


Phillip Helbigundress to reply pretended :
> In article <pm1abq$r09$1 at dont-email.me>, Dave Froble
> <davef at tsoft-inc.com> writes: 
>
>> What you're doing, as I understand it, is invoking a program from DCL, 
>> and then exiting the program.  
>
> $ RUN PROGRAM
> $ IF $STATUS .EQS. END THEN GOTO END_HANDLING
>
>> Personally, I find testing the result of 
>> the program exit, and taking appropriate action, rather elegant.
>
> My impression is that he is not calling the program from a DCL 
> procedure, but rather from the DCL command line, as a DCL verb.  So 
> there is no fallback to a DCL GOTO after the program exits.

Yes it is implemented as a DCL command. And yes, if embedded in a
command procedure, I can test $STATUS and take action from that.
I would just be able to do

$ <my dcl command with parameters> /END=label
.
.
.
$label:

Rather than

$ <my dcl command with parameters>
$ IF $STATUS .EQ. end THEN GOTO label
.
.
.
$label:

Just like the DCL READ command does.

Simple, eh ?

-- 
Marc Van Dyck



More information about the Info-vax mailing list