MVSFORUMS.com

basheerbaba

Hi,

I have four CICS regions in my application system.

I have one program for all four regions, I need to get the region name dynamically.

according to the region name I need to change the screen name.

So How do I get the region name from the program?

Thanks,
Basheer.

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

Would you settle for SYSID(data-area)
returns the 4-character name given to the local CICS system. This value may be specified in the SYSID option of a file control, interval control, temporary storage, or transient data command, in which case the resource to be accessed is assumed to be on the local system.?

basheerbaba

Hi CICS guy,

Thanks for quick reply

Can you please give some example for SYSID,

How we can code in COBOL program.

Thanks,
Basheer.

dbzTHEdinosauer · Posted: Tue Jul 17, 2007 6:28 am Post subject:

CICS Guy,
I was waiting for basheerbaba's response. (lolarotf)
_________________
Dick Brenholtz
American living in Varel, Germany

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

dbzTHEdinosauer · Posted: Tue Jul 17, 2007 7:46 am Post subject:

CICS Guy,

I think basheerbaba's problem is that his module is invoked, he has not sent a screen (so he can't receive it), makes no sense to do a TD write just to do a TD REAd.

What I think is the people who designed the routing methodology forgot half the cake.

I doubt that the terminals are hard wired to a cics region. (if so, then he just has to play with a terminal table). I also doubt that there are 4 tranids that invoke his module. Some module, someplace intercepted the tranid - and based on something, picked a particular region and routed the transaction there, invoking his module. Why they did not send a little bit a data along to tell him what is going on, I have no idea. And that is what I would suggest that he do: tell his people to do the routing properly. Somebody has already decided which region to go to, why make his module do it again????
_________________
Dick Brenholtz
American living in Varel, Germany

dbzTHEdinosauer · Posted: Tue Jul 17, 2007 7:52 am Post subject:

there is also the possibility that there are different masterfiles/DB's on each region, which mean basheerbaba needs to read/fetch a control record.

it is, also, possible that basheerbaba only understood part of his assignment and the routing to his module already includes a msg telling him who he is supposed to be. He only needs to receive his msg.
_________________
Dick Brenholtz
American living in Varel, Germany

bauer · Posted: Wed Jul 18, 2007 1:02 am Post subject:

This PL/1 Code

Earl · Beginner Joined: 09 Jun 2007 Posts: 26 Topics: 1

COBOL

WORKING STORAGE SECTION.
01 WS-SYSID PIC X(04) VALUE SPACES.

PROCEDURE DIVISION.

EXEC CICS ASSIGN SYSID (WS-SYSID) END-EXEC.