compile subroutine security_tables_valid(ConvType, DataIo, Branch, ReturnedValue) begin condition pre: post: end condition $insert logical declare function msg 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 ReturnedValue = DataIo status() = Valid$ ValidTables = xlate( 'CONFIG', 'TABLENAMES', 1, 'X' ) * begin case case ConvType = 'ICONV' locate DataIo in ValidTables using @vm setting Fpos else status() = invalid_msg$ end case ConvType = 'OCONV' * no output ReturnedValue = DataIo case otherwise$ ReturnedValue = '' status() = invalid_conv$ end case return