Jess,

One last thing. I put the code as you suggested, and it came back with table in use or file in use. And is there a way that
I can let the user know with a message "data is being updated" the progress bar causes to many problems.

John

SET DEFAULT TO \EFG
SET SAFETY OFF
SET TALK OFF
SET ECHO OFF
SET DELETED ON

USE pay IN 0
SCAN FOR ins_co_nam = "AMERICAN UNITED LIFE" AND group_code = 'A01'

REPLACE paiddate WITH THISFORM.TEXT1.VALUE,;
fromdate WITH THISFORM.TEXT2.VALUE,;
todate WITH THISFORM.TEXT3.VALUE,;
servfee WITH .69

REPLACE balance WITH amt_pre - servfee,;
duecompany WITH balance posted with "P"

REPLACE servfee WITH 0, percent WITH 0

ENDSCAN

SELECT * FROM test, pay WHERE test.ss_numb = pay.ssnumber AND pay.ins_co_nam;
= "AMERICAN UNITED LIFE" AND pay.group_code = "A01" and AMT_PRE > 1 INTO Cursor;
CuReport ORDER BY test.last_name

IF _TALLY > 0

*BROWSE
REPORT FORM payment3b PREVIEW

inResponse = MESSAGEBOX("Do you want to post this data For A01 AUL?",36,"E.F.G. POSTING OPTIONS!")

IF InResponse = 6

***LOCAL loProgBar
SELECT pay
***loProgBar=ProgBar()

SCAN FOR GROUP_CODE = "A01" .AND. INS_CO_NAM = "AMERICAN UNITED LIFE"

*** loProgBar.npercent=RECNO()/RECCOUNT()*100
SCATTER MEMVAR MEMO
INSERT INTO hist FROM MEMVAR

ENDSCAN
ENDIF
ELSE
MESSAGEBOX("FOUND NO RECORDS THAT MATCH YOUR REQUEST")
ENDIF