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