|
View previous topic :: View next topic
|
| Author |
Message |
ezplanet
New User
Joined: 24 Sep 2025
Posts: 4
Location: UK
|
|
|
|
Hi, this is my first post. The first 10 years of my career were on MVS/XA, CICS, PL/1 and COBOL, then I moved to distributed systems for the next 30 years and I have never had an opportunity to touch a mainframe terminal ever again. Until I retired and I found hercules and ADCD. Now I am having fun again with z/OS, but I am a one man shop, no system boffins I can rely upon.
I am writing an application and I want to be able to receive mixed case characters from a CICS map. I have read everything that google can find on the subject. My CICS has UCTRAN set to NO everywhere I could find it. CICS RECEIVE map have the 'ASIS' option too.
But I still get everything in uppercase.
One thing I cannot change is the terminal autoinstall (I am using x3270 from Linux). The terminal is always assigned typeterm DFH3270 which is defined with UCTRAN=yes. This typterm appears to be linked to DEVICE 3270.
TYpeterm(DFH3270) Group(DFHTYPE) cannot be altered because it is a CICS system definition in CSD.
I tried to create a new TYpeterm(DFH3270) in a different group but looking at CICS logs the system defined DFH3270 is always picked up by the terminal rather than the 'override'.
At this point I am not sure what else to do. I was wondering if anyone with system programming knowledge could help |
|
| Back to top |
|
 |
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1216
Location: Dublin, Ireland
|
|
|
|
I have UCTRAN=NO working for autoinstall in some of my CICS regions. I have defined a TYPETERM that specifies UCTRAN=NO and a TERMINAL definition with AUTINSTMODEL=ONLY that specifies that TYPETERM in an RDO group which is installed after DFHTYPE. That combination is then found by the autoinstall program to install the terminal.
Hope this helps,
Garry. |
|
| Back to top |
|
|
ezplanet
New User
Joined: 24 Sep 2025
Posts: 4
Location: UK
|
|
|
|
| Hello Garry, I tried something that appears to be similar, but it does not work, would you be able to post your CEDA DEFINES ? |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1216
Location: Dublin, Ireland
|
|
|
|
Hi,
Here's what I have:
| Code: |
DEFINE TYPETERM(XXXLU2C) GROUP(AUTOINST)
DEVICE(LUTYPE2) TERMMODEL(2) SHIPPABLE(NO) PAGESIZE(24,80)
ALTPAGE(24,80) FMHPARM(NO) OBOPERID(NO) AUTOPAGE(NO)
DEFSCREEN(24,80) ALTSCREEN(0,0) APLKYBD(NO) APLTEXT(NO)
AUDIBLEALARM(YES) COLOR(YES) COPY(NO) DUALCASEKYBD(YES)
EXTENDEDDS(YES) HILIGHT(NO) KATAKANA(NO) LIGHTPEN(NO)
MSRCONTROL(NO) OBFORMAT(NO) PARTITIONS(NO) PRINTADAPTER(NO)
PROGSYMBOLS(NO) VALIDATION(NO) FORMFEED(NO) HORIZFORM(NO)
VERTICALFORM(NO) TEXTKYBD(NO) TEXTPRINT(NO) QUERY(NO)
OUTLINE(NO) SOSI(NO) BACKTRANS(NO) CGCSGID(0,0) ASCII(NO)
SENDSIZE(0) RECEIVESIZE(0) BRACKET(YES) ERRLASTLINE(YES)
ERRINTENSIFY(YES) ERRCOLOR(NO) ERRHILIGHT(NO) AUTOCONNECT(NO)
ATI(YES) TTI(YES) CREATESESS(NO) RELREQ(YES) DISCREQ(YES)
NEPCLASS(0) SIGNOFF(YES) RSTSIGNOFF(NOFORCE) ROUTEDMSGS(ALL)
LOGONMSG(YES) BUILDCHAIN(YES) USERAREALEN(110)
IOAREALEN(4096,8000) UCTRAN(NO) RECOVOPTION(SYSDEFAULT)
RECOVNOTIFY(NONE)
DEFINE TERMINAL(AUT2) GROUP(AUTOINST)
AUTINSTMODEL(ONLY) AUTINSTNAME(AUT2) TYPETERM(XXXLU2C)
NETNAME(AUT2) PRINTERCOPY(NO) ALTPRINTCOPY(NO) TASKLIMIT(NO)
TERMPRIORITY(0) INSERVICE(YES) SOLICITED(NO) ATTACHSEC(LOCAL)
BINDSECURITY(NO) USEDFLTUSER(NO) |
Garry. |
|
| Back to top |
|
|
|
|
