|
View previous topic :: View next topic
|
| Author |
Message |
annu zacson
New User
Joined: 19 Aug 2008
Posts: 15
Location: Cochin
|
|
|
|
Hi,
How to receive Mixed case characters( both lower case and upper case ) using CICS maps. Currently, i am receiving the characters as UPPER CASE by default. I have used the below command:
EXEC CICS
RECEIVE MAP ('MSMC17')
TERMINAL ASIS
END-EXEC.
Could you please help me to sort this?
Regards,
Annu |
|
| Back to top |
|
 |
shibub
New User
Joined: 16 Oct 2009
Posts: 13
Location: Bangalore
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Quote: |
| Could you please help me to sort this? |
Sure, and it is easy. TALK TO YOUR CICS SUPPORT GROUP! Depending upon how the CICS parameters were set up, it may not even be possible for you to receive mixed-case characters with your map. In all cases, however, unless you talk to the people AT YOUR SITE that are responsible for setting up the CICS region, you cannot know for sure. Experimentation and use of CEMT can tell you a lot, though. |
|
| Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon
|
|
|
|
| Code: |
05 WS-UCTRANS PIC 9(08) BINARY VALUE 0.
PERFORM 9600-CHANGE-CASE-SETTINGS
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
* CHANGE TERMINAL TO MIXED CASE *
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
9600-CHANGE-CASE-SETTINGS.
EXEC CICS INQUIRE
TERMINAL (EIBTRMID)
UCTRANST (WS-UCTRANS)
RESP (WS-CICS-RESPONSE)
END-EXEC
IF WS-UCTRANS = DFHVALUE (UCTRAN)
MOVE DFHVALUE (TRANIDONLY) TO WS-UCTRANS
ELSE
MOVE DFHVALUE (UCTRAN) TO WS-UCTRANS
END-IF
EXEC CICS SET
TERMINAL (EIBTRMID)
UCTRANST (WS-UCTRANS)
RESP (WS-CICS-RESPONSE)
END-EXEC
.
/ |
|
|
| Back to top |
|
|
|
|
