* $$ JOB JNM=P00A10YE,CLASS=9,DISP=H,USER=CONTROL.FILE,SYSID=1
* $$ LST FNO=W1DE,DISP=K,USER=R.SAVARD,CLASS=J,SYSID=N
// JOB P00A10YE YEARLY COPY / OFFSITE COPY
./ INCLUDE MONDATE,LIB=UAPJ
* CHANGE 'YEAR' IN DSNS BEFORE SUBMITTING
// OPTION LOG
* JMCL NAME=STEP001
* STEP STEP001 P00A10YE 01/02/98
* **********************************************************
* STEP001 - *
* --------------------- *
* PROGRAM - TSIDDTD *
* TAPE IN - P72PMCMY *
* TAPE OUT - YE.199X.122X9X.P72PMCMY *
* ******************************************************** *
* //TAPEIN DD DSN='P72PMCMY(0)',
* // DISP=(OLD,KEEP),
* // OPTION=(REW)
* //TAPEOUT DD DSN='YE.1999.122399.P72PMCMY(+0)',
* // DISP=(NEW,CATLG),
* // OPTION=(RUN,TPL=U),UNIT=CART,
* // LABEL=EXPDT=2099/366
// EXEC TSIDDTD IF=(HC EQ 00),DATA
INNAME=TAPEIN,OUTNAME=TAPEOUT
/*
* JMCL NAME=STEP002
* STEP STEP002 P00A10YE 01/02/98
* **********************************************************
* STEP002 - COPY TO OFFSITE DSN *
* --------------------- *
* PROGRAM - TSIDDTD *
* TAPE IN - P72PMCMY *
* TAPE OUT - OS.YE.199X.122X9X.P72PMCMY *
* ******************************************************** *
* //TAPEIN DD DSN='P72PMCMY(0)',
* // DISP=(OLD,KEEP),
* // OPTION=(RUN)
* //TAPEOUT DD DSN='OS.YE.1999.122399.P72PMCMY(+0)',
* // DISP=(NEW,CATLG),
* // OPTION=(RUN,TPL=U),UNIT=CART,
* // LABEL=EXPDT=2099/366
// EXEC TSIDDTD IF=(HC EQ 00),DATA
INNAME=TAPEIN,OUTNAME=TAPEOUT
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//P00A10YE JOB (P00A10YE),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* CHANGE 'YEAR' IN DSNS BEFORE SUBMITTING //* JMCL NAME=STEP001 //* STEP STEP001 P00A10YE 01/02/98 //* ********************************************************** //* STEP001 - * //* --------------------- * //* PROGRAM - TSIDDTD * //* TAPE IN - P72PMCMY * //* TAPE OUT - YE.199X.122X9X.P72PMCMY * //* ******************************************************** * //* //* STEP0010 PGM=SORT TSIDDTD //* //STEP0010 EXEC PGM=SORT //* MODULE TSIDDTD PROCESSED BY PLUG-IN JCLTDDTD //* MT I SYS004 UA E TAPEIN 'P72PMCMY(0)' //SORTIN DD DSN=MVS.P72PMCMY, // DISP=SHR, // VOL=(,RETAIN) //* MT O SYS005 UA E TAPEOUT 'YE.1999.122399.P72PMCMY(+0)' //SORTOUT DD DSN=YE1999.D122399.P72PMCMY, // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY /* //* //* JMCL NAME=STEP002 //* STEP STEP002 P00A10YE 01/02/98 //* ********************************************************** //* STEP002 - COPY TO OFFSITE DSN * //* --------------------- * //* PROGRAM - TSIDDTD * //* TAPE IN - P72PMCMY * //* TAPE OUT - OS.YE.199X.122X9X.P72PMCMY * //* ******************************************************** * //* //* STEP0020 PGM=SORT TSIDDTD //* //STEP0020 EXEC PGM=SORT //* MODULE TSIDDTD PROCESSED BY PLUG-IN JCLTDDTD //* MT I SYS004 UA E TAPEIN 'P72PMCMY(0)' //SORTIN DD DSN=MVS.P72PMCMY, // DISP=SHR //* MT O SYS005 UA E TAPEOUT 'OS.YE.1999.122399.P72PMCMY(+0)' //SORTOUT DD DSN=OS.YE1999.D122399.P72PMCMY, // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=COPY /* //
Return to the Sample Job Stream List