*COMDECK DITCOMSC 
*CALL SCCWDECLS 
*CALL DITDECLS
