I use a delete/define-recatalog all the time for the two
systems from which I did not create the IODF.  Here are my two
jobs.  Be sure to use NOSCRATCH in the delete job.

,//SR1JEADL JOB (0),ABERNETHY,CLASS=S,MSGLEVEL=(1,1),
,// MSGCLASS=X
,//STEP1   EXEC PGM=IDCAMS
,//SYSPRINT DD  SYSOUT=*
,//SYSUDUMP DD  SYSOUT=*
,//DD1 DD UNIT=3390,VOL=SER=SRS043,DISP=SHR
,//SYSIN    DD  *
, DELETE (SYS1.IODF02.CLUSTER             )-
, CLUSTER            NOSCRATCH CATALOG(CATALOG.DEV1.MASTER)
,/*
,//



,//SR1JEARC JOB (ZZ,2400,TS),ABERNETHY,CLASS=S,MSGLEVEL=(1,1),
,// MSGCLASS=X
,//STEP1   EXEC PGM=IDCAMS
,//SYSPRINT DD  SYSOUT=*
,//SYSUDUMP DD  SYSOUT=*
,//DD1 DD VOL=SER=SRS043,UNIT=3390,DISP=SHR
,//SYSIN    DD  *
, DEFINE CLUSTER (NAME(SYS1.IODF02.CLUSTER       ) VOLUMES(SRS043) -
, LINEAR  -
, RECATALOG) -
, DATA(NAME(SYS1.IODF02                    )) -
,        CATALOG(CATALOG.DEV1.MASTER)

John

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to