
TYPE
  cst$control = 0 .. csc$max_control;

*copyc csc$max_control
