Operating System - OpenVMS
1748230 Members
4169 Online
108759 Solutions
New Discussion юеВ

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

 
SOLVED
Go to solution
wang_17
Occasional Advisor

how to take "INQUIRE" effect on systartup_vms.com procedure?

i write a dcl script to do something on openvms 7.3-2,my scripts used the "INQUIRE" dcl command,i hope put my script into systartup_vms.com file,and execute it on openvms boot procedure,but i find the dcl "INQUIRE" not effect,the procedure can't interactive,how to resolve it??

help me please and thx
17 REPLIES 17
Uwe Zessin
Honored Contributor
Solution

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

The startup process is a very limited environment. I don't have any procedures handy, but if I recall correctly, I did it this way:

$ open /read/write CHN_OPA0 OPA0:
$ read /error=label CHN_OPA0 DATA /prompt="Yes? "
... process input in symbol DATA


somewhere else:
$label:
... error processing
.
comarow
Trusted Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

The simplest command is,

$if mode .es. "interactive' then set term/inq.

this is very useful for all logins.
Uwe Zessin
Honored Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

Bob,

why would anybody put that command into SYSTARTUP_VMS.COM?
.
Jan van den Ende
Honored Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

Wang,

follow Uwe s advice.
He DOES recall correctly, that is how it works for various sites I have been active, for at least the last 20 years!

Proost.

Have one on me.

jpe

Don't rust yours pelled jacker to fine doll missed aches.
Peter Quodling
Trusted Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

IF you are wanting to pass parameters to systartup_vms.com, (i.e. things that are being changed very early in the boot process) then considered coding the options in the sysgen parameters startup_px (where x is 1 to 8 (I think) The first one or two are used in startup.com for logging features, but the rest should be available to be passed through...

q
Leave the Money on the Fridge.
wang_17
Occasional Advisor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

deeply thx everyone, especially UWE, your are right, now my script good work,thx again
Jan van den Ende
Honored Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

Re Peter:

STARTUP_Px offer great flexibility.

But you better not touch P1, P2, nor P8, other than in the documented fashion.

The only values for P1 are "" (empty string) and "MIN" (minimal bootstrap).
P2 is evaluated for its Boolean value, and if true, switches on VERIFY during bootstrap. P8 is also special, but not having a VMS system at hand here, I cannot give specifications now.

Proost.

Have one on me.

jpe
Don't rust yours pelled jacker to fine doll missed aches.
Martin Vorlaender
Honored Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

Re Jan:

There are four user-defineable SYSGEN variables (two static, two dynamic), appropriately named USERD1, USERD2, USER3, and USER4.

I use USER3 to select the IP stack to boot on my support machine, like:

[SYSTARTUP_VMS.COM]
$! Selection of the TCP/IP stack
$! 0 : No TCP/IP (default)
$! 1 : TCP/IP Services 5.4
$! 2 : TCPware 5.6
$! 3 : MultiNet 4.4
$! 4 : MultiNet 5.0
$ TCPSTACK = F$GETSYI("USER3")
...
$ IF TCPSTACK .EQ. 1 THEN -
@SYS$STARTUP:TCPIP$STARTUP.COM
etc.

I got this tip from the OpenVMS Technical Journal Vol.4, http://h71000.www7.hp.com/openvms/journal/v4/using_the_sysgen_user_parameters.html .

HTH,
Martin
Antoniov.
Honored Contributor

Re: how to take "INQUIRE" effect on systartup_vms.com procedure?

Hi,
to avoid halt in bootstrap procedure, you can change Uwe's example as follow:

$ open /read/write CHN_OPA0 OPA0:
$ read /error=label/TIME=10 CHN_OPA0 DATA /prompt="Yes? "
... process input in symbol DATA


somewhere else:
$label:
sts=$status
if sts.eq.%X000181B0
then
... time-out
else
... error processing
endif

Antonio Vigliotti
Antonio Maria Vigliotti