14 lines
468 B
Plaintext
14 lines
468 B
Plaintext
//ECNTSUPV JOB (ES),VCOPY3,CLASS=A,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP
|
|
//**********************************************************************
|
|
//**********************************************************************
|
|
//STEP0200 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
DELETE -
|
|
DOESTAX.PROD.VSAM.ZAIC
|
|
TRUENAME -
|
|
CATALOG(CATALOG.DOES)
|
|
/*
|
|
//************************************************************
|