If the negate flag is set, the array is inverted. Finally, the aolumn names are copied from the list of table columns to the output list when the corresponding flag is true. The type of the token is returned as a function value. When no more tokens remain, the function returns. Quoted strings are converted to upper case and if the string follows a like operator, wild card characters are converted to their sql equivalents.
Numeric constants are copied as is.
Symbols and operators are converted from their Fortran to sql form. At that point, it returns the name of the variable. All these variables are fairly trivial, except for txtlink . The chief complications are determining the width of each column in the output and where rows should be folded so that the width of the output does not exceed 80 characters. The function computes the length of the longest string in each column to determine the column width.