CTRAN Subroutine, What's the decimal value of a Comma?

Hello,

Trying to use this CTRAN Subroutine to translate a comma into a space, but I dont know the deciaml value of a comma:

CTRAN( inlen, infield, decfrm, decto, output )

decfrm is the "decimal value of the character to be traslated"

Any ideas? Thanks!

posted

Hello!

You can look at the code page table to get the decimal value of a character. However, since most of us don't have this table handy (or don't even know which code page you may be using) the best way to get this information is:

1. In Windows, open the Character Map tool (Start Menu->Programs->Accessories->System Tools->Character Map)
2. Select or move the mouse over the comma character and you'll see the HEX representation (2C)
3. Open the Calculator and change the view to Scientific format
4. Click on the Hex radio button, type in 2C and then click on the Dec radial button. You will get 44. And that's your answer!

Hope this helps!

<matty@time>

posted

Thanks Claudia,

Also had this table emailed to me from Russel Bonner in IBI Support:

http://www.legacyj.com/cobol/ascii.html

Comma - 44
Space - 32

Thanks!
Matthew

posted

For those characters above 7F or 127 not listed in the ASCII table, you may use the following:

Microsoft: http://www.microsoft.com/globaldev/reference/wincp.mspx

IBM:
http://www-1.ibm.com/servers/eserver/iseries/software/g...ation/codepages.html

posted

Another method, for getting decimal value, of a character:

-* GETDECIMAL.FEX:
-DEFAULT &CHAR=',';
-SET &VALUE=BYTVAL('&CHAR','I3');
-TYPE Decimal code of '&CHAR' is &VALUE
-*-------------------------------------

Regards
Grzegorz

susannah

Expert

posted

Hide Post

and remember the decimal values are different on the mainframe [EBCIDIC] from what they are on your server [ASCII]..so run your BYTVAL routine up on your mainframe to make yourself a little table of the values of the characters you commonly strip out of strings, and then lather,rinse, and repeat on your wintel box...

Posts: 3811 | Location: Manhattan | Registered: October 28, 2003

Ignored post by susannah posted

Show Post

Vivian

Platinum Member

posted

Hide Post

And those tables are available in the Legacy Focus Keysheet - decimal, ebcdic, ascii, octal, and hex - all the equivalences.

Vivian Perlmutter
Aviter, Inc.
www.aviter.com
PO 50724
Henderson, NV 89016

Posts: 191 | Location: Henderson, Nevada | Registered: April 29, 2003

Ignored post by Vivian posted

Show Post

Francis Mariani

Expert

posted

Hide Post

While digging around on the forum for BYTVAL, I found this old posting regarding CTRAN.

I learned (I'm sure it was from the forum, though I can't find the posting) that if you incorporate BYTVAL in the CTRAN function, you don't have to worry about ASCII and EBCIDIC code values.

For example:

-*-- Replace dash by space
COMPUTE NAMEA/A50 = CTRAN(50, NAME, BYTVAL('-','I3'), BYTVAL(' ','I3'), 'A50'); NOPRINT
-*-- Replace ampersand by space
COMPUTE NAMEB/A50 = CTRAN(50, NAMEA, BYTVAL('&','I3'), BYTVAL(' ','I3'), 'A50'); NOPRINT
-*-- Replace apostrophe by space
COMPUTE NAMEC/A50 = CTRAN(50, NAMEB, BYTVAL('''','I3'), BYTVAL(' ','I3'), 'A50'); NOPRINT

Just thought you'd like to know.

Cheers.

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005

Ignored post by Francis Mariani posted

Show Post

Please Wait. Your request is being processed...