* $$ JOB JNM=ESZ001,CLASS=5 * $$ LST CLASS=R,DEST=* // JOB ESZ001 // ASSGN SYSLST,00E // ASSGN SYS046,DISK,VOL=TREAS3,SHR // PAUSE MOUNT CARTRIDGE & ASSGN SYS000 // TLBL SYS000,' ' // DLBL PCPAUL,'PCPAUL',,VSAM,CAT=BBCAT // EXEC IDCAMS,SIZE=AUTO DEL (PCPAUL) CL CAT (TREAS.UCAT.BB BBCAT) PURGE DEF CL (NAME(PCPAUL) VOL(TREAS3) NONINDEXED - RECSZ(577,577) RECORDS(1000 100)) - DATA(NAME(PCPAUL.ESDS) CISZ(5120)) - CAT(TREAS.UCAT.BB) /* FOLLOWING AIX & PATH ENTRIES ADDED TO TEST XFERD1 */ DEF AIX(NAME(PCPAUL.AIX) REL(PCPAUL)) CAT(TREAS.UCAT.BB) DEF PATH(NAME(PCPAUL.PATH) PENT(PCPAUL.AIX)) CAT(TREAS.UCAT.BB) DEF AIX(NAME(PCPAUL.AIX2) REL(PCPAUL)) CAT(TREAS.UCAT.BB) DEF PATH(NAME(PCPAUL.PATH2) PENT(PCPAUL.AIX2)) CAT(TREAS.UCAT.BB) /* // EXEC EZTPA00,SIZE=512K LIST OFF PARM DEVICE (FBA) + DEBUG(NOCLIST, NODMAP) + LIST(NOFILE NOPARM) + SORT(MSG (NO)) * * PGM ESZ001 TAPE TO DISK * FILE SYS000 TAPE (REWIND) FB(577 32312) * FILE PCPAUL VS (ES) * JOB INPUT SYS000 * PUT PCPAUL FROM SYS000 PRINT REP-001 * REPORT REP-001 LINESIZE 132 SUMMARY CONTROL TITLE 01 'ESCHEATS RECORDS COPIED' TITLE 02 'EZT PLUS PROGRAM ESZ001' LINE 01 TALLY /* /& * $$ EOJ
Return to the Sample Job Stream List
//ESZ001 JOB (ESZ001),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* STEP0010 PGM=IDCAMS //* //STEP0010 EXEC PGM=IDCAMS //* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS //* VS I BBCAT A 'PCPAUL' DELETE //#DELETE DD DUMMY,DSN=MVS.PCPAUL //* VS VS I BBCAT A 'PCPAUL' DEFAIX //#DEFAIX DD DUMMY,DSN=MVS.PCPAUL //* VS VS IX I BBCAT A 'PCPAUL.AIX' DEFPATH //#DEFPATH DD DUMMY,DSN=MVS.PCPAUL.AIX //* VS VS I BBCAT A 'PCPAUL' DEFAIX //#DEFAIX DD DUMMY,DSN=MVS.PCPAUL //* VS VS IX I BBCAT A 'PCPAUL.AIX2' DEFPATH //#DEFPATH DD DUMMY,DSN=MVS.PCPAUL.AIX2 //* VS VS ES O BBCAT A 'PCPAUL' DEFCL //#DEFCL DD DUMMY,DSN=MVS.PCPAUL //* VS VS IX O BBCAT A 'PCPAUL.AIX' DEFAIX //#DEFAIX DD DUMMY,DSN=MVS.PCPAUL.AIX //* VS VS PH O BBCAT A 'PCPAUL.PATH' DEFPATH //#DEFPATH DD DUMMY,DSN=MVS.PCPAUL.PATH //* VS VS IX O BBCAT A 'PCPAUL.AIX2' DEFAIX //#DEFAIX DD DUMMY,DSN=MVS.PCPAUL.AIX2 //* VS VS PH O BBCAT A 'PCPAUL.PATH2' DEFPATH //#DEFPATH DD DUMMY,DSN=MVS.PCPAUL.PATH2 //* PR O //SYSPRINT DD SYSOUT=* //*TLBL SYS000,'--> NO FILE-ID ON TLBL <--' //*DLBL PCPAUL,'PCPAUL',,VSAM,CAT=BBCAT //* CD I //SYSIN DD * DEL (MVS.PCPAUL) CL PURGE IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0 DEF CL (NAME(MVS.PCPAUL) VOL(TREAS3) NONINDEXED - RECSZ(577,577) RECORDS(1000 100)) - DATA( CISZ(5120)) /* FOLLOWING AIX & PATH ENTRIES ADDED TO TEST XFERD1 */ DEF AIX(NAME(MVS.PCPAUL.AIX) REL(MVS.PCPAUL)) DEF PATH(NAME(MVS.PCPAUL.PATH) PENT(MVS.PCPAUL.AIX)) DEF AIX(NAME(MVS.PCPAUL.AIX2) REL(MVS.PCPAUL)) DEF PATH(NAME(MVS.PCPAUL.PATH2) PENT(MVS.PCPAUL.AIX2)) /* //* //* STEP0020 PGM=EZTPA00 //* //STEP0020 EXEC PGM=EZTPA00 //* MODULE EZTPA00 PROCESSED BY PLUG-IN LCPEZP //* MT I C '--> NO FILE-ID ON TLBL <--' //SYS000 DD DSN='--> NO FILE-ID ON TLBL <--', // BLKSIZE=32312, // RECFM=FB //* SD W EZTVFM /0/0 OPT=Y //* VS VS ES O BBCAT C 'PCPAUL' //PCPAUL DD DSN=MVS.PCPAUL, // DISP=SHR //* PR O SYSLST 00E 0001 //SYSPRINT DD SYSOUT=R //* CD I //SYSIN DD * LIST OFF PARM DEVICE (FBA) + DEBUG(NOCLIST, NODMAP) + LIST(NOFILE NOPARM) + * * PGM ESZ001 TAPE TO DISK * FILE SYS000 FB(577 0) * FILE PCPAUL VS (ES) * JOB INPUT SYS000 * PUT PCPAUL FROM SYS000 PRINT REP-001 * REPORT REP-001 LINESIZE 132 SUMMARY CONTROL TITLE 01 'ESCHEATS RECORDS COPIED' TITLE 02 'EZT PLUS PROGRAM ESZ001' LINE 01 TALLY /* //
Return to the Sample Job Stream List