COMPILE ROUTINE FIX_CUSTOMER(Dummy)
ROWDEF (CHARSTR)

DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList, obj_Schedule, Btree.Extract, Set_Status, Get_Status


$INSERT SCHEDULE_EQU
$INSERT INVOICE_EQU


OPEN 'CUSTOMER' TO CustomerTable ELSE
	Send_Info('Puked on CUSTOMER table open.')
	GOTO Bail
END

SELECT CustomerTable


Done = 0

LOOP
	READNEXT CustNo ELSE Done = 1
UNTIL Done
	IF NOT(NUM(CustNo)) THEN DEBUG
	Send_Dyn(CustNo)



REPEAT
	

* * * * * * *
Bail:
* * * * * * *

END