Hello

Don't know anything about NBSPOOL, (UNISPOOL is the name of my game).
I think a ;rec=-256 (or even larger) option on the file equation for lp
may solve your problem.

Best regards

Johan Harmsen
 

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of English Paul
Sent: Wednesday, January 03, 2007 10:25
To: [log in to unmask]
Subject: [HP3000-L] Mailgroup Posting (NBS - MPE/ix)

Greetings oh wise ones.

 

I wander if anyone can assist with a problem that is bugging me right
now.
It related to NBSpool (v10) running on MPE/ix 6.5 pp2.

 

Each month end we have to produce reports for every combination or
accounting division and transaction code (there are literally hundreds)
of
which at at 80% are blank. In order to make the archives more manageable
I
came up with this script that will check each report and delete it if it
is
indeed without data. When I run this script interactively it works a
treat
however if within a job it is a different story. The error messages are
not
included in the NBSpool online manuals so I guess they are being issued
by
MPE.

 

Can anyone shed light?

 

Rgds

Paul E

 

SCRIPT

*

error ignore

  while y7@,*lp

  text !current

  list "MONTHEND"

  :if nbstringfound <> 1

  purge !current

  :endif

  end

  end

 

RESULT IN BATCH JOB (logs on as MANAGER.SYS)

X> * All those Y files that contain no data i.e. the text

X> * MONTHEND is not present, are purged prior to the

X> * creation of the monthly transaction reports

X> * VISTA folder.

X> *

X> error ignore

X> while y6@,*lp

W> text !current

W> list "MONTHEND"

W> :if nbstringfound <> 1

W> purge !current

W> :endif

W> end

X> end

 

THIS IS NBSPOOL XEQ PROCESS #1

 

&> WHILE y6@,*lp

468 Spool Files Qualify at 01/02/07 15:32:58

 

SFID    FILENAME  JOB     USER NAME         SECTORS  STATUS

------------------------------------------------------------------------
----
---

Opened spool file #O4925 (Y6121013), last line is 73.

UNABLE TO WRITE TO OUTPUT FILE

WRITE EXCEEDS RECORD SIZE  (FSERR 43)

O>  exit

 

END OF PROGRAM

:

 


* 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 *