This doesn't seem to work in Carbon, but fine in standard basic. How do I
change this for Carbon?
LOCAL FN updateStr
'-------------------------------------
DIM res3hnl&,oldRefNum%,resfile%
oldRefNum%=FN CURRESFILE
resfile%=USR OPENRFPERM("customers",volRefNum%,_fsRdPerm)
res3hnl&=FN pGget1Res(_"STR#",_CustomersListSTR,resfile%)
LONG IF res3hnl&
CALL USERESFILE (gResRef)
FN pGreplaceRes(res3hnl&,_"STR#",_CustomersListSTR,"")
FN pGreplaceRes(res3hnl&,_"STR#",_CustomersList1STR,"")
END IF
CALL CLOSERESFILE (resfile%)
flushnm$="customers"
flerr%=FN pbFlushVol(flushnm$,volRefNum%)
CALL USERESFILE (oldRefNum%)
'---------------------------------------
END FN