*COMDECK DITCOMSB 
*CALL SBCWDECLS 
*CALL DITDECLS
