[Info-vax] /END=label
osuvman50 at gmail.com
osuvman50 at gmail.com
Mon Aug 27 12:19:07 EDT 2018
On Monday, August 27, 2018 at 7:21:53 AM UTC-4, John Reagan wrote:
> On Monday, August 27, 2018 at 2:56:56 AM UTC-4, Marc Van Dyck wrote:
> > One last question - for now - maybe...
> >
> > In the DCL READ command, there is a qualifier /END that branches the
> > current procedure to a label if an end of file condition has been
> > reached.
> >
> > Is there a - possibly undocumented - way to implement something similar
> > in a user-written program implemented as a DCL command ?
> >
> > --
> > Marc Van Dyck
>
> The best you have it write a program that uses LIB$GET_SYMBOL, LIB$SET_SYMBOL, and/or return something via $STATUS and then have the DCL query the symbol and branch as desired. A program cannot control DCL's command processing flow from inside the program.
The program can exit via LIB$DO_COMMAND with the command being a GOTO statement.
More information about the Info-vax
mailing list