
  PROCEDURE [XREF] icp$status_partner_job (partner_identification:
    ict$partner_identification;
    VAR partner_status: ict$status_partner_status;
    VAR status: ost$status);

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