
  TYPE
    dft$p_state_change_procedure = ^procedure
           (    partner_mainframe: pmt$mainframe_id;
                partner_is_server: boolean;
                previous_state: dft$server_state;
                new_state: dft$server_state;
            VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dft$server_state
*copyc ost$status
*copyc pmt$mainframe_id
?? POP ??
