*/////////////////////////. DEFINE !offset (test1=!TOKENS(1) /test2=!TOKENS(1) /id=!TOKENS(1) /date=!TOKENS(1)) /* To delete claims whose amount submitted have been reversed */ COMPUTE abs_1=ABS(!test1). COMPUTE abs_2=ABS(!test2). * Identify offset cases. SORT CASES BY !id !date !test1 abs_1 !test2 abs_2. COMPUTE id_no=$CASENUM. IF (!id=LAG(!id) AND !date=LAG(!date) AND !test1=-lag(!test1) AND !test2=-lag(!test2)) flag=1. * Identify case being offset. SORT CASES BY id_no(D). IF LAG(flag)=1 flag2=1. COMPUTE flag3=SUM.1(flag,flag2). EXECUTE. TEMPORARY. SELECT IF flag3>0. LIST cert age sexe !date din soumis net. * Select only records you want to keep then clean file. SELECT IF MISSING(flag3). MATCH FILES FILE=* /DROP=abs_1 id_no flag flag2 flag3. EXECUTE. !ENDDEFINE. */////////////////////////. RESTORE.