|
View previous topic :: View next topic
|
| Author |
Message |
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Ok, good luck. |
|
| Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Good find, Peter....  |
|
| Back to top |
|
|
Ravi Kuchi
New User
Joined: 29 May 2012
Posts: 14
Location: INDIA
|
|
|
|
Hi Friends,
Need one more help for the same module, I want to exit from the error routine gracefully(with return code zero). I have tried lot of options like EXIT,CANCEL,ABTERM etc but was not successful. Any idea/help from you guys is highly appreciated.
At present it throws S013 return code and error message:
IEC141I 013-34,IGG0191A,RSURESHT,STEP0010,INPUT,D827,..
&CSECT AMODE ANY
&CSECT RMODE 24
&CSECT BGNSECT X
DSPLY=YES, X
BASE=(8,9), X
DATE=&DATE, X
V=&VER, X
M=&MOD
L R10,0(0,R1)
USING PARM,R10
MESG 'BEFORE INPUT RAVI'
OPEN (INPUT,(INPUT))
MESG 'AFTER INPUT RAVI'
RETURN
FERROR EQU *
MESG 'INVALID BLOCK SIZE FILE'
SR 15,15
MESG 'INV2'
LH R15,RC
* NEED TO EXIT FROM HERE WITH RETURN CODE ZERO>>
* RETURN
EJECT
EXITMOD EMOD
EJECT
MESG 'IN EXITMOD'
OI RC+1,X'04'
RETURN RC=(15)
ENDSECT
EJECT
MEMBER DS CL8
MSGAREA DS 0CL68
DC CL46' '
INPUT DCB DDNAME=INPUT,DSORG=PS,MACRF=GL, X
RECFM=FB,EXLST=EXITLIST
EXITLIST DC X'91',AL3(FERROR)
REQU
DCBD DSORG=PS
PARM DSECT
RC DC H'0'
SAVE DS 18F
EJECT
END &CSECT |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Is there some reason you will not use the Code tag . . . ?
You did notice that instead of an 013-20 you now have an 013-34. . . |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Bill O'Boyle wrote: |
| Good find, Peter.... |
Thanks Bill, i did write some DCB exits when i was still young and eager doing things to explore the paths of exits, control blocks (and glory of course). |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
Try this :
| Code: |
FERROR EQU *
MESG 'INVALID BLOCK SIZE FILE'
L R13,4(R13) RESTORE CALLERS SAVE AREA
RETURN (14,12),RC=0
|
|
|
| Back to top |
|
|
Ravi Kuchi
New User
Joined: 29 May 2012
Posts: 14
Location: INDIA
|
|
|
|
Hi Peter,
I have tried but am not successful.
- Thanks |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| Ravi Kuchi wrote: |
I have tried but am not successful.
|
Totally useless reply unless you are not wanting further help. |
|
| Back to top |
|
|
Ravi Kuchi
New User
Joined: 29 May 2012
Posts: 14
Location: INDIA
|
|
|
|
Excuse me if I am not responding properly,as I already informed I do not know much of assembly langauage.
Here is what I think is happening, once the OPEN MACRO encounters the file error, the control is transferred to FERROR routine (please see the entire code pasted in previous pages). But still the control lies within the OPEN MACRO and though I want to EXIT from this it wouldn't.
So looking for a mechanism which could allow the program to exit from the control of the OPEN MACRO.
Once again please excuse me if I do not make any sense. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| Excuse me if I am not responding properly,as I already informed I do not know much of assembly langauage. |
Knowledge of assembler is NOT needed to post what error(s) happened.
Posting "it didn't work" is a complete waste of time for you as well as those who want to help.
When something does not work, you need to post what you tried (not all of the code, just the problem bit), what error(s) occurred, and any diagnostic info provided by the compile or execution. If someone wants something additional, they will ask for it in their reply. |
|
| Back to top |
|
|
Ravi Kuchi
New User
Joined: 29 May 2012
Posts: 14
Location: INDIA
|
|
|
|
Thanks to all of you for helping me out,
Special thanks to Peter for his inputs which saved a lot of time.
Thanks! |
|
| Back to top |
|
|
|
|
