ARRRGHHH. Sorry.
John T. Abell
Tel: 800-295-7608 Option 4
President
International: 1-416-593-5578 Option 4
E-mail: john.ab...@intnlsoftwareproducts.com
Fax: 800-295-7609
International: 1-416-593-5579
International Software Products
www.ispinfo.com
This email may contain confidential and privileged material for the sole use
of the intended recipient(s). Any review, use, retention, distribution or
disclosure by others is strictly prohibited. If you are not the intended
recipient (or authorized to receive on behalf of the named recipient),
please contact the sender by reply email and delete all copies of this
message. Also,email is susceptible to data corruption, interception,
tampering, unauthorized amendment and viruses. We only send and receive
emails on the basis that we are not liable for any such corruption,
interception, tampering, amendment or viruses or any consequence thereof.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Jousma, David
Sent: Friday, May 01, 2015 7:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OMVS not starting on my DR LPAR
Good point. I think it is a 65 second wait per filesystem that was open
RDWR when the backups were taken. Filesystems that were mounted READ are
not affected.
_________________________________________________________________
Dave Jousma
Assistant Vice President, Mainframe Engineering david.jou...@53.com
1830 East Paris, Grand Rapids, MI 49546 MD RSCB2H p 616.653.8429 f
616.653.2717
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Givens, Dennis W.
Sent: Thursday, April 30, 2015 5:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OMVS not starting on my DR LPAR
I too have seen a delay due to following messages for each of the zfs files
and may be related to the issue.
08.48.55 IOEZ00807I In a wait to verify that aggregate
OMVS.SDSF.NABK.VMBKS11.SISFHFS.ZFS has no other writers. Member (smfid) last
wrote to the aggregate on Oct 10 14:51:48 2014.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Sumi, Joseph J. (CMS/CTR) (CTR)
Sent: Thursday, April 30, 2015 2:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OMVS not starting on my DR LPAR
My experience with OMVS and DR is that it takes a very long time for OMVS to
initialize for the first IPL.
How long did you wait ? I have seen it take 30-45+ minutes for OMVS to
initialize at DR for my system. (While "back home" it is not an issue). We
figured out that this had something to do with these being the first mounts
(root, other HFS/ZFS's) on a new LPAR.
Rgrds, Joseph Sumi
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of John Norgauer
Sent: Thursday, April 30, 2015 1:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: OMVS not starting on my DR LPAR
I have a new z/os 2.1 system and when I IPL'ed it on my DR LPAR, OMVS never
started.
I noticed that my IFAPRD member in parmlib was obsolete and this caused
TCP base not to start.
Does TCP base actually start OMVS ASID?
If TCP is not the culprit, what actually starts OMVS.
My Sandbox 2.1 system had no problem with OMVS starting.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN CNA SURETY voted
the #1 Carrier for Surety Bonds by PROPERTYCASUALTY360 Survey
NOTICE: This e-mail message, including any attachments and appended
messages, is for the sole use of the intended recipients and may contain
confidential and legally privileged information. If you are not the intended
recipient, any review, dissemination, distribution, copying, storage or
other use of all or any portion of this message is strictly prohibited. If
you received this message in error, please immediately notify the sender by
reply e-mail and delete this message in its entirety.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
This e-mail transmission contains information that is confidential and may
be privileged. It is intended only for the addressee(s) named above. If
you receive this e-mail in error, please do not read, copy or disseminate it
in any manner. If you are not the intended recipient, any disclosure,
copying, distribution or use of the contents of this information is
prohibited. Please reply to the message immediately by informing the sender
that the message was misdirected. After replying, please erase it from your
computer system. Your assistance in correcting this error is appreciated.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
---
This email has been checked for viruses by Avast antivirus software.
http://www.avast.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
//IBMUSERY JOB (JOHN),'BOB YEE CRYPTO TEST',CLASS=A,MSGCLASS=X
/*NOTIFY IBMUSER
/*JOBPARM SYSAFF=S0W1
//*------------------------------------------------------------
//* ASSEMBLE, LOAD AND GO - CRYPTO TESTING
//* Call the Crypto Random number generator
//* to generate 64-bit random numbers
//*
//* On the z/OS z10-BC R03 with a CEX2C 1p Crypto card,
//* 20,000 repetitive calls will take about 1.1 cpu sec
//* but will take elapsed 30-60 sec
//* due to the waiting for the
//* crypto processor
//*
//* Much of this copied from:
//* SG24-7723-03
//* IBM System z Personal Development Tool: Volume 3
//* July 2011
//* 13.4.4 Additional Topics ICSF
//* with some modifications
//*
//*---------------------------------------------------------------
//ASM EXEC HLASMCLG,
// PARM.C='OBJECT,NODECK,ASA,LANG(EN),XREF(SHORT),USING(MAP,WARN(7))',
// PARM.L='MAP,LIST,LET,RMODE(24)',
// REGION=6M
//C.SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=CEE.SCEEMAC,DISP=SHR
//C.SYSIN DD *
PRINT NOGEN
ICSFAA CSECT
ICSFAA AMODE 31
ICSFAA RMODE 24
STM 14,12,12(13) SAVE CALLER S REGISTERS
LR 12,15 USE ENTRY-POINT BASE REGISTER
USING ICSFAA,12
LR 2,13 GET A(CALLER S SAVEAREA)
LA 13,SAVEAREA GET A(MY SAVEAREA)
ST 2,SAVEAREA+4 CHAIN OLD TO NEW
ST 13,8(2) CHAIN NEW TO OLD
*
* OPEN FILES AND CHECK RESULTS
*
*A1 OPEN (PRINTD,(OUTPUT))
* TM PRINTD+48,X'10' CHECK SYSPRINT OPEN STATUS
* BZ ERROR1
*
* GET RANDOM NUMBERS AND PRINT THEM
*
LA 8,1000
LOOP0 DS 0H
LA 7,200 GET 200 RANDOM NUMBERS TIMES THE VALUE
* IN R8
LOOP1 CALL CSNBRNG,(RETC,REASC,EXDL,EXD,FORM,RANNUM)
CLC RETC(4),SZEROS
BNE ERROR2
* B LOOP2
* DC F'0'
LA 1,RANNUM WHERE TO START HEX CONVERSION
* BAL 10,AHEXLINE
* MVC PRINTLNE(80),SBLANKS
* MVC PRINTLNE(21),=C'RANDOM NUMBER (HEX) ='
* MVC PRINTLNE+22(16),SWOUT
* MVC PRINTLNE+22(17),SWOUT
* PUT PRINTD,PRINTLNE
LOOP2 DS 0H
BCT 7,LOOP1
BCT 8,LOOP0
*CLOSEALL CLOSE (PRINTD)
RETURN L 13,4(13) GET A(CALLER S SAVE AREA)
LM 14,12,12(13) RESTORE CALLER S REGISTERS
SR 15,15 SET RETURN CODE
BR 14 EXIT
*
* SIMPLE ERROR HANDLING.
*
ERROR1 WTO 'UNABLE TO OPEN SYSPRINT DD STATEMENT'
B RETURN
*
ERROR2 WTO 'NON-ZERO RETURN CODE'
B RETURN
* DC F'0'
*
PRINTD DCB DSORG=PS,MACRF=(PM),DDNAME=SYSPRINT,LRECL=80,RECFM=FB,BLX
KSIZE=0
* VARIOUS WORK AREAS AND CONSTANTS
PRINTLNE DC CL80' '
RETCID DC CL8'RETC ==>'
RETC DC F'0' RETURN CODE (ICSF)
REASCID DC CL8'REASC==>'
REASC DC F'0' REASON CODE (ICSF)
EXDL DC F'0' EXIT DATA LENGTH (ICSF)
EXD DC CL4' ' EXIT DATA (ICSF)
FORM DC CL8'RANDOM' RULE FORM (Generate 64-bit #)
RANNUM DC 2F'0' RANDON NUMBER
*
SAVEAREA DC 18F'0'
SW1 DC D'0' WORK AREAS FOR UTILITY ROUTINES
SW2 DC D'0' WORK AREA
SPILL DC D'0' SPILL FROM SW2 UNPK INSTRUCTION
SWOUT DC CL80' ' OUTPUT AREA
SBLANKS DC CL80' ' SOURCE OF BLANKS
SZEROS DC 2F'0' SOURCE OF ZEROS
ASCNDECS DC 8F'0' LOCAL REGISTER SAVE AREA
SPACE
*----------------------------------------------------------------
* FORMAT 32 BYTES OF STORAGE INTO HEX.
* INPUT: R1 CONTAINS ADDRESS OF DATA. OUTPUT: 72 BYTES IN SWOUT
*---------------------------------------------------------------
AHEXLINE STM 1,6,ASCNDECS SAVE CALLER S REGS
LA 2,8 8 WORDS OUTPUT
LA 3,SWOUT A(OUTPUT)
MVC SWOUT(80),SBLANKS
AHEXLINF BAL 5,AHEXLINZ CONVERT 4 BYTES
LA 3,9(3) OUTPUT POINTER
LA 1,4(1) INPUT POINTER
BCT 2,AHEXLINF LOOP
LM 1,6,ASCNDECS
BR 10 RETURN TO CALLER
*
AHEXLINZ MVC SW1(4),0(1)
MVI SW1+4,X'00'
UNPK SW2(9),SW1(5)
TR SW2(8),AHEXTR-240
MVC 0(8,3),SW2
BR 5
AHEXTR DC C'0123456789ABCDEF'
SPACE
LTORG
END
/*
//L.SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=CSF.SCSFMOD0
// DD DSN=CEE.SCEELKED,DISP=SHR
//G.SYSPRINT DD SYSOUT=*
//G.ABNLTERM DD SYSOUT=*
//G.SYSUDUMP DD SYSOUT=*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
