*MELENCHK.TXT - find length of longest trimm'ed variables
PUBL MLEN1
PUBL MLEN2
STOR 0 TO MLEN1                       
STOR 0 TO MLEN2
GO TOP                                
DO WHIL .NOT. EOF()                   
  IF     LEN(TRIM(field1name)) > MLEN1
    STOR LEN(TRIM(field1name)) TO MLEN1
  ENDIF                               
  IF     LEN(TRIM(field2name)) > MLEN2
    STOR LEN(TRIM(field2name)) TO MLEN2
  ENDIF                               
  SKIP                                
ENDDO