
  PROCEDURE [XREF] qfp$unlink_kjl_ajl ( kjl_ord: jmt$kjl_ordinal;
    VAR status: ost$status);

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