Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message

New User

Joined: 09 May 2007
Posts: 8
Location: Delhi

 Posted: Fri Dec 28, 2007 3:33 pm    Post subject: How to display Currency Sign for Pound 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.

Varun Singh

New User

Joined: 01 Aug 2007
Posts: 25
Location: Delhi

 Posted: Mon Dec 31, 2007 2:55 pm    Post subject: Reply to: How to display Currency Sign for Pound Use x'4A'
Varun Singh

New User

Joined: 01 Aug 2007
Posts: 25
Location: Delhi

 Posted: Mon Dec 31, 2007 3:06 pm    Post subject: USe x'4A' for \$ and x'5B' for pound
Marso

REXX Moderator

Joined: 13 Mar 2006
Posts: 1284
Location: Israel

Posted: Mon Dec 31, 2007 4:22 pm    Post subject:

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
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics How to display offset thru cobol prog... tvinodkumar7 CICS 2 Sun Apr 22, 2018 8:42 pm how to display APL characters? Pedro TSO/ISPF 7 Wed Mar 14, 2018 5:07 am Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us