int status;
  char buffer [132];
  char *device = $1$DKA0;
  unsigned short fid [3] = {1, 1, 0};
  status = sda$fid_to_name (device, &fid [0], buffer, 132);
  if (status & 1)
      sda$print ("Filename is !AZ", buffer);
  else
      sda$print ("File ID could not be translated");

      This example shows the translation of file ID (1,1,0) on
      $1$DKA0:, which is $1$DKA0:[000000]INDEXF.SYS;1.