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

How to display Currency Sign for Pound


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ajay_bhad

New User


Joined: 09 May 2007
Posts: 8
Location: Delhi

PostPosted: Fri Dec 28, 2007 3:33 pm
Reply with quote

In my module on the basis of currency i need to display its corresponding symbol , but i am not able to see the pound sign , what conversion should i do with the X'B1' in order to view the pound sign '£'.

i searched in the forum but i dont think the currency sign clause in special names can solve this case as the symbol can be pound or dollar in my module. Please help me.
Back to top
View user's profile Send private message
Varun Singh

New User


Joined: 01 Aug 2007
Posts: 25
Location: Delhi

PostPosted: Mon Dec 31, 2007 2:55 pm
Reply with quote

Use x'4A'
Back to top
View user's profile Send private message
Varun Singh

New User


Joined: 01 Aug 2007
Posts: 25
Location: Delhi

PostPosted: Mon Dec 31, 2007 3:06 pm
Reply with quote

USe x'4A' for $
and x'5B' for pound
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Mon Dec 31, 2007 4:22 pm
Reply with quote

Currency symbols seem to be different in different countries. I have:
$ x'5B'
£ x'B1'
¥ x'B2'
¢ x'4A'
Just to be sure, run this small REXX program and check where your currency symbols are.
Code:
/* REXX */                                                         
Trace O                                                           
Line = ""                                                         
Do Ix = 0 to 15                                                   
   Do Iy = 0 to 15                                                 
      Num = (Ix * 16) + Iy                                         
      Line = Line" "Right(Num,3)" "Right(D2X(Num),2)" " D2C(Num)"|"
      If Length(Line) > 75 Then Do                                 
         Say Line                                                 
         Line = ""                                                 
      End                                                         
   End                                                             
End                                                               
Say Line                                                           
Exit                                                               
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 -> COBOL Programming

 


Similar Topics
Topic Forum Replies
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 Converting a file from PD to display ... SYNCSORT 4
No new posts Unable to display comp variable COBOL Programming 4
This topic is locked: you cannot edit posts or make replies. Missing Negative sign in COBOL COBOL Programming 6
Search our Forums:

Back to Top