Scribd
Upload
4K views

Abend Codes

The document provides abend codes for various systems like JCL, DB2, CICS, VSAM, IMS. Some key abend codes summarized: S0CB - Divide by zero error. S002 - Invalid record length. Sx22 - Job cancelled by user/operator. SOC7/SOC4 - Program logic errors. 100 (DB2) - End of records. AICA (CICS) - Looping task terminated. 00/97 (VSAM) - File operation successful. U0778 (IMS) - Region terminated due to ROLL call. GE/AC/AD/AK (IMS) - Segment/SSA errors.

Uploaded by

Tube10 r
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
4K views

Abend Codes

The document provides abend codes for various systems like JCL, DB2, CICS, VSAM, IMS. Some key abend codes summarized: S0CB - Divide by zero error. S002 - Invalid record length. Sx22 - Job cancelled by user/operator. SOC7/SOC4 - Program logic errors. 100 (DB2) - End of records. AICA (CICS) - Looping task terminated. 00/97 (VSAM) - File operation successful. U0778 (IMS) - Region terminated due to ROLL call. GE/AC/AD/AK (IMS) - Segment/SSA errors.

Uploaded by

Tube10 r
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 7

Jcl abend code

S0CB - Attempting to divide by 0 and not using ON


SIZE ERROR

S002 - Very large record length/ wrong record length

Sx22 - Job has been cancelled. The value of x will


vary depending on the way the job was
cancelled. S222 means job was cancelled by a
user or operator without a dump.
If a TSO session times out you will
probably get an S522 abend code.

S222 - The job was cancelled (by subsystem


or operator) because it violated
some restriction

S522 - JOB or TSO session exceeded


maximum job wait time OR
operator did not mount the require
tape within allowed time limit

S806 - Load module not found

S837 - Space problem, Alloted space is not enough


for data set

S913 - You are trying to access a dataset which you


are not authorized to use.

SOC7 -
1. Moving non-numeric value to numeric field
2. Not initilizing the numeric variables
before first use

SOC4 -
1. Index exceeds the size of table
2. Trying to use File Section variables
without opening the file

S0C1 - Operation Exception. Check for subscript


errors, missing DD card, file not opened.

SE37 - Insufficient disk space.

U1026 - COBOL sort failed.


U1056 - Program didn't close a file before ending

Db2 abend code

DB2

+100 -> End of cursor

-180 -> String representation of DATE, TTIME, TIMESTAMP is invalid

-204 -> Object not defined to DB2

-205 -> Column name not in specified DB22 table

-206 -> Column does not exist in any tabble in the SELECT

-551 -> Not authorized to access DB2

-803 -> Unquie index voilation. Try to iinsert duplicate record.

-805 -> DBRM or PACKAGE not found in PLAAN

-811 -> Cursor should be used , when morre than one row returned as an
result
of an singleton SELECT query

-818 -> Timestamp mismatch between plan and load module

IMP QUESTIONS ON ERROR CODES

Q. What is error code for end of record/record not found in DB2?


A. 100

Q. Then How you will find that, Error is for end of record or record not
found?
A. If we are using select statement, sql error code 100 represents record
not found
If we are using cursor , in that situation, sql error code 100
represents end of records

Cics abend code


CICS

ASRA - This abend occured beacuse of invalid non numeric data

AICA - A looping task has been terminated with this abend


code by CICS because it was executing without giving
up control longer than the time period specified by
the ICVR keyword in the CICS SIT.

AEY9 - Invalid EXEC CICS command issued

AE** - Most of the abends starts with AE, occures because


they are not handled in the cics program.

RESP CONDITION ABEND


