Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!umich!samsung!zaphod.mps.ohio-state.edu!uwm.edu!psuvax1!psuvm!auvm!UMVMA!C4322LR From: C4322LR@UMVMA.BITNET (Len Rugen) Newsgroups: bit.listserv.cics-l Subject: DFHZCP exits Message-ID: Date: 20 Feb 90 14:30:44 GMT Sender: CICS Discussion List Reply-To: CICS Discussion List Lines: 14 Approved: NETNEWS@AUVM.BITNET Gateway In-Reply-To: UA5431@UOKMVSA -- Mon, 19 Feb 90 16:41:00 CST I haven't used the exit to do this. What we have done is to have a callable module to make a change to TCTTE that remains in effect for the duration of the session, or until reset. Just changing the UCTRAN bit doesn't seem to do anything, the field that works is TCTUECTB. This could be done from a simple transaction, maybe even a 'prefix' to the transaction that needs mixed case. Here's a part of the code...... SETON EQU * 00000680 MVI TCTEUCTB,X'01' SET UCTRAN ON 00000690 B RETURN 00000700 SPACE 3 00000710 SETOFF EQU * 00000720 NI TCTEUCTB,X'00' SET UCTRAN OFF 00000730 B RETURN 00000740