The AST in Progress routine indicates whether an AST is currently
    in progress.

    Format

      LIB$AST_IN_PROG