15 lines
433 B
Plaintext
15 lines
433 B
Plaintext
//ECNTSUPT JOB TO,'JCL CNV LIST JCL',MSGCLASS=X,CLASS=A,REGION=4M,
|
|
// NOTIFY=ECNTSUP
|
|
//SEARCH EXEC PGM=FILEAID
|
|
//SYSTOTAL DD DUMMY
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSLIST DD SYSOUT=*,DCB=LRECL=80
|
|
//DD01 DD DISP=SHR,DSN=DOESTAX.PROD.JOBLIB
|
|
//SYSIN DD *
|
|
$$DD01 UPDATE FORM=JCL,MEMBERS=DTS
|
|
IF=(1,NE,C'//*'),
|
|
AND=(1,0,C' JOB '),
|
|
AND=(1,0,C'USER=#DOADTS'),
|
|
EDIT=(1,0,C'#DOADTS',C'#DOADTS')
|
|
/*
|