|
midrange.com
Two copies:
As from Jon Paris:
* Copy member for all V5R2 program status values
* RPG program errors (*PROGRAM)
* Extracted from Chapter 5 - Program Exception/Errors of the RPG IV
Reference
* Called program returned with the LR indicator on.
D ReturnWithLR C 00001
* Conversion resulted in substitution.
D ConvWithSub C 00050
* Value out of range for string operation
D StringRangeErr C 00100
* Negative square root
D NegativeSqRoot C 00101
* Divide by zero
D DivideByZero C 00102
* An intermediate result is not large enough to contain the result.
D IntResTooBig C 00103
* Float underflow. An intermediate value is too small to be
contained in the
* intermediate result field.
D IntResTooSmall C 00104
* Invalid characters in character to numeric conversion functions.
D Char2NumErr C 00105
* Invalid Date, Time or Timestamp value.
D InvalidDTZ C 00112
* Date overflow or underflow. (For example, when the result of a
Date
* calculation results in a number greater than *HIVAL or less than
*LOVAL.)
D DateRangeErr C 00113
* Date mapping errors, where a Date is mapped from a 4-character
year to a
* 2-character year, and the date range is not 1940-2039.
D DateMapErr C 00114
* Variable-length field has a current length that is not valid.
D FieldLenErr C 00115
* Table or array out of sequence.
D ArraySeqErr C 00120
* Array index not valid
D ArrayIndxErr C 00121
* OCCUR outside of range
D InvalidOccur C 00122
* Reset attempted during initialization step of program
D ResetErr C 00123
* Called program or procedure failed; halt indicator (H1 through H9)
not on
D CallFail C 00202
* Error calling program or procedure
D ErrorOnCall C 00211
* Pointer or parameter error
D ParmError C 00222
* Called program or procedure returned with halt indicator on
D ReturnWithHalt C 00231
* Halt indicator on in this program
D HaltIsOn C 00232
* Halt indicator on when RETURN operation run
D HaltOnReturn C 00233
* RPG IV formatted dump failed
D DumpFail C 00299
* Class or method not found for a method call, or error in method
call.
D MethodCallErr C 00301
* Error while converting a Java array to an RPG parameter on entry
to a
* Java native method.
D JNIEntryParmErr...
D C 00302
* 00302 Error converting RPG parm to Java array on exit from an RPG
native method.
D JNIExitParmErr C 00302
* Error converting RPG parameter to Java array in preparation for a
Java
* method call.
D MethodCallErr C 00304
* Error converting Java array to RPG parameter or return value after
a Java method
D MethodReturnErr...
D C 00305
* Error converting RPG return value to Java array.
D JNIReturnErr C 00306
* Error on DSPLY operation
D DSPLYErr C 00333
* Data area specified on IN/OUT not found
D DataAreaNotFnd C 00401
* *PDA not valid for non-prestart job
D PDAUsageErr C 00402
* Data area type or length does not match
D DtaAreMismatch C 00411
* Data area not locked for output
D DtaAraNotLocked...
D C 00412
* Error on IN/OUT operation
D DtaAraIOErr C 00413
* User not authorized to use data area
D DtaAraAutErr C 00414
* User not authorized to change data area
D DtaAraUpdErr C 00415
* Error on UNLOCK operation
D DtaAraUnlErr C 00421
* Length requested for storage allocation is out of range
D AllocSizeErr C 00425
* Error encountered during storage management operation
D StorageMgtErr C 00426
* Data area previously locked by another program
D DtaAraLckOther C 00431
* Data area locked by program in the same process
D DtaAraLckThis C 00432
* Character field not entirely enclosed by shift-out and shift-in
characters
D MissingSISO C 00450
*Conversion between two CCSIDs is not supported.
D CCSIDErr C 00451
* Failure to retrieve sort sequence.
D SortSeqRetFail C 00501
* Failure to convert sort sequence.
D SortSeqConvFail...
D C 00502
* Commitment control not active.
D CCNotActive C 00802
* Rollback operation failed.
D RollBackFail C 00803
* Error occurred on COMMIT operation
D CommitErr C 00804
* Error occurred on ROLBK operation
D RollBackErr C 00805
* Decimal data error (digit or sign not valid)
D DecDataErr C 00907
* Errors indicative of RPG/System error
* The level number of the compiler used to generate the program does
not
* agree with the level number of the RPG IV run-time subroutines.
D RPGLevelErr C 00970
* Internal failure in ILE RPG compiler or in run-time subroutines
D RPGErr C 09998
* Program exception in system routine.
D SystemErr C 09999
* File related errors (*FILE category)
* Extracted from Chapter 5 - File Exception/Errors of the RPG IV
Reference
* (W,D,SQ) Tried to write a record that already exists
D RecordExists C 01021
* (D) Referential constraint error detected on file member.
D RefConstErr C 01022
* (D,SQ) Error in trigger program before file operation performed.
D TriggerErrB C 01023
* (D,SQ) Error in trigger program after file operation performed.
D TriggerErrA C 01024
* (W,D,SQ) Match field out of sequence.
D MatchSeqErr C 01031
* Array/table load sequence error.
D LoadSeqErr C 01041
* Array/table load sequence error. Alternate collating sequence
used.
D LoadAltSeqErr C 01042
* Excess entries in array/table file.
D TooManyEntries C 01051
* (W,D,SQ) Numeric sequence error.
D NumSeqErr C 01071
* (W) No indicator on the DDS keyword for Print key.
D NoPrintKeyInd C 01121
* (W) No indicator on the DDS keyword for Roll Up key.
D NoRollUpKeyInd C 01122
* (W) No indicator on the DDS keyword for Roll Down key.
D NoRollDownKeyInd...
D C 01123
* (W) No indicator on the DDS keyword for Clear key.
D NoClearKeyInd C 01124
* (W) No indicator on the DDS keyword for Help key.
D NoHelpKeyInd C 01125
* (W) No indicator on the DDS keyword for Home key.
D NoHomeKeyInd C 01126
* (W) 34xx Record mismatch detected on input.
D RecMatchErr C 01201
* (All) I/O operation to a closed file.
D FileIsClosed C 01211
* (All) OPEN issued to a file already opened.
D FileIsOpen C 01215
* (All) Error on an implicit OPEN/CLOSE operation.
D OpenFailImp C 01216
* (All) Error on an explicit OPEN/CLOSE operation.
D OpenFailExp C 01217
* (D,SQ) Record already locked.
D RecordLocked C 01218
* (D,SQ) Update operation attempted without a prior read.
D UpdWithNoRead C 01221
* (D,SQ) Record cannot be allocated due to referential constraint
error
D AllocErrRC C 01222
* (SP) Error on SPECIAL file.
D SpecialFileErr C 01231
* (P) Error in PRTCTL space or skip entries.
D PrtCtlErr C 01235
* (D,SQ) Record number not found. (Record number specified in record
* address file is not present in file being processed.)
D RAFError C 01241
* (W) 80xx 81xx Permanent I/O error occurred.
D PermIOErr C 01251
* (W) 82xx 83xx Session or device error occurred. Recovery may be
possible.
D DeviceErr C 01255
* (W) Attempt to exceed maximum number of acquired devices.
D MaxAcqDevices C 01261
* (W) Attempt to acquire unavailable device
D DeviceNA C 01271
* (W) Operation to unacquired device.
D DeviceNotAcq C 01281
* (W) 0309 Job ending with controlled option.
D JobEnding C 01282
* (W) Unable to acquire second device for single device file
D CannotAcqDev C 01284
* (W) 0800 Attempt to acquire a device already acquired.
D AlreadyAcq C 01285
* (W) Attempt to open shared file with SAVDS or IND options.
D SharedOpenFail C 01286
* (W) Response indicators overlap IND indicators.
D IndOverlapErr C 01287
* (W,D,SQ) Other I/O error detected.
D OtherIOErr C 01299
* (W) 0310 Wait time exceeded for READ from WORKSTN file.
D ReadWaitExp C 01331
As I had in another member:
***************************************************************************
* 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
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"mlazarus@ttec.com" <mlazarus
Sent by: rpg400-l-bounces@midrange.com
01/24/2003 11:01 AM
Please respond to RPG programming on the AS400 / iSeries
To: rpg400-l@midrange.com
cc:
Fax to:
Subject: Re: How does the RPG MONITOR operation code work
Rob,
Would you mind posting your MemberWithListOfStatusCodes member?
-mark
Original Message:
-----------------
From: rob@dekko.com
Date: Fri, 24 Jan 2003 08:38:29 -0500
To: rpg400-l@midrange.com
Subject: Re: How does the RPG MONITOR operation code work
I think you are trying to mix and match a couple of different methods of
error trapping. IMHO that is not what you want to do in this situation.
Drop the MONITOR for this case.
Add the E extender as in
D/include yourlib/yourfile,MemberWithListOfStatusCodes
C/FREE
open (e) inputr;
select;
when not %error;
exsr ChkData;
when %status = FileAlreadyOpened;
// skip it
when %status = GeneralExplicitError;
// Look up major/minor return codes
EndSl;
/END-FREE
--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
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.
