Randy,
As someone mentioned before, SPXTAPE can cause more pages to end up
allocated to DUMP space.
You really do NOT want to run without dump space allocated. But you can
"clean up" the allocation.
After the initial reports of SPXTAPE trying up extra SPOOL pages as it ran
each time, I wrote the following EXEC which is run here each night
automatically. You can run this without fear that you might fail to
obtain needed dump information if a problem occurs, because it sets dump
off to free pages, and then sets it right back on. The chances of VM
failing inside that tiny window are quite small.
But the key is that you are simply running with insufficient SPOOL space.
IBM provided enough SPOOL space on the z/VM 440 SDO to get it installed,
but not to run lots of production work. You really need to consider
adding another full DASD volume for your SPOOL space.
Mike Walter
Hewitt Associates
The opinions expressed herein are mine alone, not my employer's.
/* Prolog; See Epilog for additional information ********************
* Exec Name - DUMPSPAC EXEC *
* Unit Support - OSS/VM *
* Status - Version 1, Release 1.0 *
********************************************************************/
address 'COMMAND'
parse source xos xct xfn xft xfm xcmd xenvir .
parse upper arg parms 1 operands '(' options ')' parmrest
hi='1DE8'x /* 3270 Hilite Char */
lo='1D60'x /* 3270 Default Char */
Signal ON Syntax
/* Signal ON NoValue */
/* Signal ON ERROR */
If parms='?' then Signal Explain
/* E.g. VMSPOOL *1 VMLSYS273I Backup job OFFSDF complete; RC=0. */
If parms<>'' then
parse var parms svm IUCVclass msgid msgtext
If msgid='VMLSYS273I' then
say xfn 'called due to:' msgtext
'CP QUERY DUMP' /* "Before" doc. */
'CP SET DUMP OFF' /* Free excess pages */
'CP SET DUMP DASD' /* "After" doc. */
Call Exit 0
/********************************************************************/
/* Sub-Routines below this point */
/********************************************************************/
Exit:
parse arg exitrc .
If verify(exitrc,'-0123456789')=0 then Exit exitrc
else Exit 999999
Error:
say '+++ "ERROR" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
Call Exit 20
Syntax:
say '+++ "SYNTAX" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
Call Exit 20
NoValue:
say '+++ "NoValue" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
say '+++ Variable with no value is:' condition('Description')
Call Exit 24
Explain:
'PIPE (NAME Explain)' ,
'| <' xfn xft xfm ,
'| INSIDE /ExplainBegin:/ /ExplainEnd:/' ,
'| PREFACE STRLITERAL /'xfn xft xfm 'help.../' ,
'| CONSOLE'
Call Exit 0
/*
ExplainBegin:
Used to reclaim excess DUMP space pages allocated by SPXTAPE.
>>-DUMPSPAC------------------------------------------------------------><
Usage notes:
Called by VM:Operator after trapping messages:
VMSPOOL P*1 VMLSYS273I Backup job _jobname_ complete; RC=0.
Can be executed manually at any time.
ExplainEnd:
*/
/* Epilog ***********************************************************
* Function - See Explain: subrtn above *
* Component of - VM:Spool SDF backups *
* Command format- DUMPSPAC *
* Called by - Operator or VM:Operator *
* Dependencies - Message: *
* VMSPOOL *1 VMLSYS273I Backup job _ complete; RC=0*
* Program Lang. - CMS REXX *
* Date Written - 20050627 *
* Author - Michael R. Walter *
* Changed | By | Description of Change *
* --------+-----+------------------------------------------------- *
* yyyymmdd iii - *
* *
********************************************************************/
"Randy Dray" <[EMAIL PROTECTED]>
Sent by: "VM/ESA and z/VM Discussions" <[email protected]>
11/07/2005 09:02 AM
Please respond to
"VM/ESA and z/VM Discussions" <[email protected]>
To
[email protected]
cc
Subject
Re: Q alloc SPool Help
Today I did a Q RDR ALL
oWNERID FILE CLASS REC CPY HOLD DATE TIME NAME
oPERATNS 0001 D SYS 000 001 NONE OPEN-
oPERATNS 0002 D SYS 000 001 NONE OPEN- SYS CPDUMP
MAINT 0002 T CON 00000008 001 NONE 11/05 10:39:25
I have 2 fies Class d SYS for OPERATNS???
how Do I close these files???
Should I transfer them to maint and discard them??
Still trying to reduce spool file used.
q alloc spool
EXTENT EXTENT TOTAL PAGES HIGH %
VOLID RDEV START END PAGES IN USE PAGE USED
------ ---- ------ ------ ------ ------ ------ ----
440RES 0600 79 256 32040 26769 31680 83%
------ ------ ----
SUMMARY 32040 26769 83%
USABLE 32040 26769 83%
Thanks
Randy Dray
Systems Programmer
Morton Buildings Inc.
Morton IL
(309) 263-6397
__________________________________
Yahoo! Mail - PC Magazine Editors' Choice 2005
http://mail.yahoo.com
The information contained in this e-mail and any accompanying documents may
contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if this
message has been addressed to you in error, please immediately alert the sender
by reply e-mail and then delete this message, including any attachments. Any
dissemination, distribution or other use of the contents of this message by
anyone other than the intended recipient is strictly prohibited.
