main module ONEnum
//%set debug_print_ccode = true

//    use TEXTIO
    declare
	Status_Symbol	is packed array [1..1] of 8 bit integer
	Enums is [IS_C,		IS_P,		IS_A,		IS_S] 

	Enums_Status is packed array [Enums] of Status_Symbol
	Test_Status = table Enums_Status (
		table Status_symbol (1), 
		table Status_symbol (2),
		table Status_symbol (3),
		table Status_symbol (4))

	  Text_num : static packed array [1..1] of  8 bit integer
    enddeclare

	Text_num := Test_Status [IS_A]

//	out_string	(TTY, "Text_Char =")
//	out_integer	(TTY,  Text_num[1])
//	out_record	(TTY)
endmodule