//MERGCAT JOB (9999,IPO,10,10), // 'CORNERSTONE', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1),USER=, // TIME=1440 //* //IMPCON1 EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* //SYSIN DD * IMPORT OBJ( (CATALOG.MVSICF1.VARH101 - DEVT(3390 ) VOL(ARH101))) CONNECT - CAT(CATALOG.MVSICFM.VBC2MCC ) //* //DELETE EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* DELETE KCI08 + ALIAS + CATALOG(CATALOG.MVSICFM.VBC2MCC) /* //MERGE EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* //UCAT1 DD DSN=CATALOG.MVSICF1.VARH001,DISP=OLD //UCAT2 DD DSN=CATALOG.MVSICF1.VARH101,DISP=OLD //SYSIN DD * REPRO - INFILE (UCAT1/PWUPDATE) - OUTFILE (UCAT2/PWUPDATE) - LEVEL(KCI08) - MERGECAT //DEFINE EXEC PGM=IDCAMS,REGION=512K //SYSPRINT DD SYSOUT=* //SYSIN DD * DEF ALIAS(REL(CATALOG.MVSICF1.VARH101) - NAME(KCI08)) - CATALOG(CATALOG.MVSICFM.VBC2MCC /*