Backuj <[log in to unmask]> wrote in article
<[log in to unmask]>...
>      I seem to recall a contributed utility back on the classics that
> would
> allow you to read the contents of input spoolfiles.  Does that
> utility exist
> for the PA-RISC machines and is there any way to get it other then
> the
> contributed library tape?  I am an Interex member, but only an
> associate.
>
> Thanx,
>    Jon Backus
>    AB&C Group
>


If you are not using MPEX or NBSpool, you can use Native Mode Spooler
Commands to do this.

Do this:
:LISTSPF @;SELEQ=[JOBNUM=#J1020]

SPOOLID    JOBNUM   FILEDES  PRI COPIES DEV      STATE  RSPFN OWNER

#O17018    J1020    $STDLIST   1      1 LP       CREATE       USER.XXXXXXXX
#O17019    J1020    PB000004   1      1 LP       CREATE       USER.XXXXXXXX
#I21       J1020    $STDIN              10       OPEN     P   USER.XXXXXXXX

Look for the SPOOLID for the $STDIN, it will start with an "I"
Then Type
:PRINTSPF I21.IN.HPSPOOL
PRINTSPF A.00.00 Copyright (C) Hewlett-Packard 1989.  All rights reserved.
WR P1=$0000 P2=$0000 BUF/#  45= :COMMENT   STREAM FILE JOBS.PUB.XXXXXXXX
TEMP
WR P1=$0000 P2=$0000 BUF/#  60= :COMMENT     STREAMED BY
XXXX,USER.XXXXXXXX,PU
WR P1=$0000 P2=$0000 BUF/#  44= :COMMENT     RUNNING PROGRAM
MAIN.PUB.VESOFT
WR P1=$0000 P2=$0000 BUF/#  43= :COMMENT     ON FRI, OCT 11, 1996, 11:07 AM
WR P1=$0000 P2=$0000 BUF/#  24= :COMMENT  Age Sex Report
WR P1=$0000 P2=$0000 BUF/#  31= :COMMENT Begin Date  = 19951001
WR P1=$0000 P2=$0000 BUF/#  31= :COMMENT End Date    = 19960930
WR P1=$0000 P2=$0000 BUF/#  24= :COMMENT Program No  = @
WR P1=$0000 P2=$0000 BUF/#  24= :COMMENT Sub Prog No = @
WR P1=$0000 P2=$0000 BUF/#  24= :COMMENT Benefit Pkg = @
WR P1=$0000 P2=$0000 BUF/#  13= :CB000004.CMD
WR P1=$0000 P2=$0000 BUF/#   9= :DEPTB0EQ
WR P1=$0000 P2=$0000 BUF/#   7= :RUNSPW
WR P1=$0000 P2=$0000 BUF/#  58= REPORT-PB000004-RPT USING
'19951001','19960930'
WR P1=$0000 P2=$0000 BUF/#  45= '006189','      ','      ','      ','
',
WR P1=$0000 P2=$0000 BUF/#  55= '      ','      ','      ','      ','
','
WR P1=$0000 P2=$0000 BUF/#  58= REPORT-PB0A0004-RPT USING
'19951001','19960930'
WR P1=$0000 P2=$0000 BUF/#  58= REPORT-PB0B0004-RPT USING
'19951001','19960930'
WR P1=$0000 P2=$0000 BUF/#   5= EXIT;
WR P1=$0000 P2=$0000 BUF/#   4= :EOD
WR P1=$0000 P2=$0000 BUF/#   4= :EOJ
:


I am not sure how to change the formating.

Michael Blackstock
Adminstrator of Technical Operations
HealthPartners Health Plans
Tucson, AZ