1.SDA_FLAGS flags;

      sda$get_flags (&flags);
      if (flags.sda_flags$v_current)
          sda$print (Analyzing the current system);

      This example shows the use of SDA$GET_FLAGS.