Subject: | |
From: | |
Reply To: | |
Date: | Wed, 3 Jan 2007 10:24:46 +0100 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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 *
|
|
|