|
*************************************************************************** * File status codes * *************************************************************************** D NoError C 0 D EndOfFile C 11 D RecordNotFound C 12 D DuplicateKey C 1021 D ReferentialErr C 1022 D TriggerErrBef C 1023 D TriggerErrAft C 1024 D YouAreOld C 1031 D FileClosed C 1211 D FileOpen C 1215 D ImpOpenCloseEr C 1216 D ExpOpenCloseEr C 1217 D RecAlreadyLock C 1218 D UpdBeforeRead C 1221 D RefErrOnAlloc C 1222 D PermIOErr C 1251 D JobEndingCtl C 1282 // http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/info/rzajp/sc092508.pdf // Chapter 5 File and Program exception/errors // File exception/errors // File Information data structure // File status codes c/free write(e) arrec; if %error; Select; When %status(arrfile) = DuplicateKey; // this error When %status(arrfile) = ReferentialErr; // that error When %status(arrfile) = FileClosed; // open and retry? When %status(arrfile) = TriggerErrBef; // Retrieve messages from the joblog and handle it Other; // catch all EndSl; EndIf; Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.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.