Date:         Mon, 8 Jan 2001 09:10:52 -0500
Reply-To:     CICS List <CICS-L@LISTSERV.UGA.EDU>
Sender:       CICS List <CICS-L@LISTSERV.UGA.EDU>
From:         Bill O'Boyle <Bill.O'Boyle@EQUIFAX.COM>
Subject:      Re: Addressing SIT
Content-type: text/plain; charset=us-ascii

Mabel,

     Insert the CICS-DFHAFCD Macro into your ASSEMBLER program and execute the
following:

R15SAVE   DS   F
SITADDR   DS   F
CSAADDR   DS   F

          ST   R15,FWORD           SAVE R15
          DFHAFCD TYPE=LOCATE POINT TO AFCB (R15 IS DEFAULT)
          L    R15,8(,R15)               POINT TO CSA
          ST   R15,CSAADDR         SAVE IF NEEDED LATER
          NI   CSAADDR,X'7F'       CLEAR HIGH-ORDER NIBBLE
          USING  DFHDSADS,R15      INFORM ASSEMBLER (OVERRIDE DSECT)
          L           R15,CSASITBA       POINT TO SIT
          ST     R15,SITADDR       SAVE IF NEEDED LATER
          DROP  R15                DROP CSA ADDRESSABILITY
          USING  DFHSITDS,R15      INFORM ASSEMBLER

          ...........................................................  YOUR
PROCESSING GOES HERE
          ...........................................................

          DROP R15                 DROP SIT ADDRESSABILITY
          L    R15,FWORD           RESTORE R15

          DFHCSAD TYPE=DSECT
                    COPY    DFHSIT

     There are several other ways to do this. This method uses R15 only for a
short time.

HTH....

Bill