
{ This procedure verifies that the asti stored in the file descriptor entry is still being used by
{ the same job for the same file.  If the asti is ok, it is returned; otherwise 0 is returned.

  PROCEDURE [INLINE] mmp$get_verify_asti_in_fde
    (    fde_p: gft$locked_file_desc_entry_p;
         sfid: gft$system_file_identifier;
         ijlo: jmt$ijl_ordinal;
     VAR asti: mmt$ast_index);

 ?? PUSH (LISTEXT := ON) ??
    asti := fde_p^.asti;
    IF (NOT mmv$ast_p^ [asti].in_use) OR (mmv$ast_p^ [asti].sfid <> sfid) OR
          ((sfid.residence = gfc$tr_job) AND (mmv$ast_p^ [asti].ijl_ordinal <> ijlo)) THEN
      asti := 0;
      fde_p^.asti := 0;
    IFEND;

  PROCEND mmp$get_verify_asti_in_fde;

?? POP ??

