; check value length, called from input transforms on eIV fields
; VAL - value to check
; MAX - max. allowed length for free text field, or max. value for numeric field
; NUMFLG - 1 if field is numeric, 0 if free text
; validate the response for the output transforms on the CODE (.01) field in the IIV Status Table (#365.15) file.
; VAL - value to translate
; OUT - output value based up the value entered.