midrange.com code scratchpad
Name:
Constants for RPG Status Codes
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
07/25/2013 11:32:54 pm
IP:
Logged
Description:
Two versions using different naming conventions. May have one or two of the most recent additions missing - sorry no time to check.
Code:
  1.         // Version 1
  2.  
  3.       * Called program returned with the LR indicator on.
  4.      D ReturnWithLR    C                   00001
  5.  
  6.       * Conversion resulted in substitution.
  7.      D ConvWithSub     C                   00050
  8.  
  9.       * Value out of range for string operation
  10.      D StringRangeErr  C                   00100
  11.  
  12.       * Negative square root
  13.      D NegativeSqRoot  C                   00101
  14.  
  15.       * Divide by zero
  16.      D DivideByZero    C                   00102
  17.  
  18.       * An intermediate result is not large enough to contain the result.
  19.      D IntResTooBig    C                   00103
  20.  
  21.       * Float underflow. An intermediate value is too small to be contained in the
  22.       * intermediate result field.
  23.      D IntResTooSmall  C                   00104
  24.  
  25.       * Invalid characters in character to numeric conversion functions.
  26.      D Char2NumErr     C                   00105
  27.  
  28.       * Invalid Date, Time or Timestamp value.
  29.      D InvalidDTZ      C                   00112
  30.  
  31.       * Date overflow or underflow. (For example, when the result of a Date
  32.       *   calculation results in a number greater than *HIVAL or less than *LOVAL.)
  33.      D DateRangeErr    C                   00113
  34.  
  35.       * Date mapping errors, where a Date is mapped from a 4-character year to a
  36.       *   2-character year, and the date range is not 1940-2039.
  37.      D DateMapErr      C                   00114
  38.  
  39.       * Variable-length field has a current length that is not valid.
  40.      D FieldLenErr     C                   00115
  41.  
  42.       * Table or array out of sequence.
  43.      D ArraySeqErr     C                   00120
  44.  
  45.       * Array index not valid
  46.      D ArrayIndxErr    C                   00121
  47.  
  48.       * OCCUR outside of range
  49.      D InvalidOccur    C                   00122
  50.  
  51.       * Reset attempted during initialization step of program
  52.      D ResetErr        C                   00123
  53.  
  54.       * Called program or procedure failed; halt indicator (H1 through H9) not on
  55.      D CallFail        C                   00202
  56.  
  57.       * Error calling program or procedure
  58.      D ErrorOnCall     C                   00211
  59.  
  60.       * Pointer or parameter error
  61.      D ParmError       C                   00222
  62.  
  63.       * Called program or procedure returned with halt indicator on
  64.      D ReturnWithHalt  C                   00231
  65.  
  66.       * Halt indicator on in this program
  67.      D HaltIsOn        C                   00232
  68.  
  69.       * Halt indicator on when RETURN operation run
  70.      D HaltOnReturn    C                   00233
  71.  
  72.       * RPG IV formatted dump failed
  73.      D DumpFail        C                   00299
  74.  
  75.       * Class or method not found for a method call, or error in method call.
  76.      D MethodCallErr   C                   00301
  77.  
  78.       * Error while converting a Java array to an RPG parameter on entry to a
  79.       *   Java native method.
  80.      D JNIJavaArrayToRPGErr...
  81.      D                 C                   00302
  82.  
  83.       * 00302 Error converting RPG parm to Java array on exit from an RPG native method.
  84.      D JNIExitParmErr  C                   00302
  85.  
  86.       * Error converting RPG parameter to Java array in preparation for a Java
  87.       *   method call.
  88.      D JNIRPGtoJavaAErr...
  89.      D                 C                   00304
  90.  
  91.       * Error converting Java array to RPG parameter or return value after a Java method
  92.      D MethodReturnErr...
  93.      D                 C                   00305
  94.  
  95.       * Error converting RPG return value to Java array.
  96.      D JNIReturnErr    C                   00306
  97.  
  98.       * Error on DSPLY operation
  99.      D DSPLYErr        C                   00333
  100.  
  101.       * Data area specified on IN/OUT not found
  102.      D DataAreaNotFnd  C                   00401
  103.  
  104.       * *PDA not valid for non-prestart job
  105.      D PDAUsageErr     C                   00402
  106.  
  107.       * Data area type or length does not match
  108.      D DtaAreMismatch  C                   00411
  109.  
  110.       * Data area not locked for output
  111.      D DtaAraNotLocked...
  112.      D                 C                   00412
  113.  
  114.       * Error on IN/OUT operation
  115.      D DtaAraIOErr     C                   00413
  116.  
  117.       * User not authorized to use data area
  118.      D DtaAraAutErr    C                   00414
  119.  
  120.       * User not authorized to change data area
  121.      D DtaAraUpdErr    C                   00415
  122.  
  123.       * Error on UNLOCK operation
  124.      D DtaAraUnlErr    C                   00421
  125.  
  126.       * Length requested for storage allocation is out of range
  127.      D AllocSizeErr    C                   00425
  128.  
  129.       * Error encountered during storage management operation
  130.      D StorageMgtErr   C                   00426
  131.  
  132.       * Data area previously locked by another program
  133.      D DtaAraLckOther  C                   00431
  134.  
  135.       * Data area locked by program in the same process
  136.      D DtaAraLckThis   C                   00432
  137.  
  138.       * Character field not entirely enclosed by shift-out and shift-in characters
  139.      D MissingSISO     C                   00450
  140.  
  141.       *Conversion between two CCSIDs is not supported.
  142.      D CCSIDErr        C                   00451
  143.  
  144.       * Failure to retrieve sort sequence.
  145.      D SortSeqRetFail  C                   00501
  146.  
  147.       * Failure to convert sort sequence.
  148.      D SortSeqConvFail...
  149.      D                 C                   00502
  150.  
  151.       * Commitment control not active.
  152.      D CCNotActive     C                   00802
  153.  
  154.       * Rollback operation failed.
  155.      D RollBackFail    C                   00803
  156.  
  157.       * Error occurred on COMMIT operation
  158.      D CommitErr       C                   00804
  159.  
  160.       * Error occurred on ROLBK operation
  161.      D RollBackErr     C                   00805
  162.  
  163.       * Decimal data error (digit or sign not valid)
  164.      D DecDataErr      C                   00907
  165.  
  166.       * Errors indicative of RPG/System error
  167.  
  168.       * The level number of the compiler used to generate the program does not
  169.       *    agree with the level number of the RPG IV run-time subroutines.
  170.      D RPGLevelErr     C                   00970
  171.  
  172.       * Internal failure in ILE RPG compiler or in run-time subroutines
  173.      D RPGErr          C                   09998
  174.  
  175.       * Program exception in system routine.
  176.      D SystemErr       C                   09999
  177.  
  178.  
  179.  
  180.       * File related errors (*FILE category)
  181.       *  Extracted from Chapter 5 - File Exception/Errors of the RPG IV Reference
  182.  
  183.       * (W,D,SQ) Tried to write a record that already exists
  184.      D RecordExists    C                   01021
  185.  
  186.       * (D) Referential constraint error detected on file member.
  187.      D RefConstErr     C                   01022
  188.  
  189.       * (D,SQ) Error in trigger program before file operation performed.
  190.      D TriggerErrB     C                   01023
  191.  
  192.       * (D,SQ) Error in trigger program after file operation performed.
  193.      D TriggerErrA     C                   01024
  194.  
  195.       * (W,D,SQ) Match field out of sequence.
  196.      D MatchSeqErr     C                   01031
  197.  
  198.       * Array/table load sequence error.
  199.      D LoadSeqErr      C                   01041
  200.  
  201.       * Array/table load sequence error. Alternate collating sequence used.
  202.      D LoadAltSeqErr   C                   01042
  203.  
  204.       * Excess entries in array/table file.
  205.      D TooManyEntries  C                   01051
  206.  
  207.       * (W,D,SQ) Numeric sequence error.
  208.      D NumSeqErr       C                   01071
  209.  
  210.       * (W) No indicator on the DDS keyword for Print key.
  211.      D NoPrintKeyInd   C                   01121
  212.  
  213.       * (W) No indicator on the DDS keyword for Roll Up key.
  214.      D NoRollUpKeyInd  C                   01122
  215.  
  216.       * (W) No indicator on the DDS keyword for Roll Down key.
  217.      D NoRollDownKeyInd...
  218.      D                 C                   01123
  219.  
  220.       * (W) No indicator on the DDS keyword for Clear key.
  221.      D NoClearKeyInd   C                   01124
  222.  
  223.       * (W) No indicator on the DDS keyword for Help key.
  224.      D NoHelpKeyInd    C                   01125
  225.  
  226.       * (W) No indicator on the DDS keyword for Home key.
  227.      D NoHomeKeyInd    C                   01126
  228.  
  229.       * (W) 34xx Record mismatch detected on input.
  230.      D RecMatchErr     C                   01201
  231.  
  232.       * (All) I/O operation to a closed file.
  233.      D FileIsClosed    C                   01211
  234.  
  235.       * (All) OPEN issued to a file already opened.
  236.      D FileIsOpen      C                   01215
  237.  
  238.       * (All) Error on an implicit OPEN/CLOSE operation.
  239.      D OpenFailImp     C                   01216
  240.  
  241.       * (All) Error on an explicit OPEN/CLOSE operation.
  242.      D OpenFailExp     C                   01217
  243.  
  244.       * (D,SQ) Record already locked.
  245.      D RecordLocked    C                   01218
  246.  
  247.       * (D,SQ) Update operation attempted without a prior read.
  248.      D UpdWithNoRead   C                   01221
  249.  
  250.       * (D,SQ) Record cannot be allocated due to referential constraint error
  251.      D AllocErrRC      C                   01222
  252.  
  253.       * (SP) Error on SPECIAL file.
  254.      D SpecialFileErr  C                   01231
  255.  
  256.       * (P) Error in PRTCTL space or skip entries.
  257.      D PrtCtlErr       C                   01235
  258.  
  259.       * (D,SQ) Record number not found. (Record number specified in record
  260.       *        address file is not present in file being processed.)
  261.      D RAFError        C                   01241
  262.  
  263.       * (W) 80xx 81xx Permanent I/O error occurred.
  264.      D PermIOErr       C                   01251
  265.  
  266.       * (W) 82xx 83xx Session or device error occurred. Recovery may be possible.
  267.      D DeviceErr       C                   01255
  268.  
  269.       * (W) Attempt to exceed maximum number of acquired devices.
  270.      D MaxAcqDevices   C                   01261
  271.  
  272.       * (W) Attempt to acquire unavailable device
  273.      D DeviceNA        C                   01271
  274.  
  275.       * (W) Operation to unacquired device.
  276.      D DeviceNotAcq    C                   01281
  277.  
  278.       * (W) 0309 Job ending with controlled option.
  279.      D JobEnding       C                   01282
  280.  
  281.       * (W) Unable to acquire second device for single device file
  282.      D CannotAcqDev    C                   01284
  283.  
  284.       * (W) 0800 Attempt to acquire a device already acquired.
  285.      D AlreadyAcq      C                   01285
  286.  
  287.       * (W) Attempt to open shared file with SAVDS or IND options.
  288.      D SharedOpenFail  C                   01286
  289.  
  290.       * (W) Response indicators overlap IND indicators.
  291.      D IndOverlapErr   C                   01287
  292.  
  293.       * (W,D,SQ) Other I/O error detected.
  294.      D OtherIOErr      C                   01299
  295.  
  296.       * (W) 0310 Wait time exceeded for READ from WORKSTN file.
  297.      D ReadWaitExp     C                   01331
  298.  
  299.  
  300.  
  301.  
  302.         // Version 2
  303.  
  304.       // 00000 No error.
  305.      D stsNoError      C                   00000
  306.       // 00001 Called program returned with *INLR on.
  307.      D stsPgmRetLR     C                   00001
  308.       // 00002 Function key pressed.
  309.      D stsFkeyPressed  C                   00002
  310.       // 00011 End of file (%EOF = *ON).
  311.      D stsEOF          C                   00011
  312.       // 00012 Record not found (%FOUND = *OFF).
  313.      D stsNotFnd       C                   00012
  314.       // 00013 Write to full subfile.
  315.      D stsWrtSflFull   C                   00013
  316.       // 00050 Conversion resulted in substitution.
  317.      D stsCvtSubst     C                   00050
  318.       // 00100 String operation, value out of range.
  319.      D errInvalString  C                   00100
  320.       // 00101 Negative square root.
  321.      D errNegSqrt      C                   00101
  322.       // 00102 Divide by zero.
  323.      D errDivZero      C                   00102
  324.       // 00103 Intermediate result too small to contain result.
  325.      D errResultTooSmall...
  326.      D                 C                   00103
  327.       // 00104 Float underflow. Intermediate value too small.
  328.      D errFltUndflow   C                   00104
  329.       // 00105 Invalid characters in character to numeric conversion
  330.      D errInNumConv    C                   00105
  331.       // 00112 Invalid date, time, or timestamp value.
  332.      D errInvalDate    C                   00112
  333.       // 00113 Date overflow or underflow.
  334.      D errDateOvflow   C                   00113
  335.       // 00114 Date mapping error.
  336.      D errDateMap      C                   00114
  337.       // 00115 Invalid length for variable-length field.
  338.      D errInvalVarLen  C                   00115
  339.       // 00120 Table or array out of sequence.
  340.      D errArrSeq       C                   00120
  341.       // 00121 Invalid array index.
  342.      D errArrIdx       C                   00121
  343.       // 00122 OCCUR value out of range.
  344.      D errInvalOccur   C                   00122
  345.       // 00123 RESET attempted during initialization.
  346.      D errInzReset     C                   00123
  347.       // 00202 Call to program or procedure ended in error.
  348.      D errCallFail     C                   00202
  349.       // 00211 Error occurred while calling program or procedure.
  350.      D errCall         C                   00211
  351.       // 00221 Called program tried to use unpassed parameter.
  352.      D errParmNoPass   C                   00221
  353.       // 00222 Pointer or parameter error.
  354.      D errPtrParm      C                   00222
  355.       // 00231 Called program returned with halt indicator on.
  356.      D errCallHalt     C                   00231
  357.       // 00232 Halt indicator on in this program.
  358.      D errHalt         C                   00232
  359.       // 00233 Halt indicator on when RETURN operation run.
  360.      D errHaltRtn      C                   00233
  361.       // 00299 RPG dump failed.
  362.      D errDumpFail     C                   00299
  363.       // 00301 Error in method call.
  364.      D errMthCall      C                   00301
  365.       // 00302 Error converting Java array to RPG parm entering Java
  366.       //       native meth
  367.      D errCvtJavArrEnt...
  368.      D                 C                   00302
  369.       // 00303 Error converting RPG parm to Java array exiting RPG
  370.       //       native method
  371.      D errCvtRpgPrmOut...
  372.      D                 C                   00303
  373.       // 00304 Error converting RPG parm to Java array preparing
  374.       //       Java meth call.
  375.      D errCvtRPGtoJavaArray...
  376.      D                 C                   00304
  377.       // 00305 Error cvting Java array to RPG parm/return value
  378.       //       after meth call.
  379.      D errCvtJavArrayToRPG...
  380.      D                 C                   00305
  381.       // 00306 Error converting RPG return value to Java array.
  382.      D errcvtRpgRtnVal...
  383.      D                 C                   00306
  384.       // 00333 Error on DSPLY operation.
  385.      D errDsply        C                   00333
  386.       // 00401 Data area not found.
  387.      D errDataAreaNotFnd...
  388.      D                 C                   00401
  389.       // 00402 *PDA not valid for non-prestart job.
  390.      D errInvalPsjPDA  C                   00402
  391.       // 00411 Data area types/lengths do not match.
  392.      D errInvalDataArea...
  393.      D                 C                   00411
  394.       // 00412 Data area not allocated for output.
  395.      D errDataAreaNoOutput...
  396.      D                 C                   00412
  397.       // 00413 I/O error while processing data area.
  398.      D errDataAreaIO...
  399.      D                 C                   00413
  400.       // 00414 Not authorized to use data area.
  401.      D errDataAreaUseAut...
  402.      D                 C                   00414
  403.       // 00415 Not authorized to change data area.
  404.      D errDataAreaChgAut...
  405.      D                 C                   00415
  406.       // 00421 Error while unlocking data area.
  407.      D errDataAreaUnlFail...
  408.      D                 C                   00421
  409.       // 00425 Requested storage allocation length out of range.
  410.      D errInvalAlloc   C                   00425
  411.       // 00426 Error during storage management operation.
  412.      D errStorFail     C                   00426
  413.       // 00431 Data area previously allocated to another process.
  414.      D errDataAreaAlloc...
  415.      D                 C                   00431
  416.       // 00432 *LOCK for data area not granted.
  417.      D errDataAreaLock...
  418.      D                 C                   00432
  419.       // 00450 Character field not enclosed by SO and SI.
  420.      D errInvalSosi    C                   00450
  421.       // 00451 Cannot convert between two CCSIDs.
  422.      D errCvtCcsid     C                   00451
  423.       // 00501 Sort sequence not retrieved.
  424.      D errSortRtv      C                   00501
  425.       // 00502 Sort sequence not converted.
  426.      D errSortCvt      C                   00502
  427.       // 00802 Commitment control not active.
  428.      D errCmtNact      C                   00802
  429.       // 00803 Rollback failed.
  430.      D errRolbkFail    C                   00803
  431.       // 00804 COMMIT error.
  432.      D errCmt          C                   00804
  433.       // 00805 ROLBK error.
  434.      D errRolbk        C                   00805
  435.       // 00907 Decimal data error.
  436.      D errDecimal      C                   00907
  437.       // 00970 Compiler/runtime level check.
  438.      D errCompLevChk   C                   00970
  439.       // 01011 Undefined record type.
  440.      D errUndefRecTyp  C                   01011
  441.       // 01021 Record already exists.
  442.      D errRecExists    C                   01021
  443.       // 01022 Referential constraint error.
  444.      D errRefCst       C                   01022
  445.       // 01023 Trigger program error before operation.
  446.      D errTrgBefore    C                   01023
  447.       // 01024 Trigger program error after operation.
  448.      D errTrgAfter     C                   01024
  449.       // 01031 Match field sequence error.
  450.      D errMatchSeq     C                   01031
  451.       // 01041 Array/table load sequence error.
  452.      D errLoadArr      C                   01041
  453.       // 01042 Array/table load sequence error.
  454.      D errArrAltSeq    C                   01042
  455.       // 01051 Excess entries in array/table file.
  456.      D errArrOvflow    C                   01051
  457.       // 01071 Record out of sequence.
  458.      D errInvalRecSeq  C                   01071
  459.       // 01121 No Print Key DDS keyword indicator.
  460.      D errDDSPrtKey    C                   01121
  461.       // 01122 No Page Down Key DDS keyword indicator.
  462.      D errDDSPgDn      C                   01122
  463.       // 01123 No Page Up Key DDS keyword indicator.
  464.      D errDDSPgUp      C                   01123
  465.       // 01124 No Clear Key keyword indicator.
  466.      D errDDSClrKey    C                   01124
  467.       // 01125 No Help Key DDS keyword indicator.
  468.      D errDDSHlpKey    C                   01125
  469.       // 01126 No Home Key DDS keyword indicator.
  470.      D errDDSHomeKey   C                   01126
  471.       // 01201 Record mismatch detected on input.
  472.      D errInpMisMatch  C                   01201
  473.       // 01211 I/O operation to a closed file.
  474.      D errIOClosed     C                   01211
  475.       // 01215 OPEN issued to already open file.
  476.      D errAlreadyOpen  C                   01215
  477.       // 01216 Error on implicit OPEN/CLOSE.
  478.      D errOpenClosereq...
  479.      D                 C                   01216
  480.       // 01217 Error on explicit OPEN/CLOSE.
  481.      D errOpenClose    C                   01217
  482.       // 01218 Unable to allocate record.
  483.      D errRcdLocked    C                   01218
  484.       // 01221 Update/delete operation without a prior read.
  485.      D errUpdNoRead    C                   01221
  486.       // 01222 Referential constraint allocation error.
  487.      D errRefCstAlloc  C                   01222
  488.       // 01231 Error on SPECIAL file.
  489.      D errSpecial      C                   01231
  490.       // 01235 Error in PRTCTL space or skip entries.
  491.      D errPrtCtl       C                   01235
  492.       // 01241 Record number not found.
  493.      D errRecNbrNotFnd...
  494.      D                 C                   01241
  495.       // 01251 Permanent I/O error.
  496.      D errPermIO       C                   01251
  497.       // 01255 Session or device error.
  498.      D errSessDev      C                   01255
  499.       // 01261 Attempt to exceed maximum number of devices.
  500.      D errMaxDev       C                   01261
  501.       // 01271 Attempt to acquire unavailable device.
  502.      D errDevUnavail   C                   01271
  503.       // 01281 Operation to unacquired device.
  504.      D errDevUnacq     C                   01281
  505.       // 01282 Job ending with controlled option.
  506.      D errJobEndCtl    C                   01282
  507.       // 01284 Unable to acquire second device.
  508.      D errAcqAddDev    C                   01284
  509.       // 01285 Attempt to acquire an allocated device.
  510.      D errDevAlloc     C                   01285
  511.       // 01286 Attempt to open shared file with SAVDS or SAVIND.
  512.      D errShrOpn       C                   01286
  513.       // 01287 Response indicators overlap SAVIND indicators.
  514.      D errRespInd      C                   01287
  515.       // 01299 I/O error detected.
  516.      D errIO           C                   01299
  517.       // 01331 Wait time exceeded for WORKSTN file.
  518.      D errWait         C                   01331
  519.       // 09998 Internal failure in RPG compiler or in runtime
  520.       //       subroutines.
  521.      D errIntRPGFail   C                   09998
  522.       // 09999 Program exception in system routine.
  523.      D errPgmExc       C                   09999
  524.  
  525.  
© 2004-2019 by midrange.com generated in 0.009s valid xhtml & css