Initial commit of DUTAS source code
This commit is contained in:
16
Procs/DESBZ067
Normal file
16
Procs/DESBZ067
Normal file
@ -0,0 +1,16 @@
|
||||
//************************************************************
|
||||
//* 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')
|
||||
//*
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user