home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #23 / NN_1992_23.iso / spool / bit / listserv / ibmmain / 2374 < prev    next >
Encoding:
Text File  |  1992-10-15  |  1.9 KB  |  52 lines
  1. Newsgroups: bit.listserv.ibm-main
  2. Path: sparky!uunet!news.univie.ac.at!chx400!ira.uka.de!uni-heidelberg!rz.uni-karlsruhe.de!rz.uni-karlsruhe.de!rz79
  3. From: rz79@rz.uni-karlsruhe.de (Klaus Dilper)
  4. Subject: Re: MVS/XA Deleting an Indexed VTOC ???
  5. Message-ID: <rz79.10@rz.uni-karlsruhe.de>
  6. Sender: usenet@rz.uni-karlsruhe.de (USENET News System)
  7. Organization: Rechenzentrum, Universitaet Karlsruhe (Germany)
  8. References: <IBM-MAIN%92101412252072@RICEVM1.RICE.EDU>
  9. Date: Thu, 15 Oct 1992 08:44:26 GMT
  10. Lines: 40
  11.  
  12. In article <IBM-MAIN%92101412252072@RICEVM1.RICE.EDU> Steve Greenfield <FEATS@VTVM1.BITNET> writes:
  13.  
  14. >I am building an alternate Residence pack.  I used FDR COPY to copy my
  15. >production res onto a test res volume.  I did not exclude the indexed
  16. >vtoc dataset from the copy and I now have an indexed vtoc on my alternate
  17. >res with a name 'SYS1.VTOCIX.MVSRS1'.  My alternate res is MVSRS2.  How can
  18. >I delete this indexed vtoc so that I can define a new one called
  19. >'SYS1.VTOCIX.MVSRS2'?
  20.  
  21.  
  22.  
  23. >- feats@vtvm1.cc.vt.edu
  24.  
  25. Hallo, try using ICKDSF as follows
  26.  
  27. //OSVTOC   EXEC PGM=ICKDSF
  28. //DD1      DD DISP=SHR,UNIT=3380,VOL=SER=MVSRS2
  29. //SYSPRINT DD SYSOUT=*
  30. //SYSIN    DD *
  31.   BUILTIX DDNAME(DD1) OSVTOC PURGE
  32.  
  33. if this doesn't work, because the INDEX name doesn't correspond with
  34. the VOLUME label, then you have to delete the VTOC INDEX on your
  35. current SYSRES MVSRS1 (as shown above) and then copy MVSRS1 to MVSRS2
  36. again. Now you have to allocate the new VTOC INDEX for both volumes as
  37. follows:
  38.  
  39. //IXVTOC   EXEC PGM=ICKDSF
  40. //DD1      DD UNIT=3380,VOL=SER=MVSRS1,DISP=(NEW,KEEP),
  41. //         DSN=SYS1.VTOCIX.MVSRS1,SPACE=(ABSTR,(where it should take place)
  42. //DD2      DD UNIT=3380,VOL=SER=MVSRS2,DISP=(NEW,KEEP),
  43. //         DSN(SYS1.VTOCIX.MVSRS2,SPACE=(ABSTR,(where it should take place) 
  44. //SYSPRINT DD SYSOUT=*
  45. //SYSIN    DD *
  46.   BUILTIX DDNAME(DD1) IXVTOC
  47.   BUILTIX DDNAME(DD2) IXVTOC
  48.  
  49. hope this fits!
  50.  
  51. Klaus 
  52.