CREATE CURSOR REINREQ (AGENT_CODE N(6),ACCOUNT N(20),POLICY C(25)) APPEND BLANK REPLACE ACCOUNT WITH 999999999999999 REPLACE POLICY WITH REPLICATE('D',25) LOCATE IF FOUND() SET FIELDS GLOBAL SET FIELDS TO AGENT_CODE, ACCOUNT=CAST(ACCOUNT AS C(9)); , POLICY=CAST(POLICY AS C(14)) BROWSE COPY TO SDFFILE TYPE SDF SET FIELDS TO MODIFY FILE SDFFILE.TXT ENDIF