
  PROCEDURE [XREF] icp$terminate_partner_job (partner_identification:
    ict$partner_identification;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ICT$PARTNER_MESSAGES
*copyc OST$STATUS
?? POP ??
