Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ASSEMBLER: Got Abend during calling a Subprogram

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
GAFUR

New User


Joined: 19 May 2005
Posts: 31

PostPosted: Tue Sep 25, 2007 5:46 pm    Post subject: ASSEMBLER: Got Abend during calling a Subprogram
Reply with quote

Hello Assembler guys,

I am learing assembler and practising simple programes of assembler in my mainframe. i just coded a Cobol main program and called a assembler subprogram. But during execution got U4038 abend following. I dont have much idea about AMODE and RMODE. Can someone take a look why is it got abend?.

Also i want to know is it possible to call a Cobol subprogram from assembler mainprogram?

CEE3191E AN ATTEMPT WAS MADE TO INITIALIZE AN AMODE24 APPLICATION WITHOUT USING THE ALL31(OFF) AND STACK(,,BELOW)
RUN-TIME OPTIONS.
FROM COMPILE UNIT SUB1 AT ENTRY POINT SUB1 AT COMPILE UNIT OFFSET +000003EA AT ENTRY OFFSET +000003EA AT
ADDRESS 12801152.


Main program:

IDENTIFICATION DIVISION.
PROGRAM-ID. SUB1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WS-PGM PIC X(8) VALUE 'SUBASM1'.
LINKAGE SECTION.
PROCEDURE DIVISION.
CALL WS-PGM.
GOBACK.

Assembler Sub program.

SUBASM1 CSECT
STM 14,12,12(13)
BALR 12,0
USING *,12
ST 13,SUBSAVE+4
LA 13,SUBSAVE
WTO 'HELLO FROM SUBASM1'
L 13,SUBSAVE+4
L 14,12(0,13)
LM 0,12,20(13)
BR 14
SUBSAVE DS 18F
END
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Sep 25, 2007 8:01 pm    Post subject:
Reply with quote

Hello,

Quote:
Also i want to know is it possible to call a Cobol subprogram from assembler mainprogram?
Yes, it is.

You should talk with your system support people and ask for the proper jcl to assemble and link your module. Once you use the correct link jcl, the xMODE conflict should be resolved.
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts A not very Christmassy PL/I tale, wit... prino PL/I & Assembler 3 Mon Dec 26, 2016 1:01 am
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us