 TYPE
    put$status_severity = (puc$normal_status, puc$informative_status,
      puc$warning_status, puc$error_status, puc$fatal_status,
      puc$catastrophic_status);


  VAR
    puv$termination_error_level: [READ, pus$literals] put$status_severity :=
      puc$fatal_status;

?? PUSH (LISTEXT := ON) ??
*copyc pus$literals
?? POP ??
