IBM MAINFRAME HELP & SUPPORT FORUMS

hipatnaik · Joined: 16 Aug 2005 Posts: 6

hi,
i have a cics-cobol-db2 as a main program. My main program is calling a subprogram which is a cobol-db2 program. can i use link/xctl for the subprogram though it doesn't have any cics statements in it. when i m using 'call' for the subprogram i m getting 4038 abend. plz help.

priya · Joined: 24 Jul 2003 Posts: 624 Location: Bangalore

Fortunately, there is a place to find exactly what caused a 4038 abend. Just look at where ever you have the CESE transient data queue pointing (a lot of shops have it pointing to SYSOUT, so you may have to browse CICS output in SDSF or similar product). There will be a message that pretty much spells out the cause of the abend (in most cases, it is something simple, like a resource not defined).

yogesh · Joined: 27 May 2005 Posts: 19

u must have missed the stop run statement
or may be stop run is coded in the calling program

venkat.c · Joined: 11 Dec 2005 Posts: 6

hi dude

1.u wud have missed a stop run in the program

2.If u want the control to return back to the main program use Link else u can use xctl which wont return the control back to the calling prog...

3.no problem in using xctl or link if u dont have cics in the program to be called ....

khamarutheen · Joined: 23 Aug 2005 Posts: 678 Location: chennai

Hi frnd,

Ur PDS/PS file may be used/altered by some other job while the calling job uses that for some other purpose... so check it out... it's is also a possibility not a solution