|
>> If you have the openness includes installed,
>> look in QSYSINC/H(DIRENT)
>
>Where do I get these?
Typical of me to omit the important stuff, sorry. It's option 13 of OS/400.
When you install OS/400 you get to choose a bunch of optional components.
This is one of them.
>>Dopendir pr * extproc('opendir')
>>D * value
>>
>>Ddirent ds based(entry)
>>D d_reserved 16
>>D d_fileno_geni 10u 0
>>D d_fileno 10u 0
>>D d_reclen 10u 0
>>D d_reserved3 10u 0
>>D d_reserved4 8
>>D d_nlsinfo 12
>>D d_namelen 10u 0
>>D d_name 640
>Shouldn't this be:
>
>Ddirent_p S *
>Ddirent DS BASED(direntp)
>Dd_reserved1 16A
>Dd_fileno_gen_id 10U 0
>Dd_fileno 10U 0
>Dd_reclen 10U 0
>Dd_reserved3 10I 0
>Dd_reserved4 6A
>Dd_reserved5 2A
>Dd_ccsid 10I 0
>Dd_country_id 2A
>Dd_language_id 3A
>Dd_nls_reserved 3A
>Dd_namelen 10U 0
>Dd_name 640A
>
>leaving off d_ccsid, d_country_id,
>d_language_id, and d_nls_reserved and
>just using a 12 byte d_nls_info
>created problems for me.
I didn't leave them off; they're bundled up in my 12 byte d_nlsinfo. I
didn't use them in the code I snipped from, and simply didn't bother to put
them in the DS. Sorry for any confusion.
--buck
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.