|
>> 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-2024 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.