I **think** I've seen one sort of RXB ABEND or another in the past. Aside
from ensuring that I had regular service applied, the first thing would be
to try a Source Start -- twice. That way both copies of the directory are
completely rebuilt from the source. If it still fails there's always
re-creating the USER DIRECT file and running DIRECTXA.
I wrote a "USERDRCT EXEC" that we keep on VMSECURE's 191 disk to make this
easier in a crisis, when manuals and time may not be easy to find.
"USERDRCT EXEC" (meant only for fellow VM:Secure customers) is appended.
Good luck!
Mike Walter
Hewitt Associates
Any opinions expressed herein are mine alone and do not necessarily
represent the opinions or policies of Hewitt Associates.
/* Prolog; See Epilog for additional information ********************
* Exec Name - USERDRCT 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
parse var operands ifm DrctVdev DrctVolser ofm .
If operands='?' | ,
ofm='' | DRctVdev='' | DrctVolser='' | ofm='' then
Signal Explain
Signal on ERROR
'PIPE LITERAL DIRECTORY' DrctVdev '3390' DrctVolser ,
'| APPEND LITERAL GLOBALDEFS' ,
'| PAD 80' ,
'| > USER DIRECT' ofm 'F 80' ,
'| PREFACE LITERAL Written as: USER DIRECT' ofm ,
'| CONSOLE'
Call Append ,
'COPYFILE VMSECURE GLOBALS' ifm 'USER DIRECT' ofm '(APPEND TYPE'
Call Append ,
'COPYFILE VMSECURE POSIX' ifm 'USER DIRECT' ofm '(APPEND TYPE'
Call Append ,
'COPYFILE * PROFILE' ifm 'USER DIRECT' ofm '(APPEND TYPE'
'PIPE (END ? NAME CopyfileCircumvention)' ,
'| COMMAND LISTFILE * *' ifm '(NOHEADER' ,
'| PICK WORD 2 ¬== /GLOBALS/' , /* Done above */ /* Done above */
'| PICK WORD 2 ¬== /POSIX/' , /* Done above */
'| PICK WORD 2 ¬== /PROFILE/' , /* Done above */
'| GETFILES' ,
'| CHANGE /3390-1/ 3390 /' ,
'| CHANGE /3390-3/ 3390 /' ,
'| CHANGE /3390-9/ 3390 /' ,
'| PAD 80' ,
'| >> USER DIRECT A F 80'
say 'Hint: DIRECTXA USER DIRECT'
say ' or: VMXSYS SOURCE ALTVOL vdev volser'
Call Exit rc
Append:
parse arg cmd
say time() cmd
cmd
Return
Explain:
say xfn 'is used to build a USER DIRECT file from all the various'
say 'separate VM:Secure files.'
say
say 'Syntax:'
say
say '>-'xfn'--InFm--DrctVdev--DrctVolser--OutFm----------------------><'
say
say 'Where:'
say
say 'InFm is the filemode at which the individual directory'
say ' entries and PROFILE entried is accessed (usually'
say ' the VMSECURE 1B0 disk).'
say
say 'DrctVdev is the vdev address to which the DIRECTXA object o/p'
say ' will be written (e.g. 0EEE). This is written as'
say ' part of the DIRECTORY statement in the output'
say ' USER DIRECT file.'
say
say 'DrctVolser is the volser to which the DIRECTXA object o/p'
say ' will be written (e.g. 0EEE). This is written as'
say ' part of the DIRECTORY statement in the output'
say ' USER DIRECT file.'
say
say 'OutFm is the filemode to which the USER DIRECT file shall'
say ' be written.'
Call Exit 4
Error:
say xfn '"Error:" routine called from line' sigl 'which reads:'
say sourceline(sigl)
Call Exit rc
/********************************************************************/
/* Sub-Routines below this point */
/********************************************************************/
Exit:
parse arg exitrc .
If verify(exitrc,0123456789)=0 then Exit exitrc
else Exit 999999
/* Epilog ***********************************************************
* Function - Build a USER DIRECT file from the various *
* separate VM:Secure files. *
* Component of - *
* Command format- *
* Called by - *
* Dependencies - VM/SP 3 or higher. *
* - e.g. LISTFILE, COPYFILE, etc. *
* Program Lang. - CMS REXX *
* Date Written - 06/28/99 *
* Author - Michael R. Walter *
* Changed | By | Description of Change *
* --------+-----+------------------------------------------------- *
* 20001219 mrw - Expand Explain subrtn. *
* 20060101 mrw - Add handling of 3390-1. *
* - Use Pipe eliminate need to write/read/write *
* whole directory file to change 3390-n. *
* *
********************************************************************/
"Shimon Lebowitz" <[EMAIL PROTECTED]>
Sent by: "The IBM z/VM Operating System" <[email protected]>
02/18/2007 07:41 AM
Please respond to
"The IBM z/VM Operating System" <[email protected]>
To
[email protected]
cc
Subject
VM:Secure Abends
Hi,
While I am waiting for someone to phone me back, I will
ask here too...
Has anyone heard of VM:Secure abending with RXB114 or RXB103?
This happened yesterday (Saturday at 3AM!) when it was
running a REBUILD. First it crashed with RXB114,
then every time it was restarted it immediately died
with RXB103.
Any ideas?
Shimon
--
**********************************************************************
**
Shimon Lebowitz mailto:[EMAIL PROTECTED]
VM System Programmer .
Israel Police National HQ. http://www.poboxes.com/shimonpgp
Jerusalem, Israel phone: +972 2 542-9877 fax: 542-9308
**********************************************************************
**
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.
