giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit of DUTAS source code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit 59d8e47f26
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
JCL/ECNTVCRT.jcl Normal file
View File

@ -0,0 +1,46 @@
//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.PROCLIB 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