Column1(1)              Content1   <--- First column, first row of data
Column2(1)              Content2
Column3(1)              Content3
Column1(2)              Content4   <--- First column, second row of data
Column2(2)              Content5
etc etc

/* -------------------------------------------------------------------------
 * Compares 2 files.
 * result = compare(filename1, filename2,<option>)
 *
 * filename1 =	The name of the first file.
 * filename2 =	The name of the second file.
 * Returns   : 0 if files are the same 
 *           > 0  files are not equal, if DETAILS option is
 *                defined, the position where the first difference
 *                occurs is returned     
 * option    : undefined, just difference is identified. This means
 *             different lengths lead immediately to a not equal 
 *             situation, without an identification where it occurs.   
 * DETAILS     file is compared even if length differ, the exact 
 *             position of difference is returned
 * ---------------------------------------------------------------------- */
compare: PROCEDURE
PARSE ARG file1, file2, option
rc1=STREAM(file1, 'C', 'OPEN READ')
rc2=STREAM(file2, 'C', 'OPEN READ')
IF rc1 == 'READY:' & rc2 == 'READY:' THEN rc=filecompare(option)
   ELSE rc=1
STREAM(file1, 'C', 'CLOSE')
STREAM(file2, 'C', 'CLOSE')
RETURN rc
/* -----------------------------------------------------------------------
* ---------------------------------------------------------------------- */
filecompare:
PARSE ARG details
/* Get the sizes of both files */
l1 = CHARS(file1)
l2 = CHARS(file2)
/* Do the sizes match? If not, then the files can't be the same */
IF details \= 'DETAILS' THEN IF l1 \= l2 THEN RETURN 8
/* They're the same size, so now we have to compare the actual
 * contents.
 */
rlen = 64000
IF rlen > l1 THEN rlen = l1
ctr = 0
DO UNTIL l1 < 1
   ctr = ctr + 1
   f1 = CHARIN(file1,,rlen)
   f2 = CHARIN(file2,,rlen)
/*	Read error before EOF */
   IF f1 == '' THEN RETURN l1 
   IF f2 == '' THEN RETURN l1
   IF f1 \= f2 THEN RETURN l1 
   l1 = l1 - rlen
END
/* They're the same */
RETURN 0

file1='C:\Temp\Temp1.txt'
file2='C:\Temp\Temp2.txt'
SAY  clcl(file1,file2) 'result'
DO i=1 TO differences.0
   SAY i differences.i
   IF i>100 THEN LEAVE
END
EXIT 
/* -------------------------------------------------------------------------
 * Compares 2 files.
 * result = compare(filename1, filename2,<option>)
 *
 * filename1 =	The name of the first file.
 * filename2 =	The name of the second file.
 * Returns   : 0 if files are the same 
 *           > 0 files are not equal, if DETAILS option is
 *               defined, the position where the first difference
 *               occurs is returned     
 * ---------------------------------------------------------------------- */
clcl: PROCEDURE EXPOSE differences.
PARSE ARG file1, file2
rc1=STREAM(file1, 'C', 'OPEN READ')
rc2=STREAM(file2, 'C', 'OPEN READ')
IF rc1 == 'READY:' & rc2 == 'READY:' THEN rc=fileclcl()
   ELSE rc=1
STREAM(file1, 'C', 'CLOSE')
STREAM(file2, 'C', 'CLOSE')
RETURN rc
/* -----------------------------------------------------------------------
 * String Compare 
 * ---------------------------------------------------------------------- 
 */
fileclcl:
/* Get the sizes of both files */
l1 = CHARS(file1)
l2 = CHARS(file2)
rlen = 16000
IF rlen > l1 THEN rlen = l1
mismatchctr = 0
offset=0
clcrc=0
DO UNTIL l1 < 1
   f1 = CHARIN(file1,,rlen)
   f2 = CHARIN(file2,,rlen)
   IF f1 \= f2 THEN clcrc=clcdetails(offset)
   l1 = l1 - rlen
   offset=offset+rlen
END
/* They're the same */
RETURN clcrc
/* -----------------------------------------------------------------------
 * String Compare 
 * ---------------------------------------------------------------------- 
 */
clcdetails:
PARSE ARG foffset
len1=LENGTH(f1)
len2=LENGTH(f2)
IF len1>len2 THEN count=len1
   ELSE count=len2
DO ci=1 TO count
   IF SUBSTR(f1,ci,1) \= SUBSTR(f2,ci,1) THEN DO
      mismatchctr = mismatchctr+1
      differences.mismatchctr=foffset+ci
      differences.0=mismatchctr
   END
END
RETURN 8