* $$ JOB JNM=KMXAI195,CLASS=5,DISP=H,USER=0000KM0200000000
* $$ LST CLASS=A,DISP=D
* $$ PUN CLASS=V,DISP=D,PUN=FED
// JOB KMXAI195 EXTRACT RECORDS FOR AI195R IN EXTRACT CLOSED VERIFIED
* // JA RERUNON X
/*
* NOTE: PLEASE MAKE SURE ALL DATA ENTRY PERSONNEL ARE
* OFF OF ..KEYMASTER....ALL DATA ENTRY SYSTEM THEN..
*
* NOTE: PLEASE DO CEMT INQ,DATA(TM*) ON CICS TERMINAL
* AND MAKE SURE ALL THE TM* FILES ARE CLOSED
* BEFORE PROCEEDING WITH THIS JOB
/*
// PAUSE
// LIBDEF *,SEARCH=(KM60.OBJECT,KM60.SOURCE),TEMP
// TLBL KMXAI19,'KMAI1950,W'
// EXEC TMS20$ZD,SIZE=800K
EXTRACT APPL=AIPSO,STATUS=(COMPLETE,VERIFIED),
OUTFILE=(NAME=KMXAI19,LRECL=175,BLKSIZE=1750,DEVADDR=SYS010,
TYPE=T,FILABL=STD),XSTATE=(EQ,00)
/*
/&
// JA RERUNOFF
* $$ EOJ
Return to the Sample Job Stream List
//KMXAI195 JOB (KMXAI195),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* NOTE: PLEASE MAKE SURE ALL DATA ENTRY PERSONNEL ARE
//* OFF OF ..KEYMASTER....ALL DATA ENTRY SYSTEM THEN..
//*
//* NOTE: PLEASE DO CEMT INQ,DATA(TM*) ON CICS TERMINAL
//* AND MAKE SURE ALL THE TM* FILES ARE CLOSED
//* BEFORE PROCEEDING WITH THIS JOB
//*
//* STEP0010 PGM=TMS20$ZD
//*
//STEP0010 EXEC PGM=TMS20$ZD
//* MODULE TMS20$ZD PROCESSED BY PLUG-IN JCLTKMZD
//* VS U CARUCAT S 'KEY.MASTER.DATA'
//TMDATA1 DD DSN=MVS.KEY.MASTER.DATA,
// DISP=SHR
//* VS U CARUCAT S 'KEY.MASTER.FORMATS'
//TMFORM1 DD DSN=MVS.KEY.MASTER.FORMATS,
// DISP=SHR
//* MT O SYS010 UA 'KMAI1950,W' EXTRACT
//KMXAI19 DD DSN=CAR.KMAI1950,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
EXTRACT APPL=AIPSO,STATUS=(COMPLETE,VERIFIED), *
OUTFILE=(NAME=KMXAI19,LRECL=175),XSTATE=(EQ,00)
/*
//
Return to the Sample Job Stream List