Get equivalent hex string value for the given alphanumeric

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

Good morning & happy day

We use SUPRA SQL and COBOL program, the key for the table is " BLIND_KEY" CHAR (8) BYTE KEY
Suppose the blind-key value is ‘ ¯X*’ we have to input the hex value ‘0000000015bce75c’ to get the info from table. So please guide me how to achieve this programmatically to get hex value for given alphanumeric

¯X* -> 0000000015bce75c (required output)
00001BE5
00005C7C

I am doing this manually, I feel quite difficult when I get huge date.
Thanks in advance for all your time and help.

Have a good day
Thanks.

dbzTHEdinosauer · Posted: Wed Feb 29, 2012 3:54 pm

is not SUPRA on a server and not a mainframe??? which would be ascii

but you have ¯X*
which is ebcdic
¯
X==x'e7'
*== x'5c'

for what is the x'15'
and why the binary zeroes in a char column. is that unique to supra?
need a little more info.

if the need is just to have a displayable 5C for an asterisk
then create a cobol internal table
each item consisting of the 2 char (5c in this case)
and move you single numeric to a x type field, which is redefined as binary and use it for a subscript.

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

dbzTHEdinosauer · Posted: Wed Feb 29, 2012 4:41 pm

since you are to obstinate to answer any questions or provide any meaningful information,

i will ask again:
1. where does your program do?
does it have an input file that it reads, and you are expected to select rows based on the input values?

2. even though the column is char(8),
it appears that there are binary numbers contained in the column.

unfortunately for you

enrico-sorichetti · Posted: Wed Feb 29, 2012 5:31 pm

what do You want to do ...

given the hex string

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

Thanks for reply and help

enrico-sorichetti · Posted: Wed Feb 29, 2012 5:56 pm

instead of posting garbage, would not have been simper reply 1 / 2 to my questions

when You ask for help You should post what WE ( the people helping ) think is useful to help You
not what You think useful
You just complicated things with no reason

dbzTHEdinosauer · Posted: Wed Feb 29, 2012 5:58 pm

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

If something incorrect please I am sorry, I apology for the inconvenience caused.

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

Dick Brenholtz
Yes, the blind key in table needs to be hex representation of the input alphanumeric value. I need to convert 8 byte alphanumeric value to 16 digit hex string. Thanks

dbzTHEdinosauer · Posted: Wed Feb 29, 2012 6:11 pm

you don't have to convert anything.

move the first 8 char of your record to your host variable
and do the select...................................

enrico-sorichetti · Posted: Wed Feb 29, 2012 6:24 pm

the data you showed with the HEX on are not alphanumeric data amen
8 bytes of hex data which shows up as <garbage> on the screen can be decoded to 16 <thing> in the range 0-9a-f

conversely if you want to obtain an arbitrary 8 bytes things Yoyu need to enter 16 <thing> in the beforesaid range and <pack> them as 8 bytes

the process is more complicated that it seems

because 0-9 ==> f0 - f9
and A-F ==> C1 - C6

if You cannot understand the basics of data representation You are leading to a windy road

why not ask those who designed the application about it ?

sprasannapathy · New User Joined: 04 Jan 2008 Posts: 42 Location: india

This program will convert aplhanumeric value x'15' (one byte -WS-LK-ONEBYTE-AN) into 2 byte hex value 15 (WS-LK-HEXASTRING).

Bill Woodger · Posted: Mon Mar 12, 2012 1:23 pm

OK, not really the question, was it?

Does it work? The snippet with the call won't compile.

"N" is only set to your flag if byte is greater than x'9f'.

I don't know when the OTHER could ever possibly occur. Why are you moving the paragraph name to working-storage? I'd have thought it obvious which para it was in?

Generally when we think of these programs, we try to do it in a reasonable amount of code and a reasonable amount of time. This will average 128 tests to establish the display value, and is the longest in terms of code that I've seen, by many-a-mile.

Bill O'Boyle · Posted: Mon Mar 12, 2012 4:28 pm

Maybe this is what you need?

www.ibmmainframes.com/viewtopic.php?p=115071&highlight=#115071

Bill Woodger · Posted: Mon Mar 12, 2012 6:40 pm

Or this, which is shorter than yours, sprasannapathy , but does a bit more.

Or this one.

Dexter Morgan · Posted: Tue Apr 03, 2012 10:25 am

Just noticed this old thread, which is a little hard to follow. If problem is truly to produce zone-digit character representation of hexadecimal, I would like to offer an alternative solution that, I think, is more straightforward and user-friendly. This solution involves simple calculation (COBOL divide) to derive hex characters. It requires 2 copybooks (1 working-storage, 1 procedure division).

Bill Woodger · Posted: Tue Apr 03, 2012 1:05 pm

Yes, sometimes we have no idea what the TS/OP actually wants. Still don't in this case.

Mr Bill's solution is lightnig-fast. Even doing one byte at a time, it beats anything else I can throw at it into a "cocked hat". Then it can do multiple bytes at once. Not beyond the wit of personkind to include code to do this in a loop. It was not offered as a "full" solution like yours, just the conversion bit. It is probably as direct as you can get for a good Assembler implementation in Cobol.

Dick's solution is for where the caller wants the hex values. Minimal code in the caller. No extra storage in the caller beyond what is necessary for the output (and the call).

Mine is for displaying, anything from a single byte up to the whole of working-storage, maybe a bit of other stuff if you fancy. No need for somewhere to store what is to be displayed, or even the output (beyond an output line, anyway).

All of the above, you want 50 times (or more) in a program, no problem.

Relative subscripting, reference-modification, divide, Lots of fun stuff I suppose :-)

Bill Woodger · Posted: Tue Apr 03, 2012 3:34 pm

Just made some comments on this. Not Cobol comments, they'll be the ones.

ajaydwivedi4u · New User Joined: 21 Sep 2019 Posts: 4 Location: India

Delete - tail-gating 7 year-old topic. No code tags. Asking for help from a specific person. No evidence of what had been tried and why it was wrong.