Newsgroups: bit.listserv.ibm-main
Date:         Thu, 8 Oct 1992 09:09:00 O
From:         P85018@BARILAN.BITNET
Subject:      Re: Move UserCatalog

>
> I am running an MVS/XA 2.2.3 system with DFP 3.1.1.  I have to move a very
> large UserCatalog from a 3380 single to a 3380 double.  Does anyone have
> an outline of the steps to take?  Are there any little gotcha's that I have
> to watch out for when I make the move?
>

  The DFP 3.1 Catalog Administration Guide, in pages 70-74 explains
exactly how to do it. The important fact is that IMPORT with parameter
ALIAS recovers all the aliases. This is enough if only one catalog has
aliases to the UserCatalog, otherwise the procedure is more complicated.
  For the simple case I did the following:

//........  JOB  ,ADA,COND=(0,NE)                                       00010000
//*                                                                     00020000
//LOCK1    EXEC  PGM=IDCAMS                                             00020300
//STEPCAT   DD   DISP=SHR,DSN=USER.CATALOG                              00020400
//SYSPRINT  DD   SYSOUT=A                                               00020500
//SYSIN     DD   *                                                      00020600
 ALTER USER.CATALOG LOCK CAT(USER.CATALOG)                              00020700
/*                                                                      00020800
//EXPORT2  EXEC  PGM=IDCAMS                                             00020900
//SYSPRINT  DD   SYSOUT=A                                               00021000
//BACKUP    DD   DISP=(,CATLG,DELETE),DSN=SYSTEM.BACKUP.UCAT,           00022000
//       UNIT=SYSALLDA,VOL=SER=anyvol,SPACE=(CYL,(5,5))                 00023000
//SYSIN     DD   *                                                      00024000
 EXPORT USER.CATALOG OUTFILE(BACKUP) TEMPORARY  (imprtant: TEMPORARY)   00025000
/*                                                                      00026000
//DELETE3  EXEC  PGM=IDCAMS                                             00027000
//SYSPRINT  DD   SYSOUT=A                                               00028000
//OLDVOL    DD   DISP=OLD,UNIT=3380,VOL=SER=oldvol                      00029000
//SYSIN     DD   *                                                      00030000
 DEL USER.CATALOG FILE(OLDVOL) UCAT RECOVERY    (important: RECOVERY)   00040000
/*                                                                      00050000
//IMPORT4  EXEC  PGM=IDCAMS                                             00060000
//SYSPRINT  DD   SYSOUT=A                                               00070000
//BACKUP    DD   DISP=SHR,DSN=SYSTEM.BACKUP.UCAT                        00080000
//SYSIN     DD   *                                                      00090000
 IMPORT INFILE(BACKUP)                     -                            00100000
  OUTDATASET(USER.CATALOG)                 -                            00110000
  OBJECTS((USER.CATALOG VOLUMES(newvol)))  -                            00120000
  ALIAS LOCK                               -     (important: ALIAS)     00130000
  CAT(MASTER.CATALOG/       )                                           00140000
/*                                                                      00150000
//UNLOCK5  EXEC  PGM=IDCAMS                                             00160000
//SYSPRINT  DD   SYSOUT=A                                               00170000
//SYSIN     DD   *                                                      00180000
 ALTER USER.CATALOG UNLOCK CAT(USER.CATALOG)                            00190000
/*                                                                      00200000
//

  Good Luck,
    Ada Vishne
    Bar-Ilan Computer Center
    Israel
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU