Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To receive mixed case character using CICS maps

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
annu zacson

New User


Joined: 19 Aug 2008
Posts: 15
Location: Cochin

PostPosted: Fri Nov 25, 2011 1:56 pm    Post subject: To receive mixed case character using CICS maps
Reply with quote

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
View user's profile Send private message

shibubalakrishnan

New User


Joined: 16 Oct 2009
Posts: 13
Location: Bangalore

PostPosted: Fri Nov 25, 2011 4:18 pm    Post subject:
Reply with quote

A Google search gave me the below links.

http://ibmmainframes.com/post-54827.html
http://www.cicsworld.com/node/2327
http://softwaremiracles.com/walker/tipsandtools/Tamaris/CICS/mixed-case.html


-Shibu-
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Fri Nov 25, 2011 5:50 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Tue Nov 29, 2011 12:52 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Asynchronous CICS Processing Question moezbud CICS 1 Mon Mar 06, 2017 6:13 pm
No new posts CICS Question RE: Browse, Readnext an... moezbud CICS 7 Sun Mar 05, 2017 5:45 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us