AsciiToEbcdic (String function): Difference between revisions
m (would you belive a blank line) |
m (found the X sting function) |
||
Line 28: | Line 28: | ||
==Examples== | ==Examples== | ||
<ol><li> | <ol><li> | ||
The following fragment shows calls of <var>AsciiToEbcdic</var> against strings with and without non-translatable characters. | The following fragment shows calls of <var>AsciiToEbcdic</var> against strings with and without non-translatable characters. The [[X (String function)|X]] constant function is used in the example. | ||
<p class="code">%a <var>String</var> Len 20 | <p class="code">%a <var>String</var> Len 20 | ||
%a = | %a = '31':X | ||
Print %a:<var>AsciiToEbcdic</var> | Print %a:<var>AsciiToEbcdic</var> | ||
Revision as of 05:05, 31 January 2011
Convert ASCII string to EBCDIC (String class)
AsciiToEbcdic is an intrinsic function to convert an ASCII (ISO-8859-1) string to EBCDIC using the current Unicode tables. Optionally, untranslatable characters are represented with character references.
Syntax
%outString = string:AsciiToEbcdic[( [CharacterEncode= boolean])] Throws CharacterTranslationException
Syntax terms
%string | A string variable to receive the method object string translated to EBCDIC. |
---|---|
string | A string that is presumed to consist of ASCII characters. |
CharacterEncode | The optional, but NameRequired, argument CharacterEncode argument is a Boolean enumeration; if you specify a value, the parameter name CharacterEncode is required.
|
Exceptions
AsciiToEbcdic can throw the following exception:
- CharacterTranslationException
- If the method encounters a translation problem, properties of the exception object may indicate the location and type of problem.
Usage notes
- More information is available about the Unicode tables.
- The AsciiToEbcdic function is available as of Sirius Mods version 7.3.
Examples
-
The following fragment shows calls of AsciiToEbcdic against strings with and without non-translatable characters. The X constant function is used in the example.
%a String Len 20 %a = '31':X Print %a:AsciiToEbcdic %a = '318132':X Print %a:AsciiToEbcdic(CharacterEncode=True) Print %a:AsciiToEbcdic
The result is:
1 12 CANCELLING REQUEST: MSIR.0751: Class STRING, function ASCIITOEBCDIC: CHARACTER TRANSLATIONEXCEPTION exception: ASCII character X'81' without valid translation to EBCDIC at byte position 1 ...
See also
- The inverse of the AsciiToEbcdic method is EbcdicToAscii.