Would below work?
DOpenDir PR * EXTPROC('opendir')
D dirname * VALUE options(*string)
D In_DirName S 640 inz('/myDir')
D dirPtr S *
C eval dirPtr = OpenDir(%trimr(In_DirName))
C If dirPtr = *NULL
. . . .
----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Shannon ODonnell
Sent: Friday, October 05, 2007 4:46 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: 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
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
