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