Open Directory Failing

["Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx>]

 Can anyone suggest why this might not be working?

 

If I hard code a directory path where PathName is, it works.  If I pass a
directory into the program in an *ENTRY PLIST, it doesn't.

 

 DOpenDir          PR              *   EXTPROC('opendir')        

 D dirname                            *   VALUE                      



 D In_DirName      S            640  

 D PathName        S            640  

 

 C                   eval      PathName = %Trimr(In_DirName) +       

 C                                                  %Trim(x'00')


 C                   eval      dirName = OpenDir(%addr(PathName))    

 C                   If          dirName = *NULL   

 

 

I've also tried it with using options(*STRING) on the prototype and not
passing the address.

 

I'm sure it's something simple but I'm not seeing it.

 

Thanks in advance!

 

Shannon O'Donnell