CLOS DATA
USE LEADERS  INDE
LEADERI
REIN
*MELENCHK.TXT - fi
nd length
of longest t
PUBL MLEN1
PUBL MLEN2
STOR 0 TO MLEN1
STOR 0 TO MLEN2
GO TOP
DO WHIL .NOT. EOF(
)
IF     LEN(TRIM(
FIRST
)) > MLEN1
STOR LEN(TRIM(
)) TO MLEN1
ENDIF
LAST
)) > MLEN2
)) TO MLEN2
SKIP
ENDDO