Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 8152
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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 0 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts Need to track the CICS transaction fr... sam8051 CICS 3 Mon Aug 07, 2017 3:11 pm
No new posts Extra character appears in file when ... Balu5491 All Other Mainframe Topics 1 Wed Jul 26, 2017 2:39 pm
No new posts RFE: DB2 support for mixed case names. Pedro DB2 0 Tue Jul 04, 2017 1:32 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us