|Date: ||Wed, 12 May 1999 06:11:29 -0400|
|Reply-To: ||CICS List <CICS-L@UGA.CC.UGA.EDU>|
|Sender: ||CICS List <CICS-L@UGA.CC.UGA.EDU>|
|From: ||Keith Goolsby <goolsbyt@EROLS.COM>|
|Organization: ||Keith Goolsby|
|Subject: ||Re: TGT map|
|Content-Type: ||text/plain; charset=us-ascii|
Vikas Puri wrote:
> Hi Keith,
> We are running COBOL11 but not in LE environment.
> At 05:08 AM 5/11/99 -0400, you wrote:
> >Vikas Puri wrote:
> >> Hi All,
> >> Please tell me which offset of TCA or which register address to TGT in
> >> CICS212. I know in CICS410 Reg13 addresses to TGT.
> >> Thanks in advance.
> >> vpHi Vikas,
> > What version of COBOL are you running in your shop. It has been
> >a long time since I have worked on cics v2.1.2., but in cics v4.1 there
> >is more than one way to find the tgt depending on whether you are
> >running in an LE environment or not.
> >Keith Goolsby
> >U.S. Customs
> >Hi Vikas,
The official way to find the tgt in cobolII, non LE, would be to
look at the field TCAPCHS in your TCA. I don't remember the offset of
this field in cics 2.1.2. This is supposed to point to the high level
language reg save area (rsa), which is the first thing in a cobol tgt.
If this fails and your dump is viewable online, you could do a
search for the character string c'tgt+48'. There may be 2 displayable
characters preceding this string, such as 'c2tgt+48'. These characters
begin at offset x'48' in the tgt. You can verify that you have the
correct tgt and not remnant stuff in stg, by checking the value of r14
in the rsa, the fourth fullword in the rsa. If the value here is an
address where your in your cobol program is loaded, you probably have
the tgt you're looking for.