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 *