17 lines
632 B
Plaintext
17 lines
632 B
Plaintext
//************************************************************
|
|
//* DELETE TAPE TRACKING AIX RECORDS
|
|
//************************************************************
|
|
//DESBZ067 PROC 00000010
|
|
//*
|
|
//STEP0100 EXEC PGM=DTSBZ067, DELETE ELEC MEDIA AIX RECS
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//DTSFAIX DD DSN=DOESTAX.&LVLNODE..VSAM.AIX,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//*********************************************************************
|