50 lines
729 B
Plaintext
50 lines
729 B
Plaintext
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<MFC_ASM_PN$> = '54-117817A02' THEN
|
|
IF MFCRec<MFC_OUTLET_PRESS$> NE 'ATM' THEN
|
|
RecCnt += 1
|
|
MFCRec<MFC_OUTLET_PRESS$> = 'ATM'
|
|
WRITE MFCRec ON FileIn,MFCKey THEN
|
|
Send_Dyn(RecCnt:' ':MFCKey)
|
|
END
|
|
END
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|