
  PROCEDURE [XREF] icp$initiate_partner_job (commands_length:
    ict$partner_commands_length;
        commands_pointer: ^cell;
        data_length: ict$partner_data_length;
        data_pointer: ^cell;
        validation_length: integer;
        validation_pointer: ^cell;
    VAR partner_identification: ict$partner_identification;
    VAR status: ost$status);

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