Return to the Sample Job Stream List

KMWHSEBU Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=KMWHSEBU,DISP=D,CLASS=P,USER=0000KM0620000000
* $$ LST CLASS=A,DISP=D
* $$ PUN CLASS=V,DISP=D,PUN=FED
// JOB KMWHSEBU  KEY/MASTER      DATA FROM   FILE
* // JA RERUNON X
// PAUSE  KEYMASTER FILES MUST BE CLOSED
// LIBDEF *,SEARCH=(KM60.OBJECT,KM60.SOURCE),TEMP
// EXEC IDCAMS
   VERIFY FILE(TMDATA1)
   VERIFY FILE(TMFORM1)
/*
// TLBL TMBACKT,'KMWHSEF0,D,U'
// EXEC TMS20$XG,SIZE=800K
   DUMP DEVADDR=SYS002
/*
/&
// JA RERUNOFF
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//KMWHSEBU JOB (KMWHSEBU),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*PAUSE  KEYMASTER FILES MUST BE CLOSED
//*
//*     STEP0010  PGM=PAUSE
//*
//STEP0010 EXEC PGM=PAUSE,PARM='KEYMASTER FILES MUST BE CLOSED'
//*
//*  --> PGM=IDCAMS   <-- DELETED
//*
//*     STEP0020  PGM=TMS20$XG
//*
//STEP0020 EXEC PGM=TMS20$XG
//*    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
//* MT O SYS002 UA             'KMWHSEF0,D,U'
//TMBACKT  DD  DSN=CAR.KMWHSEF0(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=A
//* CD I SYSIPT 00C
//SYSIN    DD  *
   DUMP DEVADDR=SYS002
/*
//
   

Return to the Sample Job Stream List