
  TYPE
    cst$boundary_attributes = record
      clipping: cst$clipping,
      justification: cst$field_justification,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cst$clipping
*copyc cst$field_justification
?? POP ??
