USER DEFINED COMMAND FILE:  STOREERR.CMDFILE.SYS

parm die="n", p1=" "
comment &1 TELL/TELLOP MSG DEPENDING ON VALUE OF STOREJCW
comment  STOREERR is a command file that can be used after the
comment           STORE, RESTORE or VERIFY command file.
comment           It checks the STOREJCW value and tells/tellops
comment           the user & operator indicating that the operation
comment           had an error.
comment           If die is set to "y", a EOJ or BYE is issued.
comment           Example:
comment                    :store @;*t;show
comment                    :STOREERR
comment
showjcw
showtime
continue
if bound(storejcw) then
if !storejcw > 0 and !storejcw < 7  then
 SHOWJCW
 showvar
 listeq
 setvar msg " Store/Restore Failed with JCW error !storejcw "
 SETVAR TELLx "Tell !hpuser.!hpaccount  "
 setvar tellx "!tellx " + "!msg"
 setvar tellxop "tellophi " + "'!msg'"
!tellx
!tellxop
if !storejcw = 1 then
 setvar errmsg " Syntax Error   "
 setvar correctmsg " Correct and re enter "
 endif
if !storejcw = 2 then
 setvar errmsg " Error in opening system resource   "
 setvar correctmsg " Purge some files or perform disc space recovery "
 endif
if !storejcw = 3 then
 setvar errmsg " Error in opening indirect file   "
 setvar correctmsg " Check access to your indirect file "
 endif
if !storejcw = 4 then
 setvar errmsg " Error in opening Tape file   "
 setvar correctmsg " Check file equation for tape "
 endif
if !storejcw = 5 then
 setvar errmsg " Error scanning the files   "
 setvar correctmsg " Are your file names spelled correctly ? "
 endif
if !storejcw = 6 then
 setvar errmsg " Error in actually storing,restoring or verifying files
"
 setvar correctmsg " Try again and contact System Manager "
 endif
if !storejcw = 7 then
 setvar errmsg " Error File name not found on disc or tape   "
 setvar correctmsg " Did you name the file correctly ?     "
 endif
if !storejcw = 8 then
 setvar errmsg " Error File tried to Store/Restore was in use   "
 setvar correctmsg " Wait until the file is not in use or Tape problem"
 endif
 setvar tellx "!tellx  " + "!errmsg"
 setvar tellxop "tellophi   " + "'!errmsg'"
!tellx
!tellxop
 setvar tellx "!tellx  " + "!correctmsg"
 setvar tellxop "tellophi  " + "'!correctmsg'"
!tellx
!tellxop
RUN EVENTLOG.UTIL.SYS;INFO="!hpjobname,55, Restore/Store
failed.JCW=!storejcw"
if ups("!die") = "Y" or "!hpjobname"="BACKUP" then
 if "!hpjobtype" = "S" then
  exit
  bye
 endif
 if "!hpjobtype" = "J" then
      tellop; Store/Restore Failed , check Stdlist ??
      escape
  exit
  EOJ
 endif
endif
deletevar tel@, msg@, correctmsg
else
 SETVAR TELLx "Tell !hpuser.!hpaccount  "
 SETVAR TELLOPx "Tellophi !hpuser.!hpaccount  "
 setvar tell tellx + "Store/Restore/Vstore Completed. "
 setvar tellop tellopx  + "Store/Restore/Vstore Completed. "
!tellx
!tellopx
deletevar tel@
endif
endif 

-----Original Message-----
From: Reggie Monroe [mailto:[log in to unmask]] 
Sent: Thursday, October 19, 2006 10:33 AM
Subject: restore

We are attempting to set up a job to do a restore. We would like have it
verify that the files were all restored. Is there an error code we can
check for and what would the syntax be for that.
 
Regards
 
Reginald Monroe
Systems Engineering
Mercury Insurance - Information Technology
(714) 671-6753
[log in to unmask]
 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *