Check for HEXADECIMAL value in a string

cskakani · New User Joined: 22 Dec 2003 Posts: 3

Hi, can any one tell me ...How do I check for HEXADECIMAL value in a string using COBOL ?

Thanks
Chandra.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Chandra,

By the way you phrased the ques I assume you know how to check for an A/N value in a string.

Use: IF STRING(POS) = X'C2' etc.

But I'm guessing there's more to your ques than you let on.

cskakani · New User Joined: 22 Dec 2003 Posts: 3

Hi Jack,
Thanks for reply, could youplease expalin this with example?

Thanks & Regards,
Chandra.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Chandra,

You'll have to explain what you're trying to do in detail.
What's your I/P look like, what are you looking for, what do you intend to do with it when you find it? Don't spare the details.

Great Indian · New User Joined: 05 Apr 2005 Posts: 9

Hi Chandra,
You can check HEXADECIMAL value in a string using COBOL.

Here is the code go thru it:-

WORKING-STORAGE SECTION.
01 WS-CH PIC X(05) VALUE 'RAO'.
PROCEDURE DIVISION.
MAINPARA.
IF WS-CH(2:1) = X'C1' THEN
DISPLAY 'HEXA DECIMAL'
ELSE
DISPLAY 'NOT IN HEXA DECIMAL'
END-IF.
STOP RUN.

Hexa decimal values for alphabets are:
A C1
B C2
C C3
D C4
E C5
F C6
G C7
H C8
I C9
J D1
K D2
.........like this....
Z E9

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi GI,

Have to disagree w/your IF stmt. If WS-CH(2:1) is X'00' it's still hex (every byte is hex), it's just not X'C1" (or anything else except X'00'.)