zOs/REXX/WKREC
$#@ $*( remove recovery tables for rcQuery to fix recovery error
recovery error ==> f1 shows which tables
Initialization of backup data set failed, recovery suspended. This error
occur when the edit recovery table (RCEDRT or RCEIRT) can not be initial
or when the backup data set can not be created or written. If this error
happens again, delete the recovery tables and backup data sets.
$*)
call iiIni
rz = iiRz2dsn(sysvar(sysnode))
tbLib = 'TSU.'rz'.P0.'userid()'.PROF'
mbrs = 'RCEDRT RCEIRT'
say 'removing' mbrs 'from' tbLib
call dsnDel tbLib, mbrs