I am using this AIF intrinsic to get info on a file.

Works fine when the file is in the perm domain but it doesn't work if
the file is in the temp domain.

I need this file to be in the temp domain (not the perm domain) so
what do I need to do to get AIFFILEGGET to see the temp file.

I would use the FLABELINFO intrinsic but it doesn't give me the file 
lockword when the program is being run by a non SM/AM user.

So I opted for the AIF's.


Here's my code:

PROCEDURE get_the_labelinfo(var overall_status:HPE_status;
                            var item_table    :item_table_type;
                            var tempfile       :boolean);

label 999;
begin
   item_num_array[1]  := 5001;
   item_num_array[2]  := 5041;
   item_num_array[3]  := 5016;
   item_num_array[4]  := 5008;
   item_num_array[5]  := 5017;
   item_num_array[6]  := 5012;
   item_num_array[7]  := 5039;
   item_num_array[8]  := 5010;
   item_num_array[9]  := 0;

   item_array    [1]  := addr(item_table.itt_file_name);
   item_array    [2]  := addr(item_table.itt_file_owner);
   item_array    [3]  := addr(item_table.itt_rec_size);
   item_array    [4]  := addr(item_table.itt_file_code);
   item_array    [5]  := addr(item_table.itt_eof);
   item_array    [6]  := addr(item_table.itt_foptions);
   item_array    [7]  := addr(item_table.itt_file_type);
   item_array    [8]  := addr(item_table.itt_lockword);

   overall_status.all     := 0;
   user_id                := 0;
   item_status_array      := init_item_status_array;
   item_table.itt_lockword:= ' ';

   GETPRIVMODE;

   AIFFILEGGET(overall_status,
               item_num_array,
               item_array,
               item_status_array,,
               item_table.itt_file_name,
               tempfile,
               user_id,,);
   if overall_status.all <> 0 then
      goto 999;

   goto 999;
999:
   GETUSERMODE;
end;

TIA,
Brian Donaldson.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *