Lash who?

Do you know the good people at CSY actually put some thought into this
functionality, really. Other HP variables (Not HPLAST) are not allowed
to be set using SETVAR, and you are correct, that some of these
variables should not be messed with. However, IMHO, the HPLAST variables
were created for this very reason.



--
Michael Anderson
Spring Independent School District
16717 Ella Boulevard
Houston, Texas 77090-4299
office: 281.586.1105
fax: 281.586.1187
-

>>> Tracy Pierce <[log in to unmask]> 08/15/02 01:11PM >>>
Lash thyself with the wet noodle!:
IMHO Setting any HP-prefixed variable _ought_ to be disallowed unless
you're
bypassing MPE rules by using PM.  It's one thing to use HPLASTJOB as a
default, and it's uh, cute, that setting HPLASTJOB also sets the
corresponding HPLASTSPID (to exactly what?), but not cool.

Also note that minor variations on this temp-file (not message-file)
version
will display ALL of your job's output, not just the $STDLIST.

Those of you who've played with the script provided by modalto
<[log in to unmask]>and had it fail probably just need to
insert
your favorite version of his "prsp" UDC, which undoubtedly contains
PARM SPOOFLE,FIRST=1,LAST=9999999,PAGE=23
PRINT O!SPOOFLE.OUT.HPSPOOL;START=!FIRST;END=!LAST;PAGE=!PAGE

Tracy Pierce

> -----Original Message-----
> From: Michael Anderson [mailto:[log in to unmask]]
> Sent: Thursday, August 15, 2002 8:40 AM
> To: [log in to unmask]
> Subject: Re: Give me a Job Number,I give you the Stdlist Free Script
>
>
> I have a similar cmd file that I call JLIST.  By default JLIST will
> display the $STDLSIT of  !HPLASTJOB, but you can also enter the job
> number as a parm, and a ldev to print on, also optional. No
> msg file I/O
> either, because of a really neat thing about these 'HPLAST'
variables,
> when you SETVAR HPLASTJOB to a jobnumber, then HPLASTSPID is
> automagically set to that jobs $STDLIST dfid#, cool.
>
> ........................................................
> Parm jobnum='#' ldev='00'
> #
> Setvar _jobnum '!jobnum'
> If '!_jobnum' = '#' Then
>   Setvar _jobnum  str(HPLASTJOB,3,![len(HPLASTJOB)] - 2)
> Endif
> Setvar hpcierr 0
> Spoolf o@;seleq=[(jobnum=j!_jobnum) and (filedes=$stdlist)];show >
> $null
> If hpcierr > 0
>    Echo !hpcierrmsg
>    return
> Endif
> SETVAR HPLASTJOB '#J!_jobnum'
> IF FINFO('!HPLASTSPID.OUT.HPSPOOL','EXISTS') = FALSE
>    echo Standard list for job #J!_jobnum doesn't exist!
>    return
> Endif
> setvar _mpecmd 'print '+'!HPLASTSPID'+'.out.hpspool'
> If '!ldev' = '00'
>    echo !_mpecmd
>    !_mpecmd
> Else
>    File jlist;dev=!ldev
>    !_mpecmd >*jlist
> Endif
> ..............................................................
> ...........................
>
>
>
>
> >>> modalto <[log in to unmask]> 08/15/02 07:32AM >>>
> parm jobnum xtra="+"
> purge ewtmp,temp
> build ewtmp;disc=100;rec=-256,,v,ascii;nocctl;temp;msg
> showout job=j!jobnum > ewtmp
> setvar _found 0
> setvar _beg 0
> setvar _end 0
> setvar _atend 0
> setvar _afound 0
> setvar _bfound 0
> setvar _lastdfid 9999
> while finfo("ewtmp","eof") > 0 and _found = 0 do
>    input _rec < ewtmp
>    setvar _len len("!_rec")
>    setvar _tmpstr pos("#O", "!_rec")
>    if !_tmpstr > 0
>       setvar _afound 1
>       setvar _beg ( !_tmpstr + 2 )
>    endif
>    setvar _stdlist pos("STDLIST", "!_rec")
>    if !_stdlist > 0
>       setvar _jline pos("#J", "!_rec")
>       setvar _bfound 1
>       setvar _end ( !_stdlist - !_jline )
>    endif
>    setvar _displayed pos("DISPLAYED", "!_rec")
>    if !_displayed > 0
>       setvar _atend 1
>    endif
>    if !_bfound = 1 and !_afound = 1 and !_atend = 1
>       setvar _found 1
>    endif
>    if !_stdlist > 0
>       setvar _dfid str("!_rec", !_beg, !_end)
>       if _lastdfid = 9999
>          setvar _lastdfid ( !_dfid )
>       else
>          if !_dfid > !_lastdfid
>             setvar _lastdfid ( !_dfid )
>          endif
>       endif
>    endif
> endwhile
> if "!xtra" = "-"
>    setvar _dfid ( "!_dfid" + ";-22" )
> endif
> if "!_dfid" <> ""
>    prsp !_dfid
> else
>    echo *** Job Not Found, Probably on a wait ***
> endif
> deletevar _@
>
> * 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 *
>

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