Hi Brian,
Maybe you already know this, but you can use PRINTSPF.PUB.SYS to display the
contents of input or output spoolfiles.
PRINTSPF "[FILE=]<filename>[;[START=]<startrec>] [;[END=]<endrec>]
[;[WIDTH=]<linewidth>] [;NUM]"
If I do a SHOWIN;JOB=@ I see 4 open input spoolfiles (corresponding to my 4
running jobs).
Passing one of them to PRINTSPF yields:
(You can either simply pass the I file name or a fully qualified I file name
(e.g. I5 or I5.IN.HPSPOOL)
:run printspf.pub.sys;info="I5"
PRINTSPF A.00.00 Copyright (C) Hewlett-Packard 1989. All rights reserved.
WR P1=$0000 P2=$0000 BUF/# 64= :COMMENT File: SCOPEJOB.SCOPE.SYS
WR P1=$0000 P2=$0000 BUF/# 41= :COMMENT Distributed as TEMPJOB.SCOPE.SYS
WR P1=$0000 P2=$0000 BUF/# 8= :COMMENT
WR P1=$0000 P2=$0000 BUF/# 67= :COMMENT
**************************************
WR P1=$0000 P2=$0000 BUF/# 67= :COMMENT You should make any modifications
requ
WR P1=$0000 P2=$0000 BUF/# 51= :COMMENT passwords, etc.) to allow this job
to
WR P1=$0000 P2=$0000 BUF/# 67= :COMMENT
**************************************
WR P1=$0000 P2=$0000 BUF/# 8= :COMMENT
WR P1=$0000 P2=$0000 BUF/# 25= :SETJCW VERSIONPVSERVER=0
WR P1=$0000 P2=$0000 BUF/# 9= :CONTINUE
WR P1=$0000 P2=$0000 BUF/# 36= :RUN PVSERVER;PARM=-1;INFO="VERSION"
WR P1=$0000 P2=$0000 BUF/# 26= :IF VERSIONPVSERVER>0 THEN
WR P1=$0000 P2=$0000 BUF/# 55= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 55= : TELLOP PCS + PerfView collection program
is
WR P1=$0000 P2=$0000 BUF/# 55= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 11= : CONTINUE
WR P1=$0000 P2=$0000 BUF/# 24= : RUN SCOPEXL.SCOPE.SYS
WR P1=$0000 P2=$0000 BUF/# 55= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 54= : TELLOP PCS + PerfView collection program
ter
WR P1=$0000 P2=$0000 BUF/# 55= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 5= :ELSE
WR P1=$0000 P2=$0000 BUF/# 50= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 50= : TELLOP SCOPE/XL collection program is
start
WR P1=$0000 P2=$0000 BUF/# 50= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 11= : CONTINUE
WR P1=$0000 P2=$0000 BUF/# 24= : RUN SCOPEXL.SCOPE.SYS
WR P1=$0000 P2=$0000 BUF/# 50= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 48= : TELLOP SCOPE/XL collection program
terminate
WR P1=$0000 P2=$0000 BUF/# 50= : TELLOP
*************************************
WR P1=$0000 P2=$0000 BUF/# 6= :ENDIF
WR P1=$0000 P2=$0000 BUF/# 4= :EOJ
END OF PROGRAM
REMUS:WORK.SYS:
Thanks,
Gary Robillard
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Brian Donaldson
Sent: Sunday, August 03, 2008 6:40 PM
To: [log in to unmask]
Subject: [HP3000-L] Trying To Read Input Spoolfiles Problem
I've been playing with this issue now for quite a while and am stumped as
to the solution. I hope someone out there can assist me with this problem.
Trying to read the files in IN.HPSPOOL with no success....
I do a call to GETPRIVMODE first (successful)
Then I do an FOPEN which is successful (returns file num = +0011)
My FOPEN uses the FOPTIONS returned by AIFFILEGGET (item 5012)
The AIF call was successful and gave me the FOPTIONS +000011333
which I then ran thru the BITMAPCNV utility and I got the bitmap value
00000000000000000010110001000101
The foptions are: perm file, ascii, actual designator=formal designator,
variable length, no cctl, no labeled tapes, disallow file equation, NM
spoolfile
I set my AOPTIONS to %345 (read access, share access, dynamic locking, all
other aoptions are the default).
There are seven records in the input spoolfile I was trying to look at.
My very first FREAD hits C-C > zeroes (EOF) and is not reading the records.
Can anyone tell me why I cannot read the records in the file?
TIA,
Brian.
* 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 *
|