exception handling in cobol /bs2000

Is there a possibility to write an exception handling routine in cobol
on bs2000 like on IBM/390 with the language environment classes "CEE*"

For example: I use a couple of functions like "CEEHDLR" or "CEEHDLU"
I will implement  an exception handling routine to fetch the abends
and use my own handling routine.


thanks foreward

jörg

j?rg brehe schrieb:
>
> Is there a possibility to write an exception handling routine in cobol
> on bs2000 like on IBM/390 with the language environment classes "CEE*"
>
> For example: I use a couple of functions like "CEEHDLR" or "CEEHDLU"
> I will implement  an exception handling routine to fetch the abends
> and use my own handling routine.
>
For COBOL2000 in BS2000/OSD, at present there is no trivial possibility
for user written exection routines to handle any system interrupts. For
detailed help, more information concerning the interrupts of intrest and
possible actions would be helpful - may be ILCS offers some useful
interfaces.

Karl Kiesel
Fujitsu Siemens Computers

Binyamin Dissen <postingid@dissensoftware.com> wrote in message news:<7dvdd099f4b877i5e6lr0
ma2pj2c2dafvm@4ax.com>...
> On 21 Jun 2004 03:39:30 -0700 Joerg.Brehe@set-software.de (j?rg brehe) wro
te:
>
> :>> For COBOL2000 in BS2000/OSD, at present there is no trivial possibilit
y
> :>> for user written exection routines to handle any system interrupts. Fo
r
> :>> detailed help, more information concerning the interrupts of intrest a
nd
> :>> possible actions would be helpful - may be ILCS offers some useful
> :>> interfaces.
>
> :>I will catch the 0C1 ...0C7 ... 0CB abends. Divide by zero, Data
> :>exception and s.o. Perhaps i can use an assembler routine. However i
> :>have not found the right Macro.
>
> Macros?
>
> You want macros?
>
> You can't handle macros!
>
> Look at (E)SPIE and (E)STAE
>
On IBM that's right. However i can only use ESTAE on IBM, because LE.
LE uses ESPIE as Default.

At first I have written an assembler programm which catch some
exceptions. But then I found there is an easier way in cobol, if I
call "CEEHDLR" and register my Exceptionhandler-routine. I can set a
recoverypoint with "CEESRP", call a dump with "CEE3DMP" ... call a
cobol programm which displays some values. It's the cobol
Display-programm, why i shall catch the exception.

On BS2000 there are the Macros  STXIT, @STXEN und @STXDI. It seems
they work in the same way as ESTAE. I have found this yesterday.

The best is  a class like the Condition Handling Callable Services on
OS390.
However i can't find such functions on BS2000/siemens.

jörg