MVSFORUMS.com

[venkat]

A Batch program calling assembler subroutine and abending with U4008.
Abend Aid showing the following message.
Assembler routine being called by a batch program for reentrancy.
User abend code is showing for the corresponding register 1.

can you explain how it can be resolved.


Supporting Environmental Data

Abend PSW - 078D1000 9AD189AC A(ABENDTR ) + 0000056C
Prog PSW - 078D1000 9AD189AC A(ABENDTR ) + 0000056C
Load Module - BATCH7BP Entry Point Address - 1AD04EEE
ILC - 02, INTC - 0D Load Point Address - 1AD048F8

Registers at time of error (Descriptions based on 31 bit addresses)

REG HEX Decimal Description
R0 80000000 -2,147,483,648 DUMP
R1 80000FA8 -2,147,479,640 USER ABEND CODE 4008
R2 1AD04A20 449,858,080 A(BATCH7BP) + 00000128
R3 1ADA5038 450,515,000 A(1ADA5000) + 00000038, PVT SP=002 ALLOC
R4 00000008 8
R5 0003A7FC 239,612 A(0003A000) + 000007FC, PVT SP=001 ALLOC

[kolusu]

venkat,

Please post the sysout messages with the abend information.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[venkat]

How to debug an assembler routine when it is abending with u4008

[venkat]

Hi,
I am sending the Abend-aid Information for the User Abend u4008.when we are trying to run the program we are getting this abend in Assembler routine.Main thing is we are converting all telon programs into cobol programs.at that time cobol program is calling assembler program.when the cobol program is compiled to cobol 11 or os/vs cobol the assembler subroutine is not abending.but when it is compiled to cobol-390 only it is abending.could you tell me what is the reason.how to solve this abend.





Expected Completion Code - U4008
**********************
* Diagnostic Section *
**********************


Completion code is user 4008.


*******************************************
* Next Sequential Instruction Section *
*******************************************

The next sequential instruction to be executed in
program ADAAATR was at displacement 00000544.

00000538 41000080 LA R0,128
0000053C 89000018 SLL R0,24
00000540 1610 OR R1,0
00000542 0A0D SVC 13 SUPERVISOR CALL
NSI==> 00000544 C1C4 DATA AD
00000546 D4C1C1E3D940 NC 483(194,R12),2368(R13)
0000054C 6040E4F4 STD R4,1268(,R14)
550 F0F0F87AC140 SRP 2170(16,R15),320(R12),0

00000556 E4E2 DATA US

The program was compiled on 15 APR 2004 and is
00000648 bytes long.





It was link edited on 21 APR 2004 and is 000270C8
bytes long.

The last known I/O request or call in the program
above was issued with a return address at
displacement 00000060.
------------------------------------------------------------------------

Supporting Environmental Data

Abend PSW - 078D1000 9B14C904 A(ASMED ) + 00000544
Prog PSW - 078D1000 9B14C904 A(ASMED) + 00000544
Load Module - ASMED Entry Point Address - 1B1280A0
ILC - 02, INTC - 0D Load Point Address - 1B126F38

Registers at time of error (Descriptions based on 31 bit addresses)

REG HEX Decimal Description
R0 80000000 -2,147,483,648 DUMP
R1 80000FA8 -2,147,479,640 USER ABEND CODE 4008
R2 1B127070 454,193,264 A(ASMED) + 00000138
R3 000157FC 88,060 A(00015000) + 000007FC, PVT SP=001 ALLOC
R4 00143018 1,323,032 A(0013F000) + 00004018, PVT SP=001 ALLOC
R5 00000000 0
R6 00135478 1,266,808 A(00132000) + 00003478, PVT SP=001 ALLOC
R7 00000000 0
R8 1B16D088 454,480,008 A(1B168000) + 00005088, PVT SP=002 ALLOC
R9 00143018 1,323,032 A(0013F000) + 00004018, PVT SP=001 ALLOC
R10 1B14C3C0 454,345,664 A(ASMED ) + 00000000
R11 1B12A6BE 454,207,166 A(ASMED) + 00003786
R12 00134B10 1,264,400 A(00132000) + 00002B10, PVT SP=001 ALLOC
R13 000098B8 39,096 A(00009000) + 000008B8, PVT SP=000 ALLOC
R14 9B14C420 -1,693,137,888 A(ADAAATR ) + 00000060
R15 00000000 0

Regards

Venkat

[Mike Chantrey]

My guess is that you may need to make your assembler subroutine 'LE-conformant' to call it from COBOL/390. I think you need to add some macros - something like CEEENTRY at the beginning and some other changes. I haven't done this myself but I'm sure the process is documented in the Language Environment manuals. Maybe someone else can give you some more specific info.