
  PROCEDURE [XREF] rfp$set_connection_entry_p (connection_entry_p: ^rft$connection_entry;
        response_seq_number: INTEGER;
    VAR status: ost$status);


?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc rfe$condition_codes
*copyc rft$rhfam_job_table
?? POP ??
