added LSL2 stored procedures

LSL2/STPROC/FIX_CUST_EPI_PART.txt

@@ -0,0 +1,64 @@
+COMPILE ROUTINE FIX_CUST_EPI_PART(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
+DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT CUST_EPI_PART_EQUATES
+$INSERT COMPANY_EQU
+$INSERT PROD_SPEC_EQU
+$INSERT EPI_PART_EQUATES
+
+OPEN 'CUST_EPI_PART' TO CEPTable  ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+
+SELECT CEPTable
+
+
+DEBUG
+
+RecCnt = 0
+Done = 0
+LOOP
+	READNEXT CEPKey ELSE Done = 1
+UNTIL Done
+	
+	CustNo = CEPKey[1,'*']
+	EpiPn	= CEPKey[COL2()+1,'*']
+	
+	DefBagInst = 'Tape/PE Bag/TriLam Alum'
+	
+		READ CEPRec FROM CEPTAble,CEPKey Then						;* Find all the CUST_NO keys for the CUST_NO entered 
+		
+			IF CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$> NE DefBagInst THEN
+		
+			CEPRec<CUST_EPI_PART_SHIP_BAG_REQ$>	= DefBagInst
+			
+			*WRITE CEPRec ON CEPTable,CEPKey THEN					;* Remove the remark when ready to actually write to the CUSTNO record.
+				Send_Dyn(CEPKey)
+			*END													;* Remove the remark when ready to actually write to the CUSTNO record.
+		
+			
+			
+		END															;* End of record read									
+
+	END																;* End of check for customer no								
+	
+REPEAT
+
+GOTO Bail
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+
+
+END