>Hi,

>This was good to know, but unfortunately does not work as expected. I mean that
a >job that has two out files does not (necessarily) returns the 'fresh' one. In
the >example bellow you can see that I get the old (previous millennium...)
file.
>See the prints:

>:so j13049

>DEV/CL   DFID       JOBNUM  FNAME    STATE FRM SPACE RANK PRI #C
>LP       #O18314    #J13049 $STDLIST READY         16    D 1   1
>LP       #O34695    #J13049 $STDLIST OPENED       256      1   1
>2 FILES (DISPLAYED):

 <snip>

 While the attached command file will not resolve the above situation, it may be
 of some help to some
 people that may have a 'similar' requirement of 'retrieving' the fully
qualified spool file name for some
 custom site processing.

 Cut and paste the following and save it on your HP with a name of your choice.

 Regards
 Paul H. Christidis

 <<Start cut *+1
parm banner_name="?" filename="_spool_fname"
parm job_number="#!hpjobtype!hpjobnum"
if (setvar( _spf_banner,UPS("!banner_name")) = "?") then
 echo
 echo Usage: ![finfo(hpfile,"fname")]  Banner_name [_Spool_fname] &
              [Job_number]
 echo
 echo  Banner_name - File designator name for the desired spool file.
 echo       In the file equation "File x=report01;dev=lp;cctl"
 echo       "report01" is the banner or 'filedes' name.  If multiple
 echo       reports with the same banner name exist then this command
 echo       file will ONLY return the first one.
 echo
 echo  _Spool_name - Optional CI variable name that will hold the fully
 echo       qualified name of the spool file.  If one is NOT specified
 echo       the default CI variable of '_Spool_fname' will be used.
 echo
 echo  Job_Number  - Optional parameter indicating the job/session no.
 echo       that created the indicated spool file.
 echo       The default is the 'current' job/session number.
 echo
 echo   NOTE:  Steps MUST be taken, outside this command file, to remove
 echo    the spool file if duplicate banner names are possible.  If an
 echo    error occurs the spoolfile name is set to: "$NULL.OUT.HPSPOOL".
 echo
 deletevar _spf_banner
 return
endif
setvar _spf_currjob "#" + "![UPS("!Job_Number") - "#"]"
setvar hpcierr 0
listspf o@;seleq=[jobnum=!_spf_currjob and filedes=!_spf_banner] >$newpass
if hpcierr <> 0 then
   setvar _spf_spid_text "$NULL     "
else
   print $oldpass;start=4;end=4;out=$newpass
   input _spf_spid_text < $oldpass
endif
setvar !filename RTRIM(LTRIM(LFT(_spf_spid_text,10) - "#"))+".OUT.HPSPOOL"
echo The spoolfile for report "!_spf_banner" is: [![!filename]]
deletevar _spf_@
<<End cut *-1