
PROC qcp$reset_environment

crev ignore k=status
crev fm_path k=string v=':$SYSTEM.$SYSTEM.FIELD_MAINTENANCE'
crev qc_path k=string v=':$SYSTEM.$SYSTEM.QCU_MAINTENANCE'

delete_catalog $fname(fm_path) cac  status = ignore
delete_catalog $fname(qc_path) cac status = ignore


PROCEND qcp$reset_environment
