I simply use this (at the end of the PROFILE EXEC for the user that "owns" the
VDISKS):
Do forever
Say "Staying alive, staying alive....(99 hours)..."
"CP SLEEP 99 HRS"
End
Frank M. Ramaekers Jr.
-----Original Message-----
From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf
Of Wandschneider, Scott
Sent: Tuesday, March 08, 2011 11:58 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Virtual Lock File
I have a SVM called VDISKS the creates and initializes a virtual lock file for
four VSE guest to use. After a short time, VDISKS is logged off by the system.
All is fine if at least one VSE remains logged on, however if all are logged
off the virtual lock file goes away also. How can I keep VDISKS from being
logged off by the system?
* * * Top of File * * *
USER VDISKS $SECRET$ 4M 4M BG 90
*NAME: VIRTUAL_DISKS
ACCOUNT SYSTEMS SUPPORT
COMMAND SET RUN ON
IPL CMS
MACH ESA
XAUTOLOG AUTOLOG1 MAINT
CONSOLE 0009 3215 T OPERATOR
SPOOL 000C 2540 READER *
SPOOL 000D 2540 PUNCH A
SPOOL 000E 1403 A
LINK MAINT 0190 0190 RR
LINK MAINT 019D 019D RR
LINK MAINT 019E 019E RR
MDISK 0191 3390 499 001 PKSCMS MR ALL WRITE MULTIPLE
MDISK 0222 FB-512 V-DISK 6208 MWV ALL
*DVHOPT LNK0 LOG1 RCM1 SMS0 NPW1 LNGAMENG PWC20101121 CRCc
PROFILE EXEC Z1 V 130 Trunc=130 Size=14
====>
|...+....1....+....2....+....3....+....4..
00000 * * * Top of File * * *
00001 /* */
00002 'CP SPOOL CONSOLE START MAINT CLASS M'
00003 Trace I
00004 'EXECIO * CP (STRING Q' USERID()
00005 PULL @RESPONSE
00006 PARSE VAR @RESPONSE @USERID . @TERMID
00007 IF @TERMID = 'DSC' THEN DO
00008 EXEC INITVDSK
00009 SLEEP 05 SEC
00010 'CP SPOOL CONSOLE CLOSE'
00011 EXIT
00012 END
00013 SET PF12 RETRIEVE
00014 EXIT
00015 * * * End of File * * *
INITVDSK EXEC Z1 V 130 Trunc=130 Size=8
====>
|...+....1....+....2....+....3....+....4
00000 * * * Top of File * * *
00001 /* EXEC TO INITIALIZE ALL VDISKS */
00002 Trace I
00003 ERASE DSFOUT OUTPUT A
00004 PUSH 'DSFOUT'
00005 PUSH 'INITV222'
00006 ICKDSF
00007 'CP LINK * 222 222 RR'
00008 EXIT
00009 * * * End of File * * *
INITV222 INPUT Z1 F 80 Trunc=80 Size=1 Line=0 Col=1 Alt=0
====>
|...+....1....+....2....+....3....+....4....+....5....+....6....
00000 * * * Top of File * * *
00001 INIT UNIT(222) NVFY NOMAP PURGE VOLID(VSELOK) FBAVTOC(6200,8)
00002 * * * End of File * * *
Thank you,
Scott R Wandschneider
Systems Programmer 3|| Infocrossing, a Wipro Company || 11707 Miracle Hills
Drive, Omaha, NE, 68154-4457|| : 402.963.8905 || :847.849.7223 || :
scott.wandschnei...@infocrossing.com **Think Green - Please print responsibly**
Confidentiality Note: This e-mail, including any attachment to it, may contain
material that is confidential, proprietary, privileged and/or "Protected Health
Information," within the meaning of the regulations under the Health Insurance
Portability & Accountability Act as amended. If it is not clear that you are
the intended recipient, you are hereby notified that you have received this
transmittal in error, and any review, dissemination, distribution or copying of
this e-mail, including any attachment to it, is strictly prohibited. If you
have received this e-mail in error, please immediately return it to the sender
and delete it from your system. Thank you.
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
privacy...@ailife.com.
