Return to the Sample Job Stream List

KMWHSERS Sample Job Stream

Original JCL (VSE)

* $$ 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

Translated JCL (MVS)

//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