47 lines
3.6 KiB
Plaintext
47 lines
3.6 KiB
Plaintext
//ECNTVCRT JOB (SY),DOES.CARTLIST,CLASS=P,MSGCLASS=X, 00010002
|
|
// USER=#DOADTS, 00011005
|
|
// NOTIFY=ECNTJP2, 00011106
|
|
//*** NOTIFY=ECNTSUP, 00011206
|
|
// REGION=0M 00012002
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS
|
|
//**** 00020002
|
|
// SET LVDHOLD='YES' 00021002
|
|
//**** 00024002
|
|
//* THIS JOB SENDS THE DOES ACTIVE TAPE LIST TO VIEWDIRECT ** 00050006
|
|
//**** 00060002
|
|
//TMSGRW EXEC PGM=TMSGRW,REGION=64M 00070001
|
|
//* 00080002
|
|
//TMSRPT DD SYSOUT=(Z,DTSCRTW2),HOLD=&LVDHOLD, 00110003
|
|
// DEST=U@PRT65 00110102
|
|
//* 00111002
|
|
//SYSOUT DD SYSOUT=* 00120000
|
|
//* Z/OS 1.4 DSN=SYS1.SORTLIB,DISP=SHR 00130000
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00140000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00150000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00160000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00170000
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00180000
|
|
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(2,2),,CONTIG) 00190000
|
|
//SYSIN DD * 00200000
|
|
CONTROL-SECTION 00201000
|
|
SORT DSN 00202000
|
|
ALTER DSNB=NO 00203000
|
|
TITLE 'DOES ACTIVE TAPES' 00204000
|
|
DEFINE VOL1 CH '400000' 00205000
|
|
DEFINE VOL2 CH '404370' 00206000
|
|
DEFINE DELETED HX '02' 00207000
|
|
DEFINE SCRATCH HX '04' 00208000
|
|
PROCESS-SECTION 00209000
|
|
WHEN FLAG1 ON SCRATCH 00209100
|
|
REJECT 00209200
|
|
WHEN FLAG1 ON DELETED 00209300
|
|
REJECT 00209400
|
|
WHEN VOLSER GE VOL1 00209500
|
|
AND VOLSER LE VOL2 00209600
|
|
LIST 00209700
|
|
REPORT-SECTION 00209800
|
|
PRINT DSN VOLSER CJOB CDATE EXPDT 00209900
|
|
/* 00210000
|
|
//**** 00220002
|