Return to the Sample Job Stream List

PLSXMTF Sample Job Stream

Original JCL (VSE)

*  IDCAMS EXPORT OF PLSFMTF VSAM FILE
*/***** PLSASSGN.INCLUDE   /BEGIN/  PLSXMTF.SYSIN      001 */
*  PLS SYSTEM ASSIGNMENTS
// ASSGN SYSIPT,SYSRDR
// ASSGN SYS004,SYSRDR
*/***** PLSDLBL.INCLUDE    /BEGIN/  PLSASSGN.INCLUDE   002 */
*  PLS & PRM DISK LABELS AND EXTENTS
*/***** ADRDB.P            /BEGIN/  PLSDLBL.INCLUDE    003 */
LIBDEF PHASE,SEARCH=(CADB.DC26,CADB.IPC42,CADB.VSAMT21,                X
               CADB.USR90,CADB.INS90)
*/***** ADRDB.P            //END//  PLSDLBL.INCLUDE    003 */
// DLBL PLSFMTF,'$ADRVT.DBMRK003'
/* DLBL PRMDSKA,'GEN.MAIT.PARM',,VSAM,CAT=MOLUCAT
/*
*/***** PLSDLBL.INCLUDE    //END//  PLSASSGN.INCLUDE   002 */
/*
*/***** PLSASSGN.INCLUDE   //END//  PLSXMTF.SYSIN      001 */
// DLBL IJSYSUC,'MOL.UCAT',,VSAM
// TLBL PLSTMTF,'PLS.BACKUP.FILE,U'
// EXEC IDCAMS,SIZE=AUTO
         EXPORT PROMO.LIST.FILE/PLSMTFM-
               INFILE(PLSFMTF)-
               OUTFILE(PLSTMTF ENV(PDEV(2400)))-
               TEMP
/*
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//PLSXMTF  JOB (PLSXMTF),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*  IDCAMS EXPORT OF PLSFMTF VSAM FILE
//*/***** PLSASSGN.INCLUDE   /BEGIN/  PLSXMTF.SYSIN      001 */
//*  PLS SYSTEM ASSIGNMENTS
//*/***** PLSDLBL.INCLUDE    /BEGIN/  PLSASSGN.INCLUDE   002 */
//*  PLS & PRM DISK LABELS AND EXTENTS
//*/***** ADRDB.P            /BEGIN/  PLSDLBL.INCLUDE    003 */
//*/***** ADRDB.P            //END//  PLSDLBL.INCLUDE    003 */
//*/***** PLSDLBL.INCLUDE    //END//  PLSASSGN.INCLUDE   002 */
//*/***** PLSASSGN.INCLUDE   //END//  PLSXMTF.SYSIN      001 */
//*
//*     STEP0010  PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS VS    I MOLUCAT  A          'PROMO.LIST.FILE'                    EXPORT
//#EXPORT  DD  DUMMY,DSN=MVS.PROMO.LIST.FILE
//* MT O                       'PLS.BACKUP.FILE,U'                      EXPORT
//PLSTMTF  DD  DSN=MVS.PLS.BACKUP.FILE,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//* PR O
//SYSPRINT DD  SYSOUT=*
//*DLBL PLSFMTF,'$ADRVT.DBMRK003',,SD
//* CD I
//SYSIN    DD  *
         EXPORT MVS.PROMO.LIST.FILE    -
               OUTFILE(PLSTMTF                )-
               TEMP
/*
//
   

Return to the Sample Job Stream List