Examples for Catalog Diagnosis, EXPORT and IMPORT

Figure 1. Setup the Backup Data Sets for Catalog Export. EXPORT copies and companion listings are to be saved as companion generation data sets of the same generation number.

//****************************************************************
//* THE GDG'S AND MODEL DSCB'S FOR THE DATA SETS ASSOCIATED WITH *
//* EXPORTING CATALOG applic.catalog ARE DEFINED.  BY CONVENTION *
//* ALL BACKUP DATA SETS WILL START WITH 'Bapplic' .             *
//****************************************************************
//SETUPDS  EXEC PGM=IDCAMS
//LIST     DD  DSN=IDCAMS.LIST.DCB,DISP=(NEW,CATLG),
//            VOL=SER=catvol,UNIT=devtyp,SPACE=(0,0),
//            DCB=(RECFM=VBA,LRECL=125,BLKSIZE=4250)
//EXPORT   DD  DSN=IDCAMS.EXPORT.DCB,DISP=(NEW,CATLG),
//            VOL=SER=catvol,UNIT=devtyp,SPACE=(0,0),
//            DCB=(RECFM=VBS,LRECL=32404,BLKSIZE=devblk)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 DEF ALIAS ( NAME(Bapplic) REL(RECOVERY.CATALOG) )
 DEF GDG   ( NAME(Bapplic.CATALOG.LISTING) LIM(7) NEMP SCR -
             OWNER(stormgmt) FOR(9999) ) CAT(RECOVERY.CATALOG)
 DEF GDG   ( NAME(Bapplic.CATALOG.BACKUP)  LIM(7) NEMP SCR -
             OWNER(stormgmt) FOR(9999) ) CAT(RECOVERY.CATALOG)
 DEF GDG   ( NAME(Bapplic.PROBLEM.LISTING) LIM(7) NEMP SCR -
             OWNER(stormgmt) FOR(9999) ) CAT(RECOVERY.CATALOG)
 LISTCAT LEVEL(Bapplic) ALL
/*

Figure 2. Catalog Diagnose and Backup. The catalog is diagnosed, its aliases and self-describing information are saved, along with its entries. If this is successful, the catalog is EXPORTed. The EXPORTed copy and companion listings are kept in corresponding generation data sets, when the EXPORT step is successful. Otherwise, they are discarded and the listing is saved in a "problem" data set.

//****************************************************************
//* DIAGNOSE THE CATALOG,                                        *
//* LIST ITS ALIASES,                                            *
//* LIST ITS SELF-DESCRIBING ENTRY COMPLETELY,                   *
//* LIST ITS ENTRIES WITH JUST THE VOLUME INFORMATION            *
//****************************************************************
//DIAGLIST EXEC PGM=IDCAMS
//SETBKDS  DD  DSN=Bapplic.CATALOG.BACKUP(+1),DISP=(NEW,PASS),
//            DCB=IDCAMS.EXPORT.DCB,
//            VOL=SER=bckvol,UNIT=devtyp,SPACE=(TRK,(15,15),RLSE)
//SYSPRINT DD  DSN=Bapplic.CATALOG.LISTING(+1),DISP=(MOD,PASS),
//            DCB=IDCAMS.LIST.DCB,
//            VOL=SER=lstvol,UNIT=devtyp,SPACE=(TRK,(15,15),RLSE)
//SYSIN    DD *
 DIAG  ICFCAT IDS(applic.CATALOG)
 LISTC ENTRY(applic.CATALOG) ALL
 LISTC ENTRY(applic.CATALOG) ALL CAT(applic.CATALOG)
 LISTC VOL CAT(applic.CATALOG)
/*
//****************************************************************
//* EXPORT THE CATALOG IF THE DIAGNOSTICS WERE OKAY              *
//****************************************************************
//EXPCAT   EXEC PGM=IDCAMS,COND=(8,LE)
//CATBACK  DD  DSN=Bapplic.CATALOG.BACKUP(+1),DISP=(OLD,PASS),
//            DCB=IDCAMS.EXPORT.DCB,
//            SPACE=(TRK,(15,15),RLSE)
//SYSPRINT DD DSN=Bapplic.CATALOG.LISTING(+1),DISP=(MOD,PASS),
//            DCB=IDCAMS.LIST.DCB,
//            SPACE=(TRK,(15,15),RLSE)
//SYSIN    DD  *
 EXP applic.CATALOG OFILE(CATBACK) TEMP
/*
//****************************************************************
//* CATALOG THE BACKUP AND THE LISTING IF EXPORT WAS OKAY        *
//****************************************************************
//CATAL    EXEC PGM=IEFBR14,COND=(8,LE)
//CATBACK  DD  DSN=Bapplic.CATALOG.BACKUP(+1),DISP=(OLD,CATLG)
//CATLIST  DD  DSN=Bapplic.CATALOG.LISTING(+1),DISP=(OLD,CATLG)
//****************************************************************
//* COPY THE LISTING AND DISCARD THE BACKUP IF EXPORT FAILED     *
//****************************************************************
//REPOUT   EXEC PGM=IDCAMS,COND=(0,EQ,CATAL)
//SYSPRINT DD  SYSOUT=*
//CATBACK  DD  DSN=Bapplic.CATALOG.BACKUP(+1),DISP=(OLD,DELETE)
//CATLIST  DD  DSN=Bapplic.CATALOG.LISTING(+1),DISP=(OLD,DELETE)
//CATPROB  DD  DSN=Bapplic.PROBLEM.LISTING(+1),DISP=(NEW,CATLG),
//            VOL=SER=lstvol,UNIT=devtyp,SPACE=(TRK,(15,15),RLSE)
//SYSIN    DD *
 REPRO INFILE(CATLIST) OUTFILE(CATPROB)
/*