MVSFORUMS.com

binoy · Beginner Joined: 03 Oct 2003 Posts: 17 Topics: 7

Hi,
While running the Cobol/390 program in Ims Online region I am getting Abend U4039 and REASON CODE = 00000000 in SYSDUMP
and in sysout
IGZ0044S There was an attempt to call the COBOL main program GKT500 that was not
in initial state The traceback information could not be determined.

So also the Initial MFS screens are taking lot of time to display in online
is there any change needed in the program for LE environment

where as in BTS it runs fine

Any help will do,

Thanks,
Brij

kolusu · Posted: Sat Oct 04, 2003 7:38 am Post subject:

binoy,

Try compiling your program with RENT option. You can do that by coding this line as the first line in your program (before ID division)

binoy · Beginner Joined: 03 Oct 2003 Posts: 17 Topics: 7

Thanks Kolusu,

The program consists of 12 sub programs, 3 of which are DB2
do i need to add this statement in all the sub programs.

Thanks,
Brij

kolusu · Posted: Sat Oct 04, 2003 8:17 am Post subject:

binoy,

No Just add it on the main calling pgm

Kolusu

binoy · Beginner Joined: 03 Oct 2003 Posts: 17 Topics: 7

Thanks Kolusu,

The problem is fixed,
Could you please tell me the significance of RMODE ,AMODE
and DATA in compilation , since we are using endevour for the same.

Thanks a lot,
Brij

kolusu · Posted: Sat Oct 04, 2003 4:18 pm Post subject:

binoy,

Please search before posting.This topic was already discussed. check this topic which discusses about the Compiler Options (AMODE, RMODE, DATA, RENT)

http://www.mvsforums.com/helpboards/viewtopic.php?t=543

check this topic which discusses about 24-31 bit addressing

http://www.mvsforums.com/helpboards/viewtopic.php?t=1142

Hope this helps...

cheers

kolusu