Lim is correct. Ignore my response. I wasn't paying close enough
attention.
His example should work perfectly.
James R. Perkins
"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces+jrperkins=manageinc.com@xxxxxxxxxxxx
05.10.2007 14:58
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: Open Directory Failing
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
