But it unfortunately doesn't work if you are using EXCI. With EXCI, you will have a CICS AFCB in batch and IMS/TM environments.

Gary Weinhold
Data Kinetics

On 6/28/2013 12:00 AM, IBM-MAIN automatic digest system wrote:
This has worked for me in the past:

                    DFHAFCD TYPE=LOCATE      ADDRESS AFCB
                    LTR   R15,R15                         Are we BATCH?
                    BZ     BATCH00                         YES Do Batch
                    CLC   0(3,R15),=CL3'AFC'      Is It CICS?
                    BE     CICS00                             Yes, Do CICS

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to