--- J Dolliver <[log in to unmask]> wrote:
> You could set this function up in a job stream and have it
> kicked off in SYSSTART then you will never forget it.
yup....i do exactly that. the following script is called from a job
that's part of my system start-up process:
========================
setvar _dat_program "devctrl.mpexl.telesup "
setvar _dat_compress_const " compression="
setvar _dat_eject_const " eject="
setvar _dat_values "xed"
setvar _dat_enable "enable "
setvar _dat_disable "disable "
setvar _dat_eof finfo(HPSTDIN,"eof")
while setvar(_dat_eof,_dat_eof-1) >= 0
input _datrec
setvar dwns(_datrec)
if word(_datrec,,1) = "*"
setvar _dat_ldev word(_datrec,,2)
setvar _dat_compress word(_datrec,,3)
setvar _dat_eject word(_datrec,,4)
# validate compress and eject values
if pos(_dat_compress,_dat_values) > 0 and &
pos(_dat_eject,_dat_values) > 0
# start building command string
setvar _dat_cmd "!_dat_program"+"!_dat_ldev"
if _dat_compress <> "x"
# add in compression
setvar _dat_cmd _dat_cmd+_dat_compress_const
if _dat_compress = "d"
setvar _dat_cmd _dat_cmd+_dat_disable
else
setvar _dat_cmd _dat_cmd+_dat_enable
endif
endif
if _dat_eject <> "x"
# add in eject
setvar _dat_cmd _dat_cmd+_dat_eject_const
if _dat_eject = "d"
setvar _dat_cmd _dat_cmd+_dat_disable
else
setvar _dat_cmd _dat_cmd+_dat_enable
endif
endif
echo !_dat_cmd
!_dat_cmd
else
echo Invalid devctrl option for !_datrec
endif
endif
endwhile
deletevar _dat@
========================
the following is the input file:
========================
This file should contain a list of all 'dat'
(class name) drives on the system. An asterick in
column 1 indicates the drives noticed by devctrl.
Devctrl takes four parameters: 1) Ldev number, 2)
Compression, 3) Eject and 4) Load. For this file,
option #4 is not addressable. Acceptable values for
options #2 and #3 are: x - no change
e - enable
d - disable
Ldev Comp Eject
-----------------------
* 7 e e
* 8 e e
* 11 e e
* 12 e e
* 22 e e
80 e x
81 e x
========================
the job line is:
!xeq setup.dattape < datctrl.dattape
hth - d
Donna Garverick, HP-CSA Sr. System Programmer
dgarverick -at- longs -dot- com
925-210-6631 Longs Drug Stores
Come, my friends, 'Tis not too late to seek a newer world.
Tho' much is taken, much abides; and tho'
We are not now that strength which in old days
Moved earth and heaven, that which we are, we are.
"Ulysses", A. Tennyson
>>>MY opinions, not Longs Drug Stores'<<<
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|