SUBROUTINE PROD_SPEC_STATUS_CONV(ConvType, DataIo, SubrLabel, ReturnedValue)
*

$insert logical

equ valid$         to 0    ;* successful
equ invalid_msg$   to 1    ;* bad data       -   print error message window
equ invalid_conv$  to 2    ;* bad conversion -          "         "
equ invalid_nomsg$ to 3    ;* bad but do not print the error message window

status() = Valid$
begin case
	case ConvType = 'ICONV'
		ReturnedValue = DataIo
		
	case ConvType = 'OCONV'
	
		begin case
			case DataIo = 'A'
				ReturnedValue = 'Active'
				
			case DataIo = 'I'
				ReturnedValue = 'Inactive'
              
			case DataIo = 'H'
				ReturnedValue = 'Hold'
				
			 case Otherwise$
				ReturnedValue = ''
				
		end case
		
	case otherwise$
		status() = invalid_msg$
		
end case

return
