|
> actually, the start of my code is: > > CRSKEY KLIST > KFLD COURS 6 > *IN03 DOWEQ*OFF > EXFMTCORINQ > *IN03 IFEQ *OFF > CRSKEY SETLLSECTIONL 10 > *IN10 IFEQ *OFF > MOVE *ON *IN90 > ELSE > EXSR CLRSFL > EXSR LODSFL > WRITEFOOTER > EXFMTCTLSEC Just as a hint for basic coding techniques: *Never* do code like the above, when reading a file (doenst matter if PF/LF or DSPF) but do (I think it is obvious, why...;-): EXFMT file *IN03 DOWEQ *OFF your code EXFMT file endDO * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the RPG/400 Discussion Mailing List! To submit a new * * message, send your mail to "RPG400-L@midrange.com". To unsubscribe * * from this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe RPG400-L' in the body of your message. Questions should * * be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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.