Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
AMODE=24 while the run-time library installed above the Line

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jeyaseelan347
Warnings : 1

New User


Joined: 05 Sep 2008
Posts: 37
Location: Chennai

PostPosted: Wed Nov 19, 2008 9:40 pm    Post subject: AMODE=24 while the run-time library installed above the Line
Reply with quote

Hi,

My cobol program is calling 2 cobol and 3 assembler program as a sub program. The Cob to cob call is dynamic and cob to asm call is Static. while running the cobol program I am getting below error. can anyone please let me know why?

EDC5052S The application is running with AMODE=24 while the run-time library was installed above the line. The traceback information could not be determined.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8189
Location: East Dubuque, Illinois, USA

PostPosted: Wed Nov 19, 2008 10:00 pm    Post subject:
Reply with quote

A Google search of EDC5052S finds:
Quote:

EDC5052S when dynamically invoking COBOL program in 24 bit mode.
Technote (troubleshooting)

Problem(Abstract)
User received error message EDC5052S when calling a COBOL program in 24 bit mode.

Resolving the problem
A program written in C was accidentally brought into the application during the bind step. C does not support running AMODE 24 applications and issues this message when C is called for initialization.

Although this problem occurred when C was unintentionally linked into the application there are other instances when C will be called for initialization in a pure COBOL application.
For example, COBOL requires the C/C++ runtime in the following cases:

* COBOL program contains an XML PARSE or an XML GENERATE statement.
* COBOL program is compiled with one of the compiler options: DLL, PGMNAME(LONGUPPER), PGMNAME(LONGMIXED).
* The program contains Object Oriented COBOL syntax.


See APAR PK24280 for future updates to documentation. Note PK19616 documents and instance where EDC5052S is issued in error.
Check your compile options -- it sounds like they may be causing your problem. If not, you may need to open an issue with IBM.
Back to top
View user's profile Send private message
jeyaseelan347
Warnings : 1

New User


Joined: 05 Sep 2008
Posts: 37
Location: Chennai

PostPosted: Wed Nov 19, 2008 10:24 pm    Post subject:
Reply with quote

HI Robert,

I have fix that issue. Now I am facing the SOC4 issue. The getting the below info in my IDIREPRT.

Event Fail Module Program EP
# Type Point Name Name Name Event Location (*)
-- ------------ ----- -------- -------- -------- ----------------------
1 Call aaaaaa aaaaaa aaaaaa P+5008 E+5008
2 Call aaaaaa bbbbbb n/a P+126
3 Abend S0C4 ***** aaaaaa bbbbbb n/a P+44

I am getting SOC4 in the CALL to subprogram 'bbbbbb'. Can you please help me?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Why should we concerned about AMODE? praveen.vss PL/I & Assembler 10 Tue Nov 14, 2017 2:46 pm
No new posts Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us