> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of John Krew
> Sent: Monday, November 21, 2005 1:42 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Displaying hexdecimal content of field in Cobol
>
>
> Aside from writing and CALLing a trivial assembler routine,
> is there any way to display the
> hexadecimal content of a field in a COBOL program using COBOL syntax?
>
> John Krew
The easiest way, to me, is to transliterate the HLASM program, as
follows:
WORKING-STORAGE SECTION.
01 TWO-VARS.
05 PACKED-VAR PIC S9(3) PACKED-DECIMAL.
05 CHAR-VAR REDEFINES PACKED-VAR
PIC XX.
77 OUTPUT-THREE PIC X(3).
77 OUTPUT-TWO PIC X(2).
77 I PIC S9(4) BINARY.
*
LOCAL-STORAGE SECTION.
LINKAGE SECTION.
01 MVS-PARM.
05 MVS-PARM-LENGTH PIC S999 USAGE BINARY.
05 MVS-PARM-VALUE PIC X(120) .
*
PROCEDURE DIVISION USING MVS-PARM.
START-UP.
PERFORM VARYING I FROM 1
BY 1
UNTIL I > MVS-PARM-LENGTH
MOVE ZERO TO PACKED-VAR
MOVE MVS-PARM-VALUE (I:1) TO CHAR-VAR (1:1)
MOVE PACKED-VAR TO OUTPUT-THREE
MOVE OUTPUT-THREE (1:2) TO OUTPUT-TWO
INSPECT OUTPUT-TWO
CONVERTING X"F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF"
TO
'0123456789ABCDEF'
DISPLAY MVS-PARM-VALUE (I:1) ' '
OUTPUT-TWO ' '
OUTPUT-THREE
UPON SYSOUT
END-PERFORM
--
John McKown
Senior Systems Programmer
UICI Insurance Center
Information Technology
This message (including any attachments) contains confidential
information intended for a specific individual and purpose, and its'
content is protected by law. If you are not the intended recipient, you
should delete this message and are hereby notified that any disclosure,
copying, or distribution of this transmission, or taking any action
based on it, is strictly prohibited.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
