Open Directory Failing

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