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
 
Code uses commarea terminates abnormally

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

New User


Joined: 25 Oct 2006
Posts: 13

PostPosted: Thu Mar 01, 2007 11:38 am    Post subject: Code uses commarea terminates abnormally
Reply with quote

i am writing a code to understand the concept of commarea.

the gist of my code is

working storage section.
01 commarea.
05 data1 pic x(10).
linkage section.
01 dfhcommarea.
05 ddata1 pic x(10).

Procedure Division.
if eibcalen = 0 then
move 'abcde' to data1
perform send-map
perform return-para
else
exec cics
send from (ddata1)
end-exec
perform receive-map
perform return-para
end-if.


if i run this prgm in cics, it terminates abnormally and comes to the cics login screen as ddata1 as some junk values.

when i tried displaying data1 in the else part , the result was the same (obviously because data1 is unknown). Can anyone please tell me, why this is happening.
Back to top
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Mar 01, 2007 11:45 am    Post subject:
Reply with quote

COMMAREA is meant to be used as communication area between programmatic entities, not BMS.

O.
Back to top
View user's profile Send private message
mahesh_yellale

New User


Joined: 25 Dec 2006
Posts: 3
Location: pune

PostPosted: Sun Mar 11, 2007 11:00 am    Post subject: Re: Code uses commarea terminates abnormally
Reply with quote

to use commarea you need to mention RETURN command to youa TRANSID and then COMMAREA. following is the code
EXEC CICS RETURN
TRANSID(WS-ARAE1)
COMMAREA(WS-AREA2)
LENGTH(WS-LENGTH)
END-EXEEC.
I THINK YOU UNDERSTOOD NOW
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm

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