Abend with Data Exception 
Author Message
 Abend with Data Exception

Hello.

Here we have a COBOL CICS PROGRAM that abend in OS/390 environment
with code 0C7 (Data exception)

Bellow the problem :

Hello.

The offset 28B4 are in instruction of line 1839.
After subtract X'28' from 28B4, I have 288C like result that are the
line 1831 of Cobol, Source.
Here after compile the program I have in my hand like bellow :

Cobol Source :

001831             IF      WC-IND                EQUAL   +0   OR
001832                     WC-IND              GREATER   WC-QTD-LIN
0018331                     MOVE    'ERRO. NAO POSICIONADO
CORRETAMENTE
0018341                                              TO  
L030-MENSAGEM
0018351                     MOVE    -1               TO   L030-CURSORL
0018361                     GO                       TO  
910-00-SEND-D
001837              END-IF

001839              IF  WK-TRNID  EQUAL  'UN'
0018401                 MOVE    'UNJ4'       TO   WTRANS
001841              ELSE
0018421                 MOVE    'OC04'       TO   WTRANS.

Here Assembler Source :

001831  IF
   00287C  F910 204F C029          CP   79(2,2),41(1,12)
   002882  4780 BC86               BC   8,3206(0,11)
   002886  F911 204F 2051          CP   79(2,2),81(2,2)
   00288C  47D0 BCA4               BC   13,3236(0,11)
   002890                 GN=136   EQU  *
001833  MOVE
   002890  D222 63DA A230          MVC  986(35,6),560(10)
   002896  9240 63FD               MVI  1021(6),X'40'
   00289A  D229 63FE 63FD          MVC  1022(42,6),1021(6)
001835  MOVE
   0028A0  D201 2E47 AA73          MVC  3655(2,2),2675(10)
001836  GO
   0028A6  58B0 C03C               L    11,60(0,12)
   0028AA  47F0 B000               BC   15,0(0,11)
   0028AE                 GN=135   EQU  *
001839  IF
   0028AE  D501 2DE8 A509          CLC  3560(2,2),1289(10)
   0028B4  4770 BCBC               BC   7,3260(0,11)

After look this, Are sure that the problem are in instruction of line
1831 and not 1839, like I think before ?

Thank's

Sergio



Sun, 29 Feb 2004 21:22:36 GMT  
 Abend with Data Exception
I would agree with you.  The IF statement is the only one shown that
could originate an OC4, it has two CP (compare packed) instructions
corresponding to the conditions in the IF statement.

However, another time it would be more helpful if you also included
the data definitions with the example.

Regards Robert


Quote:
> Hello.

> Here we have a COBOL CICS PROGRAM that abend in OS/390 environment
> with code 0C7 (Data exception)

> Bellow the problem :

> Hello.

> The offset 28B4 are in instruction of line 1839.
> After subtract X'28' from 28B4, I have 288C like result that are the
> line 1831 of Cobol, Source.
> Here after compile the program I have in my hand like bellow :

> Cobol Source :

> 001831             IF      WC-IND                EQUAL   +0   OR
> 001832                     WC-IND              GREATER   WC-QTD-LIN
> 0018331                     MOVE    'ERRO. NAO POSICIONADO
> CORRETAMENTE
> 0018341                                              TO  
> L030-MENSAGEM
> 0018351                     MOVE    -1               TO   L030-CURSORL
> 0018361                     GO                       TO  
> 910-00-SEND-D
> 001837              END-IF

> 001839              IF  WK-TRNID  EQUAL  'UN'
> 0018401                 MOVE    'UNJ4'       TO   WTRANS
> 001841              ELSE
> 0018421                 MOVE    'OC04'       TO   WTRANS.

> Here Assembler Source :

