On Thu, Feb 1, 2024 at 03:55 PM, Jeff Bassett wrote:
//OUTFILE DD DSN=HERC01.CATREORG.OUT,DISP=(,CATLG),? <<<? USE a HLQ that points to a different catalog if you want to catalog the output
//? UNIT=SYSDA,SPACE=(CYL,10,10),RLSE),VOL=SER=WORK02,
//?? DCB=(RECFM=VB,LRECL=516,BLKSIZE=5164)
It worked!!! I had initially a problem cataloging the target dataset because Of the overll JOBCAT DD ... So I had to just use STEPCAT DD on the REPRO step, and catalog the dataset on a final step...and the, ta-da! the dataset showed in DSLIST! yayyyyy!
//*
//* ------------------------------------------------
//* STEP1: DELETE DATASET
//*
//DSDEL? ? EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//TGTDS? ? DD DSNAME=HERC01.UCUSRDT0.REPRO,
//? ? ? ? ? ? UNIT=3390,SPACE=(CYL,(10,10),RLSE),VOL=SER=TSO001,
//? ? ? ? ? ? DISP=(OLD,DELETE,DELETE)
//*
//* ---------------------------------------------
//* STEP2: DUMP USER-CATALOG TO DATASET.
//*
//REPROTMP EXEC PGM=IDCAMS,REGION=4096K
//STEPCAT? DD DSNAME=UCUSRDT0,DISP=OLD
//SYSPRINT DD SYSOUT=*
//CATIN? ? DD DSNAME=UCUSRDT0,DISP=OLD
//CATOUT? ?DD DSNAME=HERC01.UCUSRDT0.REPRO,DISP=(NEW,KEEP,DELETE),
//? ? ? ? ? ? UNIT=3390,SPACE=(CYL,(10,10),RLSE),VOL=SER=TSO001,
//? ? ? ? ? ? DCB=(RECFM=VB,LRECL=516,BLKSIZE=5164)
//SYSIN? ? DD *
? REPRO INFILE(CATIN) -
? ? OUTFILE(CATOUT)
/*
//*
//* ------------------------------------------------
//* STEP3: CATALOG DATASET
//*
//DSCTLG? ?EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//TGTDS? ? DD DSNAME=HERC01.UCUSRDT0.REPRO,
//? ? ? ? ? ? UNIT=3390,SPACE=(CYL,(10,10),RLSE),VOL=SER=TSO001,
//? ? ? ? ? ? DISP=(OLD,CATLG,DELETE)
//
