IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to display quotes in the BMS screen


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sridharbabu

New User


Joined: 09 May 2010
Posts: 3
Location: Hyderabad

PostPosted: Sun Jun 13, 2010 9:30 am
Reply with quote

hi

i am sridhar ,i am working for capgemini(pune). My doubt is how to display quotes in the BMS SCREEN

tell me code for following words in the bms coding

ex1: CAN'T
ex2: '1098'

EDITED: Do not use Color and Font unnecessarily.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Sun Jun 13, 2010 11:47 am
Reply with quote

sridharbabu wrote:
My doubt is how to display quotes in the BMS SCREEN
tell me code for following words in the bms coding
ex1: CAN'T
ex2: '1098'
From what programming language (COBOL, Assembler, ???) are you trying to get the 'single quote' to apperar on the screen?
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Sun Jun 13, 2010 2:48 pm
Reply with quote

Welcome to the Forum, Sridhar

If you mean the initial value in the DFHMDF macro, you have to follow the simple assembler rule: double the quote:
Code:
          DFHMDF INITIAL='CAN''T'
          DFHMDF INITIAL='''1098'''
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Sun Jun 13, 2010 5:32 pm
Reply with quote

Use hex notation -

Code:

03  WS-CANT PIC  X(07).
03  WS-1098 PIC  X(06).

MOVE ' CAN T' TO WS-CANT.
MOVE X'7D' TO WS-CANT (1:1)
MOVE X'7D' TO WS-CANT (5:1).
MOVE X'7D' TO WS-CANT (LENGTH OF WS-CANT:).
MOVE ' 1098' TO WS-1098.
MOVE X'7D' TO WS-1098 (1:1).
MOVE X'7D' TO WS-1098 (LENGTH OF WS-1098:).

Bill
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Help in extracting data between doubl... DFSORT/ICETOOL 5
No new posts How to display the leading zeros of a... DB2 7
No new posts SDSF display Max-RC in different colors TSO/ISPF 4
No new posts Data for newly added fields not displ... IMS DB/DC 6
No new posts DATA SET LIST UTILITY screen TSO/ISPF 6
Search our Forums:

Back to Top