> 001831  IF
>    00287C  F910 204F C029          CP   79(2,2),41(1,12)
>    002882  4780 BC86               BC   8,3206(0,11)
>    002886  F911 204F 2051          CP   79(2,2),81(2,2)
>    00288C  47D0 BCA4               BC   13,3236(0,11)
>    002890                 GN=136   EQU  *
> 001833  MOVE
>    002890  D222 63DA A230          MVC  986(35,6),560(10)
>    002896  9240 63FD               MVI  1021(6),X'40'
>    00289A  D229 63FE 63FD          MVC  1022(42,6),1021(6)
> 001835  MOVE
>    0028A0  D201 2E47 AA73          MVC  3655(2,2),2675(10)
> 001836  GO
>    0028A6  58B0 C03C               L    11,60(0,12)
>    0028AA  47F0 B000               BC   15,0(0,11)
>    0028AE                 GN=135   EQU  *
> 001839  IF
>    0028AE  D501 2DE8 A509          CLC  3560(2,2),1289(10)
>    0028B4  4770 BCBC               BC   7,3260(0,11)

> After look this, Are sure that the problem are in instruction of line
> 1831 and not 1839, like I think before ?

> Thank's

> Sergio



Mon, 01 Mar 2004 02:46:09 GMT  
 Abend with Data Exception

:>Here we have a COBOL CICS PROGRAM that abend in OS/390 environment
:>with code 0C7 (Data exception)

:>Bellow the problem :

:>The offset 28B4 are in instruction of line 1839.
:>After subtract X'28' from 28B4, I have 288C like result that are the
:>line 1831 of Cobol, Source.

More likely 288C.

WC-QTD-LIN is not a valid packed number.

:>Here after compile the program I have in my hand like bellow :

:>Cobol Source :
:>
:>001831             IF      WC-IND                EQUAL   +0   OR
:>001832                     WC-IND              GREATER   WC-QTD-LIN
:>0018331                     MOVE    'ERRO. NAO POSICIONADO
:>CORRETAMENTE
:>0018341                                              TO  
:>L030-MENSAGEM
:>0018351                     MOVE    -1               TO   L030-CURSORL
:>0018361                     GO                       TO  
:>910-00-SEND-D
:>001837              END-IF
:>
:>001839              IF  WK-TRNID  EQUAL  'UN'
:>0018401                 MOVE    'UNJ4'       TO   WTRANS
:>001841              ELSE
:>0018421                 MOVE    'OC04'       TO   WTRANS.
:>
:>Here Assembler Source :
:>
:>001831  IF
:>   00287C  F910 204F C029          CP   79(2,2),41(1,12)
:>   002882  4780 BC86               BC   8,3206(0,11)
:>   002886  F911 204F 2051          CP   79(2,2),81(2,2)
:>   00288C  47D0 BCA4               BC   13,3236(0,11)
:>   002890                 GN=136   EQU  *
:>001833  MOVE
:>   002890  D222 63DA A230          MVC  986(35,6),560(10)
:>   002896  9240 63FD               MVI  1021(6),X'40'
:>   00289A  D229 63FE 63FD          MVC  1022(42,6),1021(6)
:>001835  MOVE
:>   0028A0  D201 2E47 AA73          MVC  3655(2,2),2675(10)
:>001836  GO
:>   0028A6  58B0 C03C               L    11,60(0,12)
:>   0028AA  47F0 B000               BC   15,0(0,11)
:>   0028AE                 GN=135   EQU  *
:>001839  IF
:>   0028AE  D501 2DE8 A509          CLC  3560(2,2),1289(10)
:>   0028B4  4770 BCBC               BC   7,3260(0,11)
:>
:>After look this, Are sure that the problem are in instruction of line
:>1831 and not 1839, like I think before ?

--


http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel



Mon, 01 Mar 2004 03:34:04 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Copy of data slice for job that abends

2. Cobol - Data Exception (Conversion Data).

3. IBM0537I ONCDE=8097 A data exception occurred.

4. data exception

5. passing data out of a proc via exception

6. data exception

7. VM/ESA data exception error

8. Setting Exception data.

9. Exception signalling an exception

10. Machine Exceptions to language Exceptions.

11. exceptions that are not Exceptions

12. RCR: Exception methods (was: Re: Re: keeping an Exception object alive)

 

 
Powered by phpBB® Forum Software