HP3000-L Archives

December 2005, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
donna garverick <[log in to unmask]>
Reply To:
Date:
Mon, 19 Dec 2005 11:59:21 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (104 lines)
--- 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 *

ATOM RSS1 RSS2