My program does the same thing. I use "c:\temp\*" as my search string.
If I set the flags to 1 I get only the filenames.
If I set flags to 2 or 3 then the following will be returned:
native code:
.
..
managed code
c:\temp\.
c:\temp\..
The program I am using is:
id division.
program-id. plainscan.
working-storage section.
01 any-key pic x.
01 f-entry.
03 f-attribute pic x(4) comp-5.
03 f-date-stamp.
05 f-year pic x(4) comp-5.
05 f-month pic x(2) comp-5.
05 f-day pic x(2) comp-5.
05 f-hour pic x(2) comp-5.
05 f-minute pic x(2) comp-5.
05 f-second pic x(2) comp-5.
05 f-millisec pic x(2) comp-5.
05 f-dst pic x comp-5.
05 f-size pic x(8) comp-5.
05 f-name.
07 f-max-len pic x(2) comp-5 value 256.
07 f-entry-name pic x(256).
01 scan-pattern.
05 pattern-len pic x(2) comp-5 value 0.
05 pattern-text pic x(256) value spaces.
01 scan-attrib pic x(4) comp-5 value 1.
01 scan-flags pic x(4) comp-5 value 2.
01 scan-status pic x(2) comp-5 value 0.
01 scan-handle pointer.
procedure division.
move z"c:\temp\*" to pattern-text
move 0 to pattern-len
move 3 to scan-attrib
move 2 to scan-flags
call "CBL_DIR_SCAN_START"
using by reference scan-handle,
by reference scan-pattern,
by value scan-attrib,
by value scan-flags,
returning scan-status
end-call
perform until exit
move spaces to f-entry-name
call "CBL_DIR_SCAN_READ"
using by reference scan-handle
f-entry
returning scan-status
end-call
if scan-status = 0
display f-entry-name(1:30)
else
call "CBL_DIR_SCAN_END" using scan-handle
exit perform
end-if
end-perform.
accept any-key
goback.