added LSL2 stored procedures

LSL2/STPROC/FIX_CUSTOMER.txt

@@ -0,0 +1,36 @@
+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