Scott, Try adding the following two (2) commands to your PROFILE EXEC --
CP SET RUN ON SET AUTOREAD OFF John P. Baker Chief Software Architect HFD Technologies -----Original Message----- From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On Behalf Of Wandschneider, Scott Sent: Tuesday, March 08, 2011 12:58 PM 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**
