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
 
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: 1252
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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm

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