parm jsnum="*" jname="*" owner="*" date="*" dev="*" file="*" abort="N"
setvar sess "!jsnum"
setvar jobname ups("!jname")
setvar own ups("!owner")
setvar device ups("!dev")
setvar js ups(lft("!sess",1))
setvar sessnum "0"
if "!sess" <> "*"
  setvar sessnum str("!sess",2,len("!sess")-1)
endif
if "!sess" <> "*" and ("!js"<>"S" and "!js"<>"J" )     &
    or (("!js"="S" or "!js"="J")                &
    and not numeric("!sessnum")) or "!sess" = "?"
   echo
   echo  [SPLOOK] This command file will list or delete selected
   echo           Spoolfiles.
   echo
   #
   #     Author : John Dunlop    Date : 19/05/1999  Version : A.1
   #
   echo  Usage: SPLOOK Jxxx or Sxxx for spoolfiles by Job # or Session
#.
   echo                jname=jobname to select by jobname.
   echo                owner=user.account to select by owner.
   echo                date=ddmmyy to select by date.
   echo                dev=device name/number to select by device.
   echo                file=file name of spoolfile.
   echo                abort=x where x is N or Y. Y reports aborted
jobs.
   echo
   echo         SPLOOK ?  to display this message.
   echo
   echo  The default is SPLOOK with no parameters to list all the
   echo  spoolfiles created by the current logon id.
   echo
   #     The command file will list all spoolfiles (including input
   #     spoolfiles). The spoolfiles will be numbered on the left and
   #     this number can be used to signify which spoolfile is to be
   #     listed or deleted. Input spoolfiles can only be listed if the
   #     User has SM capability and has VESoft's MPEX package on the
system.
   #
   #     The ABORT parameter can be used to select any jobs that have
   #     terminated abnormally and can be used in conjunction with
   #     any of the other selection criteria.
   #
   #     When selecting a particular Spoolfile, inserting a "D" before
   #     the selected spoolfile line number will delete that spoolfile
   #     if the User has the appropriate capabilities.
else
  if ups("!own") = "ME"
    setvar own "!hpuser" + "." + "!hpaccount"
  endif
  setvar tdate "!date"
  if "!tdate" <> "*"
    if pos("/","!tdate") > 0
      setvar spdate str("!tdate",4,3) + str("!tdate",1,3) +
str("!tdate",7,2)
    else
      setvar spdate str("!tdate",3,2) + "/" + str("!tdate",1,2) + "/" + 
&
        str("!tdate",5,2)
    endif
  endif
  setvar hpcierr 0
  setvar hpmsgfence 1
  setvar x 0
  setvar sparms "["
  if "!sess" <> "*"
    setvar sparms "!sparms" + "jobnum=#" + "!sess"
    setvar x 1
  endif
  if "!jname" <> "*"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "jobname=" + "!jname"
    setvar x !x + 1
  endif
  if "!owner" <> "*"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "owner=" + "!own"
    setvar x !x + 1
  endif
  if "!tdate" <> "*"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "date=" + "!spdate"
    setvar x !x + 1
  endif
  if "!device" <> "*"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "dev=" + "!dev"
    setvar x !x + 1
  endif
  if "!file" <> "*"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "filedes=" + "!file"
    setvar x !x + 1
  endif
  if "!abort" <> "N"
    if x > 0
      setvar sparms "!sparms" + " and "
    endif
    setvar sparms "!sparms" + "jobabort=true"
    setvar x !x + 1
  endif
  if x = 0
    setvar sparms "[jobnum=" + "S" + "!hpjobnum"
  endif
  listspf @;seleq=!sparms] > sptemp
  if hpcierr = -4809
    if "!abort" <> "N"
      echo
      echo ====!> No Aborted Jobs found for !spdate [mm/dd/yy]
    else
      echo
      echo ====!> No Spoolfiles found for !sparms]
    endif
  else
   echo
   echo           SPOOLID    JOBNUM   FILEDES  PRI COPIES DEV     
STATE  RSPF
   echo
   print sptemp;start=4;end=-13  > sptempx
   print sptempx;num
   echo
   setvar z ""
   setvar invalid 1
   input z;prompt="Number of Spoolfile to View ? : "
   if lft(ups("!z"),1) = "D"
     setvar delflag 1
     setvar z str("!z",2,len("!z")-1)
   else
     setvar delflag 0
   endif
   if len(rtrim("!z")) > 0 and numeric("!z")
     setvar spfilen finfo("sptemp",19) - 15
     setvar y !z
     if  y > 0  and y <= !spfilen
       setvar y !z + 3
       print sptemp;start=!y;end=!y > sptemp2
       if finfo("sptemp2",19) > 0
         setvar hpmsgfence 2
         input sp < sptemp2
         setvar hpmsgfence 0
         if lft("!sp",2) = "#O"
           setvar spid rtrim(str("!sp",2,8))
           setvar invalid 0
           if delflag = 1
             echo
             setvar delsp lft("!sp",30) + str("!sp",41,15) +      &
               str("!sp",61,16)
             input del;prompt="Delete !delsp (Y/N?)"
             setvar del ups(rtrim("!del"))
             setvar spid "!spid" - "O"
             echo
             if lft("!del",1) = "Y"
               spoolf !spid;delete
               echo ** Spoolfile !spid deleted **
             else
               echo Spoolfile !spid NOT deleted
             endif
           else
             print !spid.out.hpspool
             echo
             input a;prompt="Press Return to Continue...."
           endif
         else
           if pos("SM","!hpusercapf") = 0
             setvar invalid 2
           elseif not finfo("main.pub.vesoft",0)
             setvar invalid 3
           else
             setvar spid rtrim(str("!sp",2,8)) + ".in.hpspool"
             setvar hpmsgfence 2
             run main.pub.vesoft;parm=1;info="print !spid"
             echo
             input a;prompt="Press Return to Continue...."
             setvar invalid 0
           endif
         endif
       else
         setvar invalid 1
       endif
     else
       setvar invalid 1
     endif
   endif
   setvar hpmsgfence 0
   if invalid = 1
     echo
     echo ** Invalid number or no spoolfile selected **
   elseif invalid = 2
     echo
     echo ** Sorry, you must have SM capability to read this **
   elseif invalid = 3
     echo
     echo ** You must have MPEX to read the input spoolfiles **
   endif
 setvar hpmsgfence 0
 endif
endif
setvar hpmsgfence 2
deletevar x,y,z,set@,sess,sessnum,spfilen > $null
deletevar del,delflag,spid,sparms,sp,own,tdate,spdate > $null
setvar hpmsgfence 0
purge sptemp@,temp > $null
echo