$HexA: Difference between revisions

From m204wiki
Jump to navigation Jump to search
mNo edit summary
(Automatically generated page update)
Line 31: Line 31:
<li>[[List of $functions|Sirius functions]]</li>
<li>[[List of $functions|Sirius functions]]</li>
<li>[[Fast/Unload User Language Interface]]</li>
<li>[[Fast/Unload User Language Interface]]</li>
<li>[http://m204wiki.rocketsoftware.com/images/4/4a/JoclrNew.pdf Janus Open Client]</li>
<li>[[Media:JoclrNew.pdf|Janus Open Client]</li>
<li>[http://m204wiki.rocketsoftware.com/images/1/17/JosrvrNew.pdf Janus Open Server]</li>
<li>[http://m204wiki.rocketsoftware.com/images/1/17/JosrvrNew.pdf Janus Open Server]</li>
<li>[[Janus Sockets]]</li>
<li>[[Janus Sockets]]</li>

Revision as of 21:17, 19 February 2015

Convert hexadecimal string to EBCDIC equivalent

Note: Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $HexA function is the HexToString function.

This function converts a hexadecimal string to its EBCDIC equivalent.

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

Syntax

%ebcdic = $HexA(hex_string)

%ebcdic is set to the EBCDIC equivalent of hex_string.

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

Examples

The following statement sets %JUNK to the string 123 (EBCDIC X'F1F2F3'):

%JUNK = $HexA('F1F2F3')

And this statement sets %JUNK to EBCDIC X'0102', which is a non-displayable string.

%JUNK = $HexA('102')

Products authorizing $HexA