main module ThreeCHAR
//%set debug_print_ccode = true

//    use TEXTIO
    declare
	Status_Symbol	is packed array [1..3] 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 (
		"CCC",	"PPP",	"AAA",	"SSS")

	  Text_Char : static packed array [1..3] of char
    enddeclare

	Text_Char := Test_Status [IS_A]

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