In cobol, we can abend a program intentionally..... i.e., declaring working storage variables as
01 ABEND-TBL.
05 ABEND-CODE PIC S9(04) COMP VALUE ZEROES.
05 WS-ABEND PIC X(08 ) VALUE 'ABEND '.
READ CNTL-FUND NEXT RECORD
AT END MOVE 'Y' TO WS-CNTL-EOF
GO TO 1000-EXIT.
IF WS-CNTL-EOF NOT = 'Y'
IF CNTL-FUND-STATUS NOT EQUAL TO '00' AND '04'
DISPLAY '********************************'
DISPLAY '** ERROR ON CNTL CARD OPEN **'
DISPLAY ' RETURN CODE = ' CNTL-FUND-STATUS
DISPLAY '********************************'
CALL WS-ABEND USING ABEND-CODE
END-IF.
this we are abending only if the file doesn't open properly, but like this we can code according to our requirement. But in easytrieve can we abend a program intentionally? I know the very basics of easytrieve, if we can do can anyone please help?
user abend in easytrieve
Moderators: DikDude, Moderator Group
-
- Active Member
- Posts: 732
- Joined: Thu May 24, 2012 4:07 am
On your Easytrieve Plus PARM statement (not the thing from the JCL, the one which is/can be in your program) include ENVIRONMENT ( COBOL )
Having done that, anything which you can CALL from COBOL, you should be able to CALL from Easytrieve Plus because it will know to establish the COBOL run-time environment correctly.
Use your manual to discover full details.
Language Environment Callable Service CEE3ABD is a stsandard way to produce an abend. It has some friends as well, you consult the Language Environment manauls..
Having done that, anything which you can CALL from COBOL, you should be able to CALL from Easytrieve Plus because it will know to establish the COBOL run-time environment correctly.
Use your manual to discover full details.
Language Environment Callable Service CEE3ABD is a stsandard way to produce an abend. It has some friends as well, you consult the Language Environment manauls..
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page