View previous topic :: View next topic
|
Author |
Message |
vasif
New User
Joined: 11 Feb 2008 Posts: 35 Location: Chennai
|
|
|
|
I need to convert the user input given in lower case to upper case. I have read that this usually occurs by default but our terminals seem to have set to read the input as is. I have tried using the below logic from a similar topic here but this is not working. Can anybody help me as to where the problem is?
Code: |
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
* CHANGE TERMINAL TO MIXED CASE *
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
9600-CHANGE-CASE-SETTING.
EXEC CICS SET
TERMINAL (EIBTRMID)
UCTRANST (DFHVALUE(UCTRAN))
RESP (WS-CICS-RESPONSE)
END-EXEC
.
/ |
|
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Talk to your System's Support staff and have them define a Lower Case Profile for your transaction-id.
Then, programatically, you can perform the translation.
Bill |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
yes, because you changed the original code to suit you and not what was supplied.
Code: |
05 WS-UCTRANS PIC 9(08) BINARY VALUE 0.
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
* 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 |
|
|
|