MVSFORUMS.com

brijesh_mca1

Hi,

My requirement is to find ASCII values of alphabets thru COBOL program.
or any continous integer values will solve the purpose.

I used ORD function
COMPUTE X = FUNCTION ORD('A')

It gives the integer value , However values are not continous,there are brakes , It start with 194, and at J it resets to 210.

Thanks in Advance
_________________
Brijesh(India Is Great)

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

ASCII or EBCDIC?
The hex value?
Not contiguous? Of course not, there other values between I and J, X'CA' to X'D0'.....

brijesh_mca1 · Posted: Thu Sep 13, 2007 3:51 am Post subject:

II have a string, anf based on albhabet I need to make a Numeric String.

For eg , say A=10, B=11,C=13,D=14........

And I am having a string say Hello
so I need to convert it to 17 14 21 21 24.

Hex will also do. If I use ORD function, A is having value equal to 194, till I for each alphabet its increasing by 1. However for J its suddenly become 210 and so on.
_________________
Brijesh(India Is Great)

brijesh_mca1 · Posted: Thu Sep 13, 2007 4:02 am Post subject:

I mean ORD is converting Alphabets to EBCDIC codes, However I need ASCII values.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR10/APPENDIX1.3.1?SHELF=&DT=20020920180651&CASE=

Shows EBDCI values
_________________
Brijesh(India Is Great)

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

Not making enough sense, but maybe you are looking for the SPECIAL-NAMES ALPHABET clause?

slade · Posted: Sat Sep 15, 2007 5:53 pm Post subject:

Hi Brijesh,

This may be of some help. It was submitted at another COBOL site by Michael C. Mattias.

http://www.talsystems.com/tsihome_html/downloads/C2IEEE.htm
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering