>LOCAL a_class >DIMENSION a_class[1] >IF AGETCLASS(a_class) AND TYPE('a_class[2]') = 'C' > MODIFY CLASS (a_class[2]) OF (a_class[1]) >ENDIF