SUBROUTINE REACT_ASSIGN_CONV(ConvType, DataIo, SubrLabel, ReturnedValue) * begin condition pre: post: end condition $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' Vals = XLATE('SYSREPOSPOPUPS','LSL2**REACT_ASSIGNMENT',8,'X') Desc = '' LOOP Val = Vals[1,@VM] Code = Val[1,@SVM] Desc = Val[COL2()+1,@SVM] UNTIL Code = DataIO OR Vals = '' Vals = DELETE(Vals,1,1,0) REPEAT ReturnedValue = Desc case otherwise$ status() = invalid_msg$ end case return