$Lstr X2C

<section begin="desc" />Convert from hexadecimal to byte string<section end="desc" />

Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $Lstr_X2C function is to be entered.

This function converts from a hexadecimal encoded string to the decoded byte string. It is identical to $X2C (see the "Model 204 User Language Manual"), except it is longstring capable.

The $Lstr_X2C function accepts one argument and returns a string result whose hexadecimal encoding is that argument.

The first argument is a longstring which is a hexadecimal encoding.

The returned value is the hexadecimal decoding of the argument string. If the argument is not a valid hexadecimal encoding, the null string is returned.

Syntax

<section begin="syntax" /> %DECODED = $Lstr_X2C(string) <section end="syntax" />

$Lstr_X2C Function

%DECODED is set to the hexadecimal decoding of :hp1.string:ehp1..

For example, the following code

PRINT $Lstr_X2C('D985844099A494')

would print Red rum, which is the character representation of the EBCDIC characters represented in hexadecimal as "D985844099A494&CQ..

You can check for an invalid hexadecimal encoding by checking for the null string return value from $Lstr_X2C. Of course, if it is possible that the argument is null, the null string is a valid returned value. If you need to check for errors, and the null string is a possible argument value, you can use an approach such as the following:

%STR = $Lstr_X2C(%IN) IF %STR EQ IF %IN NE THEN error code ... END IF END IF

$Lstr_C2X (:hdref refid=c2xl.) is the inverse of $Lstr_X2C.

This $function is new in Version 6.8 of the Sirius Mods.

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

Products authorizing $Lstr_X2C