* $$ JOB JNM=KMWHSERS,DISP=H,CLASS=7,PRI=9,USER=0000KM0620000000 * $$ LST CLASS=A,DISP=H,USER='KM DEFINE' * $$ PUN CLASS=V,DISP=D,PUN=FED // JOB KMWHSERS KEY/MASTER RESTORE SERIES DATA FROM FILE * // JA RERUNON X // LIBDEF *,SEARCH=(KM60.OBJECT,KM60.SOURCE),TEMP * ******* NOTES .PLEASE MAKE SURE ALL DATA ENTRY PERSONNEL ARE * ******* OFF OF ..KEYMASTER....ALL DATA ENTRY SYSTEM THEN.. * ******* NOTES .PLEASE DO CEMT INQ,DATA(TM*) ON CICS TERMINAL * ******* AND MAKE SURE ALL THE TM* FILES ARE CLOSED * ******* BEFORE PRCECEEDING WITH THIS BACKUP // PAUSE * KM DELETE/DEFINE - WILL ERASE AND RECREATE TMFORM1 AND TMDATA1 * $$ SLI KMDAFRDF // PAUSE * $$ LST CLASS=A,DISP=H,USER='KM FORMULA INIT' * $$ SLI KMFRMINT // PAUSE * $$ LST CLASS=A,DISP=H,USER='KM DATA INIT' * $$ SLI KMDATINT * TAPE RESTORE OF ALL FILES .......................... * $$ LST CLASS=A,DISP=H,USER='KM TAPE RESTORE' // LIBDEF *,SEARCH=(KM60.OBJECT,KM60.SOURCE),TEMP // TLBL TMBACKT,'KMWHSEF0,D,U' // EXEC TMS20$XG,SIZE=800K RESTORE TYPE=COMPLETE, DEVADDR=SYS002 /* * CHECK LISTING TO VERIFY RESTORE COMPLETED SUCCESSFULY /& // JA RERUNOFF * $$ EOJ
Return to the Sample Job Stream List
//KMWHSERS JOB (KMWHSERS),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* ******* NOTES .PLEASE MAKE SURE ALL DATA ENTRY PERSONNEL ARE //* ******* OFF OF ..KEYMASTER....ALL DATA ENTRY SYSTEM THEN.. //* ******* NOTES .PLEASE DO CEMT INQ,DATA(TM*) ON CICS TERMINAL //* ******* AND MAKE SURE ALL THE TM* FILES ARE CLOSED //* ******* BEFORE PRCECEEDING WITH THIS BACKUP //* KM DELETE/DEFINE - WILL ERASE AND RECREATE TMFORM1 AND TMDATA1 //* TAPE RESTORE OF ALL FILES .......................... //* //* STEP0010 PGM=TMS20$XG //* //STEP0010 EXEC PGM=TMS20$XG //* MT I SYS002 UA 'KMWHSEF0,D,U' //TMBACKT DD DSN=CAR.KMWHSEF0(0), // DISP=SHR //* VS I CARUCAT S 'KEY.MASTER.DATA' //TMDATA1 DD DSN=MVS.KEY.MASTER.DATA, // DISP=SHR //* VS I CARUCAT S 'KEY.MASTER.FORMATS' //TMFORM1 DD DSN=MVS.KEY.MASTER.FORMATS, // DISP=SHR //* PR O SYSLST 00E 0005 //SYSPRINT DD SYSOUT=A //* CD I SYSIPT 00C //SYSIN DD * RESTORE TYPE=COMPLETE, DEVADDR=SYS002 /* //
Return to the Sample Job Stream List