home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #23 / NN_1992_23.iso / spool / bit / listserv / ibmmain / 2338 < prev    next >
Encoding:
Text File  |  1992-10-08  |  3.9 KB  |  66 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!BARILAN.BITNET!P85018
  3. Message-ID: <IBM-MAIN%92100808084123@DEARN>
  4. Newsgroups: bit.listserv.ibm-main
  5. Date:         Thu, 8 Oct 1992 09:09:00 O
  6. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  7. From:         P85018@BARILAN.BITNET
  8. Subject:      Re: Move UserCatalog
  9. Lines: 55
  10.  
  11. >
  12. > I am running an MVS/XA 2.2.3 system with DFP 3.1.1.  I have to move a very
  13. > large UserCatalog from a 3380 single to a 3380 double.  Does anyone have
  14. > an outline of the steps to take?  Are there any little gotcha's that I have
  15. > to watch out for when I make the move?
  16. >
  17.  
  18.   The DFP 3.1 Catalog Administration Guide, in pages 70-74 explains
  19. exactly how to do it. The important fact is that IMPORT with parameter
  20. ALIAS recovers all the aliases. This is enough if only one catalog has
  21. aliases to the UserCatalog, otherwise the procedure is more complicated.
  22.   For the simple case I did the following:
  23.  
  24. //........  JOB  ,ADA,COND=(0,NE)                                       00010000
  25. //*                                                                     00020000
  26. //LOCK1    EXEC  PGM=IDCAMS                                             00020300
  27. //STEPCAT   DD   DISP=SHR,DSN=USER.CATALOG                              00020400
  28. //SYSPRINT  DD   SYSOUT=A                                               00020500
  29. //SYSIN     DD   *                                                      00020600
  30.  ALTER USER.CATALOG LOCK CAT(USER.CATALOG)                              00020700
  31. /*                                                                      00020800
  32. //EXPORT2  EXEC  PGM=IDCAMS                                             00020900
  33. //SYSPRINT  DD   SYSOUT=A                                               00021000
  34. //BACKUP    DD   DISP=(,CATLG,DELETE),DSN=SYSTEM.BACKUP.UCAT,           00022000
  35. //       UNIT=SYSALLDA,VOL=SER=anyvol,SPACE=(CYL,(5,5))                 00023000
  36. //SYSIN     DD   *                                                      00024000
  37.  EXPORT USER.CATALOG OUTFILE(BACKUP) TEMPORARY  (imprtant: TEMPORARY)   00025000
  38. /*                                                                      00026000
  39. //DELETE3  EXEC  PGM=IDCAMS                                             00027000
  40. //SYSPRINT  DD   SYSOUT=A                                               00028000
  41. //OLDVOL    DD   DISP=OLD,UNIT=3380,VOL=SER=oldvol                      00029000
  42. //SYSIN     DD   *                                                      00030000
  43.  DEL USER.CATALOG FILE(OLDVOL) UCAT RECOVERY    (important: RECOVERY)   00040000
  44. /*                                                                      00050000
  45. //IMPORT4  EXEC  PGM=IDCAMS                                             00060000
  46. //SYSPRINT  DD   SYSOUT=A                                               00070000
  47. //BACKUP    DD   DISP=SHR,DSN=SYSTEM.BACKUP.UCAT                        00080000
  48. //SYSIN     DD   *                                                      00090000
  49.  IMPORT INFILE(BACKUP)                     -                            00100000
  50.   OUTDATASET(USER.CATALOG)                 -                            00110000
  51.   OBJECTS((USER.CATALOG VOLUMES(newvol)))  -                            00120000
  52.   ALIAS LOCK                               -     (important: ALIAS)     00130000
  53.   CAT(MASTER.CATALOG/       )                                           00140000
  54. /*                                                                      00150000
  55. //UNLOCK5  EXEC  PGM=IDCAMS                                             00160000
  56. //SYSPRINT  DD   SYSOUT=A                                               00170000
  57. //SYSIN     DD   *                                                      00180000
  58.  ALTER USER.CATALOG UNLOCK CAT(USER.CATALOG)                            00190000
  59. /*                                                                      00200000
  60. //
  61.  
  62.   Good Luck,
  63.     Ada Vishne
  64.     Bar-Ilan Computer Center
  65.     Israel
  66.