COMPILE ROUTINE FIX_MFC(Dummy) ROWDEF(CHARSTR) DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info DECLARE FUNCTION Get_Status, Set_Printer $INSERT MFC_EQUATES OPEN 'MFC' To FileIn ELSE DEBUG GOTO Bail END Select FileIn Done = 0 RecCnt = 0 LOOP READNEXT MFCKey ELSE Done = 1 UNTIL Done READ MFCRec FROM FileIn,MFCKey THEN WriteFlag = 0 IF MFCRec = '54-117817A02' THEN IF MFCRec NE 'ATM' THEN RecCnt += 1 MFCRec = 'ATM' WRITE MFCRec ON FileIn,MFCKey THEN Send_Dyn(RecCnt:' ':MFCKey) END END END END REPEAT IF Get_Status(errCode) THEN DEBUG * * * * * * * Bail: * * * * * * *