Select NEW_BILLS LOCAL cPSFILEPATH as Character LOCAL cNEWPATH as Character Scan && Scans for New_bills up to EOF() *Define Variables cPSFILEPATH=Alltrim(oldpath) cNEWPATH=Alltrim(NEWPATH) DO Compress ENDSCAN PROCEDURE Compress PARAMETERS cPSFILEPATH,cNEWPATH Create Cursor BILLCOMPRESS (POS C(254)) && Create Temporary Cursor Billcompress to Check Page Numbers,Compressed File and Invoice Date. Select BILLCOMPRESS WAIT WINDOW cPSFILEPATH WAIT WINDOW cNEWPATH Append From (m.cPSFILEPATH) Sdf && Nothing is appeneded as I get .F. as value for cPSFILEPATH ENDPROC