topic Re: dcl coding error in Operating System - OpenVMS

dcl coding error

adarsh_4 — Tue, 14 Oct 2008 22:19:08 GMT

i have just recently started working with vms. i have written a dcl program but it given a error, can someone please help me here.
$ SET PROC/PRIV=ALL
$ SET NOON
$ GET_NAME:
$!
$ INQUIRE NAME "Enter Username Or Exit =>"
$ IF NAME .EQS. "EXIT" THEN GOTO END_LOOP
$!
$ MC AUTHORIZE
$ MODIFY/FLAGS=DISPWDHIS 'NAME'
$ MODIFY/FLAGS=DISPWDDIC 'NAME'
$!
$ GOTO GET_NAME
$!
$ END_LOOP:
$ WRITE SYS$OUTPUT "WELL DONE"
$ EXIT

I cant seem to change the flag

Re: dcl coding error

Steven Schweda — Tue, 14 Oct 2008 22:51:48 GMT

> $ SET PROC/PRIV=ALL

> $ INQUIRE [...]

Not a good combination:

http://h71000.www7.hp.com/wizard/wiz_2216.html

Using READ on SYS$COMMAND is safer.

> $ MC AUTHORIZE
> $ MODIFY/FLAGS=DISPWDHIS 'NAME'
> $ MODIFY/FLAGS=DISPWDDIC 'NAME'

I'd expect some error messages here, which
you ought to have included.

"$ MODIFY" is treated as a separate command.
Remove the "$" to let AUTHORIZE read it.

But that won't work as you wish, because DCL
will not substitute 'NAME' that way.

You could say things like:

$ MCR AUTHORIZE MODIFY/FLAGS=DISPWDHIS 'NAME'

DCL will substitute 'NAME' that way.

Many other things are possible, too, like
writing a temporary file with the "MCR
AUTHORIZE" command and the actual AUTHORIZE
commands (like MODIFY) in it.

Re: dcl coding error

adarsh_4 — Tue, 14 Oct 2008 23:07:06 GMT

thanks man, it worked out. thanks once again. this forum is good

Re: dcl coding error

Hein van den Heuvel — Wed, 15 Oct 2008 00:27:28 GMT

So give some HP 'points'.
He loves to hate them. :-)
And consider 'closing the topic'.

btw... OpenVMS users don't do exit/bye/quit.
And they most certainly can not be bothered with uppercase/lowercase.
They just hit ^Z (control-Z) or

So at least change to:
$ IF NAME.EQS."" .OR. F$EDIT(NAME,"UPCASE").EQS."EXIT"....

Be sure check out READ/END and ON ERROR

Add don;t just SET PROC/PRIV without restting.
Check ot $HELP LEXI F$SETPRV return_value

Other then that it is just fine... :-)

Cheers,
Hein

( 0 points for this! )