Display Hex Command Format

[martha3]

Does anyone know what the format of the "Display" command that would allow me to display a numeric value in hex in my output? I thought it was Display Hex fieldname but it's not working. thanks.

 

[mrregan]

There may be some other commands, but od has a hex option.
There may be some extraneous display characters you will want to cut out. Example:
echo "1" | od -x

 

[MarcLodge]

what platform are you talking here martha?

 

[mrregan]

Sorry about my previous post, I thought I was in the unix forum.

 

[webrabbit]

Please specify compiler and platform.

 

[slade]

Hi,

If you're running on a mainframe, this should work. The redefines are a bit overdone for your purposes but it should work.

Regards, Jack.

           05  WS-WORK-PACKED          PIC 9(009)             COMP-3.
           05  REDEFINES WS-WORK-PACKED.
           10  WS-WORK-X5.
               20  WS-WORK-X1          PIC         X(001).
               20  WS-WORK-X3          PIC         X(003).
           05  REDEFINES WS-WORK-PACKED.
           10  WS-WORK-BIN4            PIC         9(009)     COMP.

           05  WS-WORK-UNPACKED        PIC 9(009).
           05  REDEFINES WS-WORK-UNPACKED.
           10  WS-WORK-UNPACKED-8      PIC         9(008).


       100-CONVERT-HEX-DATA.
      *-----------------------------------------------------      *===>  CONVERTS HEX DATA FOR DISPLAY PURPOSES
      *      E.G. X"04FB" ====> X"F0F4C6C2" OR 04FB CHARACTER
      *-----------------------------------------------------           MOVE    WS-WORK-PACKED TO WS-WORK-UNPACKED
           INSPECT WS-WORK-UNPACKED CONVERTING
                   X"FAFBFCFDFEFF"  TO  "ABCDEF"
           .

 

[slade]

Sorry about the format. This should look better, I hope.

05  WS-WORK-PACKED           PIC 9(009) COMP-3.
05  REDEFINES WS-WORK-PACKED.
    10  WS-WORK-X5.
        20  WS-WORK-X1       PIC X(001).
        20  WS-WORK-X3       PIC X(003).
05  REDEFINES WS-WORK-PACKED.
    10  WS-WORK-BIN4         PIC 9(009) COMP.
        05  WS-WORK-UNPACKED PIC 9(009).
        05  REDEFINES WS-WORK-UNPACKED.
    10  WS-WORK-UNPACKED-8   PIC 9(008).


 100-CONVERT-HEX-DATA.
*--------------------------------------------------      
*  CONVERTS HEX DATA FOR DISPLAY PURPOSES
*  E.G. X"04FB" => X"F0F4C6C2" OR 04FB CHARACTER
*--------------------------------------------------      MOVE    WS-WORK-PACKED TO WS-WORK-UNPACKED
INSPECT WS-WORK-UNPACKED CONVERTING
        X"FAFBFCFDFEFF"  TO  "ABCDEF"
DISPLAY WS-WORK-UNPACKED-8
.