VALUE
00 NORMAL
01 ERROR
02 RDATT
03 WRBRK
04 EOF
05 EODS
06 EOC
07 INBFMH
08 ENDINPT
09 NONVAL
10 NOSTART
11 TERMIDERR AEIK
12 FILENOTFOUND AEIL
13 NOTFND AEIM
14 DUPREC AEIN
15 DUPKEY
16 INVREQ AEIP
17 IOERR AEIQ
18 NOSPACE AEIR
19 NOTOPEN
20 ENDFILE
21 ILLOGIC AEIU
22 LENGERR AEIV
23 QZERO
24 SIGNAL
25 QBUSY
26 ITEMERR
27 PGMIDERR AEIO
28 TRANSIDERR AEI1
29 ENDDATA
30 INVTSREQ
31 EXPIRED
32 RETPAGE
33 RTEFAIL
34 RTESOME
35 TSIOERR
36 MAPFAIL
37 INVERRTERM
38 INVMPSZ
39 IGREQID
40 OVERFLOW
41 INVLDC
42 NOSTG
43 JIDERR AEYG
44 QIDERR AEYH
45 NOJBUFSP
46 DSSTAT
47 SELNERR
48 FUNCERR
49 UNEXPIN
50 NOPASSBKRD
51 NOPASSBKWR
52 -
53 SYSIDERR AEYQ
54 ISCINVREQ
55 ENQBUSY
56 ENVDEFERR
57 IGREQCD
58 SESSIONERR
59 SYSBUSY
60 SESSBUSY
61 NOTALLOC
62 CBIDERR
63 INVEXITREQ
64 INVPARTNSET
65 INVPARTN
66 PARTNFAIL
67 -
68 -
69 USERIDERR AEYX
70 NOTAUTH AEY7
71 VOLIDERR AEXV
72 SUPPRESSED
73 -
74 -
75 RESIDERR
76 -
77 -
78 -
79 -
80 NOSPOOL
81 TERMERR
82 ROLLEDBACK
83 END AEXK
84 DISABLED
85 ALLOCERR
86 STRELERR
87 OPENERR
88 SPOLBUSY
89 SPOLERR
90 NODEIDERR
91 TASKIDERR AEXX
92 TCIDERR AEXO
93 DSNNOTFOUND AEX1
94 LOADING
95 MODELIDERR AEX3
96 OUTDESCRERR
97 PARTNERIDERR AEX5
98 PROFILEIDERR AEX6
99 NETNAMEIDERR
255 NOTPOSS

Vsam abend code

VSAM

00 - SUCCESSFUL COMPLETION

02 - DUPLICATE KEY, NON UNIQUE ALT INDEX

04 - READ, WRONG LENGTH RECORD

05 - OPEN, FILE NOT PRESENT

10 - END OF FILE

20 - INVALID KEY VSAM KSDS OR RRDS

21 - SEQUENCE ERROR, ON WRITE OR CHANGING KEY ON REWRITE

22 - DUPLICATE KEY

23 - RECORD NOT FOUND - (when we are trying to access a record with


key)
or
FILE NOT FOUND
35 - OPEN, FILE NOT PRESENT

When we will use this code in our program?


There are situations where file should be read if exists, write
if it does not
when you dont know whether file exists are not , first you will
open
file in I-O mode and check status code. if it is 35 then open
that
file for output file. other wise you will continue with your
logic

41 - OPEN, FILE IS OPEN

42 - CLOSE, FILE IS CLOSED

43 - DELETE OR REWRITE & NO GOOD READ FIRST

46 - SEQUENTIAL READ WITHOUT POSITIONING

47 - READING FILE NOT OPEN AS INPUT/IO/EXTEND

48 - WRITE WITHOUT OPEN IN IO MODE

49 - DELETE OR REWRITE WITHOUT OPEN IN IO MODE

92 - LOGIC ERROR/OPENING AN OPEN FILE


OR READING OUTPUT FILE
OR WRITE INPUT FILE
OR DEL/REW BUT NO PRIOR READ

94 - SEQUENTIAL READ AFTER END OF FILE


OR NO CURRENT REC POINTER FOR SEQ

96 - MISSING DD STATEMENT IN JCL

97 - OPEN OK, FILE INTEGRITY VERIFIED

When we will use this in our programs?


We use this code whenever we open the file, if status code is 00
or 97
we will proceed with our logic, other wise, call error routine.
Usaully, it may come when file was not closed.
for example

IF WS-FILE-STATUS NOT = '00' AND '97'


PERFORM ERROR-ROUTINE
END-IF.

Ims abend code


IMS

U0778 - A ROLL call was issued by a user application program, or a


failure during the Database Backout utility in another region
resulted in
all regions being terminated as a result of an internally issued
ROLL call.

U0456 - IF PSB IS NOT AVAILABLE


(NOT RUNNING/SOMEBODY IS USING)

WHAT WE SHOULD DO ?

START PSB FROM THE REGION IN WHICH YOU ARE RUNNING YOU ARE RUNNING

COMMAND - /start PGM <PSB>

NOTE - Before issuing command , please check PSB is running or not by using
following command
/dis PGM <PSB>

if psb is not running then only issue above /start command.

if some body using the psb and you want to stop that transaction.
use following command to stop
command
/stop PGB <PSB>

------------
status codes
------------

GE - End Of Segment

AC - Invalid SSA

* Invalid Segment name specified in SSA

* The segment name is in the DB PCB, but the SSA specifying


that segment
name is not in its correct hierarchic sequence.

AD - Problem in pcb listing in program ( linkage section )

AK - Invalid SSA

* Invalid field name in SSA ( Key given in SSA is wrong )

You might also like