Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!umich!samsung!brutus.cs.uiuc.edu!psuvax1!psuvm!UOFMCC!HABKE
From: HABKE@UOFMCC.BITNET (WILLIAM HABKE)
Newsgroups: bit.listserv.ibm-main
Subject: Structuring MVS for integrity.
Message-ID: <IBM-MAIN%90020210191442@RICEVM1.BITNET>
Date: 2 Feb 90 15:33:00 GMT
Sender: IBM Mainframe Discussion list <IBM-MAIN@RICEVM1>
Reply-To: IBM Mainframe Discussion list <IBM-MAIN@RICEVM1>
Lines: 16
Approved: NETNEWS@PSUVM Gateway

// JOB 'T=10,I=10,L=1'
// EXEC PGM=IDCAMS,REGION=512K
//A DD DISP=OLD,UNIT=3350,VOL=SER=SYSMVS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
 DEL 'SYS1.VVDS.VTEMPX1' PURGE NSCR FILE(A) CL -
    CAT('ICFCTLG.VSYSMVS'/XXXXXXXX)
 This procedure should help you get rid of unwanted vvds's
 The dd statment should point to any existing ucat volume.
 This just fakes out idcams since it only checks for a volume
 but does not actually go to the vvds since noscr is specified.

  Hope this helps
   Bill Habke
  System Analyst
  University of Manitoba