user abend in easytrieve

Ask/Clarify the questions on EASYTRIEVE

Moderators: DikDude, Moderator Group

Post Reply
sripadma
Member
Posts: 3
Joined: Sun Oct 07, 2012 2:49 pm
Location: CHENNAI

user abend in easytrieve

Post by sripadma » Wed Nov 13, 2013 2:28 pm

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?

sripadma
Member
Posts: 3
Joined: Sun Oct 07, 2012 2:49 pm
Location: CHENNAI

Post by sripadma » Wed Nov 13, 2013 2:44 pm

actually 'ABEND' mentioned here is assembler program.

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Wed Nov 13, 2013 9:08 pm

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..

academyindia4

Topic deleted by Admin

Post by academyindia4 » Tue Jan 19, 2016 7:42 pm

<< Content deleted By Admin >>

Post Reply

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



Other References
Mainframe Tools and others