
  PROCEDURE [XREF] qfp$set_ajl_status ( ajl_ord: jmt$ajl_ordinal;
    status_value: jmt$ajl_status;
    VAR status: ost$status);

??PUSH(LIST:=OFF{LISTEXT:=ON})??
*copyc JMT$AJL_ORDINAL
*copyc JMT$AJL_STATUS
*copyc OST$STATUS
??POP??
