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

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