Re: Program Status Codes and File Status codes

Hello Rob,

I've never managed to find a message file containing this stuff.  I believe the 
status code 
descriptions are only ever printed in the dump spooled file and I don't think 
program dumps 
need to be translated.

I just use a compile time array for the data in my standard dump handler.  Here 
is a copy 
current to VRM420 in RPG III format.  It also includes the RPG IV codes because 
the program 
this data comes from handles errors in any calling RPG program.  I hope its 
useful.

     ‚* Array for program status codes - condition translation table
     E                    PGMCOD  1  48  5 0 PGMTXT 75   ‚Program status codes
     ‚* Array for file status codes - condition translation table
     E                    FILCOD  1  45  5   FILTXT 75   ‚File status codes

** CD-COND Status conditions for program codes that have no MSGID (put in file)
00000~No exception/error occurred.
00001~Called program returned with LR indicator on.
00100~Value out of range for string operation.
00101~Negative square root.
00102~Divide by zero.
00103~An intermediate result is not large enough to contain the result.
00104~Float underflow. A value is too small for the intermediate result field.
00112~Invalid Date, Time, or Timestamp value.
00113~Date overflow or underflow. 
00114~Date mapping errors: Map from 4-char to 2-char year - range not 1940-2039.
00115~Var-length character or graphic field has a current length that is not 
valid.
00120~Table or array out of sequence.
00121~Array index not valid.
00122~OCUR outside of range.
00123~Reset attempted during initialisation step of program.
00202~Called program failed. Halt indicator (H1 to H9) not on.
00211~Program specified on CALL or FREE not found.
00221~Called program tried to use a parameter that was not passed to it.
00222~Pointer or parameter error.
00231~Called program or procedure returned with halt indicator on.
00232~Halt indicator on in this program.
00233~Halt indicator on when RETRN operation issued.
00299~RPG formatted dump failed.
00333~Error on DSPLY operation.
00401~Data area specified on IN/OUT not found.
00402~*PDA not valid for non-prestart job.
00411~Data area type or length does not match.
00412~Data area not locked for output.
00413~Error on IN/OUT operation.
00414~User not authorised to use data area.
00415~User not authorised to change data area.
00421~Error on UNLCK operation.
00425~Length requested for storage allocation is out of range.
00426~Error encountered during storage management operation.
00431~Data area previously locked for another program.
00432~Data area locked by program in the same process.
00450~Character field not entirely enclosed by shift-out and shift-in 
characters.
00501~Failure to retrieve sort sequence.
00502~Failure to convert sort sequence.
00802~Commitment control not active.
00803~Rollback operation failed.
00804~Error occurred on COMMIT operation.
00805~Error occurred on ROLBK operation.
00907~Decimal data error (digit or sign not valid)
00970~Compiler level used to generate program does not agree with run time 
level.
08888~Program called itself.
09998~Internal failure in compiler or RUN-TIME subroutines
09999~Program exception in system routine
** CD-COND Status conditions for file codes that have no MSGID (put in file)
00000~No exception/error.
00002~Function key used to end display.
00011~End of file on a read (input).
00012~No-record-found condition on a CHAIN, SETLL, or SETGT operations.
00013~Subfile is full on WRITE operation.
01011~Undefined record type (input record does not match record ID indicator).
01021~Tried to write record that already exists (dup key or subfile relrec).
01022~Referential constraint error detected on file member.
01023~Error in trigger program before file operation performed.
01024~Error in trigger program after file operation performed.    
01031~Match field out of sequence.
01041~Array/table load error.
01042~Array/table load error - Alternate collating sequence used.
01051~Excess entries in array/table file.
01052~Cle
ing of table prior to dump of data failed.
01071~Numeric sequence error.
01121~No indicator on the DDS keyword for Print key.
01122~No indicator on the DDS keyword for Roll Up key.
01123~No indicator on the DDS keyword for Roll Down key.
01124~No indicator on the DDS keyword for Clear key.
01125~No indicator on the DDS keyword for Help key.
01126~No indicator on the DDS keyword for Home key.
01201~Record mismatch detected on input.
01211~I/O operation to a closed file.
01215~OPEN issued to a file already opened.
01216~Error on implicit OPEN/CLOSE operation.
01217~Error on explicit OPEN/CLOSE operation.
01218~Record already locked.
01221~Update operation attempted without prior read.
01222~Record cannot be allocated due to referential constraint.
01231~Error on SPECIAL file.
01235~Error in PRTCTL space or skip entries.
01241~Record number specified in record adress file not found in file.
01251~Permanent I/O error occurred.
01255~Session or device error occurred. Recovery may be possible.
01261~Attempt to exceed maximum number of acquired devices.
01271~Attempt to acquire unavailable device.
01281~Operation to unacquired device.
01282~Job ending with controlled option.
01284~Unable to acquire second device for single device file.
01285~Attempt to acquire a device already acquired.
01286~Attempt to open shared file with SAVDS or IND operation.
01287~Response indicators overlap IND indicators.
01299~Other I/O error detected.
01331~Wait time exceeded for READ from WORKSTN file.


Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Worldtalk (NetTalk for Windows NT 4.5-g5)/MIME
> Date: Tue, 13 Apr 99 10:59:56 -0500
> From: "Rob Berendt" <rob@dekko.com>
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Program Status Codes and File Status codes

> 
> Is there a message file that contains the Program Status codes?
> I am trying to associate a description with a code.
> 
> Also, is there a message file that contains the File Status codes?

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---