IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

executing XCTL command in COBOL without result


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
futohomok

New User


Joined: 25 Aug 2022
Posts: 7
Location: hungary

PostPosted: Wed Jan 11, 2023 9:24 pm
Reply with quote

Helo every CICS guru,

my probleme is little obscure. I have 2 COBOL programs in different CICS transactions. I like to start from 1. program the 2. program.

EXEC CICS XCTL
PROGRAM('program2')
COMMAREA(GYZC-COMMAREA)
LENGTH(LENGTH OF GYZC-COMMAREA)
RESP(WS-RESP-CD)
RESP2(WS-RESP2-CD)
END-EXEC

but when executed this statement than nothing happens. Don't start the program2 and don't raised any RESP error code. For this, please send me any words about this problem if possible.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Jan 11, 2023 10:06 pm
Reply with quote

Have you tried following the transaction using CEDF to verify that what you think is happening is actually happening?
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Wed Jan 11, 2023 11:27 pm
Reply with quote

What is program2 doing ? Is it sending another map/screen as a navigation menu ?

As it sound it is calling the module but there is no correct logic in program2 to do work as intended.

So use cedf or any debugger at your site to pinpoint the cause.
Back to top
View user's profile Send private message
futohomok

New User


Joined: 25 Aug 2022
Posts: 7
Location: hungary

PostPosted: Thu Jan 12, 2023 5:15 pm
Reply with quote

Very thanks for rapid answers!

Yes. the program2 send a new MAP/Screen to terminal if it run in standalone mode.

But if I like debug the entire process, and for this I write the CEDF command on surface of the CICS region for starting the CEDF transaction - nothing happens. What am I doing wrong?
Please send for me any words about this.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Thu Jan 12, 2023 5:26 pm
Reply with quote

I would further suggests
1. Make sure you are in right CICS region.
2. Your program2 may be failing and you don’t know as after XCTL from program 1 you don’t have no information, RESP is not going to tell you what happened in program2.
3. You need check CICS region log ( under that region CICS batch job) to search for your program2 name for any errors or abend.
4. I don’t usually recommend adding displays in program2 but it’s your choice if you have nothing else to help you.
5. Do inquire this program and RES count if the program2 has ever called , it should be non 0 value.
Back to top
View user's profile Send private message
futohomok

New User


Joined: 25 Aug 2022
Posts: 7
Location: hungary

PostPosted: Fri Feb 03, 2023 7:13 pm
Reply with quote

Very thanks for your profound answer dear Rohit Umarjikar. This lanswer helped resolve my probem But i have a newer problem: how can i send more maps (2 maps), which are in one mapset, to CICS at once? Namely one CICS SEND command. I hope that this question no too stupid.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Wed Feb 08, 2023 11:44 am
Reply with quote

Please explain why do you have to send two maps at one time.

You can have a unique map name and send one after another as per requirements. Where and what is the problem ?
Back to top
View user's profile Send private message
futohomok

New User


Joined: 25 Aug 2022
Posts: 7
Location: hungary

PostPosted: Wed Feb 08, 2023 2:53 pm
Reply with quote

Very thanks for your answer. My probleme that I have a screen which include three horizontal regio. All regio contains a separete map. The map in the upper regio, and map in the bottom regio are in same mapset. The map in intermediate regio is in an other, different mapset. And I like send the two outsides maps with ane CICS SEND MAP statement to screen, if possible.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri Feb 10, 2023 1:17 am
Reply with quote

If you look at the syntax for the SEND MAP command in the manual, it references a single MAP name. You might be able to do what you want by using multiple SEND MAP commands with ACCUM; I've seen ACCUM used but it was back in the 1980's so I don't recall the details.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Fri Feb 10, 2023 1:23 am
Reply with quote

Quote:
but when executed this statement than nothing happens. Don't start the program2 and don't raised any RESP error code.
How do you know this is what is happening? CEDF can be used to follow the CICS commands execution stream and that will tell you if the program2 is starting or not. If it is not starting, then you've probably got some sort of program or transaction definition issue -- MRO?. If it is starting but not giving you the results you want, then you have a PEBKAC issue (Problem Exists Between Keyboard And Chair).
Back to top
View user's profile Send private message
futohomok

New User


Joined: 25 Aug 2022
Posts: 7
Location: hungary

PostPosted: Thu Feb 16, 2023 8:22 pm
Reply with quote

Dear Rohit Umarjikar and Robert Sample,

very thaks for yours answer, I learned a lot from them, because I'm e new racer in the mainframe CICS.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Routing command Address SDSF to other... TSO/ISPF 2
Search our Forums:

Back to Top