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: 1243
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 Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm Hardcoded negative sign value in output scdinesh SYNCSORT 8 Fri Sep 08, 2017 5:28 am DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am

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