$HexA: Difference between revisions
(Automatically generated page update) |
(Automatically generated page update) |
||
| Line 29: | Line 29: | ||
==Products authorizing {{PAGENAMEE}}== | ==Products authorizing {{PAGENAMEE}}== | ||
<ul class="smallAndTightList"> | <ul class="smallAndTightList"> | ||
<li>[[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>[http://m204wiki.rocketsoftware.com/images/4/4a/JoclrNew.pdf Janus Open Client]</li> | ||
Revision as of 22:07, 1 August 2014
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 HexToEbcdic 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.
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')