|
Luis
it really isn't too difficult :)
Looking at your full program, I see you are already
specifying the longer format:
D szFmt S 8A Inz('MBRD0200')
so all you need to do is (changed lines marked with <=):
D szMbrd0100 DS INZ
D nBytesRtn 10I 0
D nBytesAval 10I 0
D szFileName 10A
D szLibName 10A
D szMbrName 10A
D szFileAttr 10A
D szSrcType 10A
D dtCrtDate 13A
D dtLstSrcChg 13A <=
D szMbrText 50A
D bIsSource 1A
* sorry, can't be bothered with keying all missing bits ! <=
D dtLstChg 161 173A <=
Mike
--
**********************************************************************
The information transmitted is intended only for use by the addressee and may
contain confidential and/or privileged material. Any review, re-transmission,
dissemination or other use of it, or the taking of any action in reliance upon
this information by persons and/or entities other than the intended recipient
is prohibited. If you received this in error, please inform the sender and/or
addressee immediately and delete the material. Thank you
**********************************************************************
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.