main module ONECHAR
//%set debug_print_ccode = true

    use TEXTIO
    declare
	Status_Symbol	is packed array [1..1] of char
	Enums is [IS_C,		IS_P,		IS_A,		IS_S] 

	Enums_Status is packed array [Enums] of Status_Symbol
	Test_Status = table Enums_Status (
		"C",	"P",	"A",	"S")

	Test_Status_1 = table Enums_Status (
		"C",	"P",	"A",	"S")
	  Text_Char : static packed array [1..1] of char
    enddeclare

	Text_Char := Test_Status [IS_A]
	Text_Char := Test_Status_1 [IS_A]

	out_string	(TTY, "Text_Char =")
	out_string	(TTY,	Text_Char)
	out_record	(TTY)
endmodule