$save nolist
DECLARE		/* global literals */

	str_name	LITERALLY 'STRUCTURE (
										size 		BYTE,
										name(1)		BYTE)',

	STREQUAL	LITERALLY '0',		/* indicates string equality */
	STRLESS		LITERALLY '-1',		/* indicates string inequality */
	STRGREATER	LITERALLY '1';		/* indicates string	inequality */
$restore