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