Hi Don,
01 WK-NDX PIC S9(04) COMP.
01 WK-ZONE PIC S9(04) COMP.
01 WK-DIGIT PIC S9(04) COMP.
01 TEXT-LENGTH PIC S9(04) COMP.
01 TEXT-FIELD.
05 TEXT-CHAR PIC X(01)
OCCURS DEPENDING ON TEXT-LENGTH.
01 TEXT-CONVERTER.
05 FILLER PIC X(01) VALUE LOW-VALUES.
05 TEXT-TO-CNVT PIC X(01).
01 NUMERIC-TEXT REDEFINES TEXT-CONVERTER
PIC S9(04) COMP.
01 CONVERTED-TEXT.
05 CONVERTED-CHARS
OCCURS TEXT-LENGTH TIMES.
10 CONVERTED-ZONE PIC X(01).
10 CONVERTED-DIGIT PIC X(01).
01 HEX-CHARACTERS PIC X(16) VALUE '0123456789ABCDEF'.
01 HEX-CHARS REDEFINES HEX-CHARACTERS.
05 HEX-CHAR OCCURS 16 TIMES
PIC X(01).
MOVE 6 TO TEXT-LENGTH.
MOVE 'BEFORE' TO TEXT-FIELD.
MOVE 1 TO WK-NDX.
PERFORM CONVERT-TEXT 5 TIMES.
CONVERT-TEXT.
MOVE TEXT-CHAR (WK-NDX)
TO TEXT-TO-CNVT.
DIVIDE NUMERIC-TEXT BY 16
GIVING WK-ZONE
REMAINDER WK-DIGIT.
MOVE HEX-CHAR(WK-ZONE)
TO CONVERTED-ZONE (WK-NDX).
MOVE HEX-CHAR(WK-DIGIT)
TO CONVERTED-DIGIT (WK-NDX).
CONVERT-TEXT-END.
MOVE CONVERTED-TEXT
TO anywhere-you want-to-move-it.
Does this work for you?
Chuck
Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Donald Johnson
Sent: Wednesday, June 09, 2010 3:37 PM
To: IBM-MAIN@bama.ua.edu
Subject: Cobol routine to convert TEXT to displayable HEX
Hi guys and gals!
Does anyone have a routine (COBOL preferable) that converts a standard text
field into its HEX values?
For example, if I have a field 'BEFORE,' I want to be able to translate it
to
CCCDDC
256695
or to C2C5C6D6D9C5.
My ultimate goal is the first choice (vertical format), but I can deal with
either. I will code this in my COBOL program, so that is why COBOL...I can
do it in other places easily, but I am trying to create a model program that
is self contained.
Thanks in advance!
* Don *
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
