$HexA

Convert hexadecimal string to EBCDIC equivalent

Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $HexA function is the HexToEbcdic (String function).

This function converts a hexadecimal string to its EBCDIC equivalent.

The $HexA function accepts one argument and returns a string result.

The first argument is a string containing the characters 0 - 9 and A - F. All other characters are treated as 0. If the number of characters in the first argument is odd, the first argument is considered to begin with an extra 0 character.

Syntax

%EBCDIC = $HexA(hex_string)

%EBCDIC is set to the EBCDIC equivalent of hex_string.

For example, in

%JUNK = $HexA('F1F2F3')

%JUNK would be set to the string '123' (EBCDIC X'F1F2F3'), and in

%JUNK = $HexA('102')

%JUNK would be set to EBCDIC X'0102' which is a non-displayable string.

Products authorizing $HexA

• Sirius functions
• Fast/Unload User Language Interface
• Janus Open Client
• Janus Open Server
• Janus Sockets
• Janus Web Server
• Japanese functions
• Sir2000 Field Migration Facility