* $Source: /commtar/monoBANK/RTS/tKdbgflg.a,v $ 
* $Revision: 1.2 $ $Date: 88/03/16 14:29:36 $ $Author: callen $
         PUNCH ' ALIAS ##DBGFLG'
##DBGFLG ADASTART 'Provide value of debug flag word',CICS=NO
***********************************************************************
*                                                                     *
*        This code provides the value of the debug word in the        *
*        DFHEISTG area. This are is set to zero by supermain and      *
*        can be modified to turn on debugging.                        *
*                                                                     *
***********************************************************************
         USING ##DBGFLG,R15              code addressability
         USING GBL,RGLBL                 map the global area
         L     RVAL,GBLEIPLR             point to CICS data area
         USING DFHEISTG,RVAL             map the area
         L     RVAL,ACDDFLAG             get the flags
         BR    RRET                      return to caller
	 DROP
DFHEIPLR EQU   R10
DFHEISTG DSECT
         DFHEISTG
	 ADACICSD
	 DFHEIEND
	 ADAGLOBL
         END
* $Cprt start$
*  
* Copyright (C) 1988 by Intermetrics, Inc. 
*  
*     This material may be used duplicated or disclosed by or for the 
* U.S. Government pursuant to the copyright license under DAR clause 
* 7-104.9(a) (May 1981). 
*  
*     This project was spnsored by the STARS Foundation 
*     Naval Research Laboratory, Washington DC 
*  
* $Cprt end$