   PROCEDURE[xref] jmp$initiate_job (kjl_ord: jmt$kjl_ordinal;
      VAR status: ost$status );

?? PUSH (LISTEXT := ON) ??
*copyc JMT$KJL_ORDINAL
*copyc OST$STATUS
?? POP ??

