/*
*/
 
Say 'Purge Workunit'
Call CSL 'DMSPURWU RETCD REACD'
 
say ' 'retcd reacd