I found a solution -- use the UFID instead of the file name and
AIFFILEGGET works just fine.

Brian.

On Mon, 1 Oct 2007 15:48:29 -0400, Brian Donaldson <[log in to unmask]> 
wrote:

>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 *

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