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
 

 

How to display Currency Sign for Pound

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: How to display Currency Sign for Pound
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    Post subject: Reply to: How to display Currency Sign for Pound
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    Post subject:
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: 1228
Location: Israel

PostPosted: Mon Dec 31, 2007 4:22 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm


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