added LSL2 stored procedures

LSL2/STPROC/FIX_NCR.txt

@@ -0,0 +1,187 @@
+COMPILE ROUTINE FIX_NCR(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info,RList, obj_WO_Mat, Activate_Save_Select
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT NCR_EQU
+$INSERT RDS_EQU
+$INSERT WO_MAT_EQUATES
+
+OPEN 'NCR' To FileIn ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'DICT.NCR' TO @DICT ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'WO_MAT' TO WOMatfile ELSE
+	DEBUG
+	GOTO Bail
+END
+
+DEBUG
+
+
+SelectSent = 'SELECT NCR BY WO_NO'
+
+RList(SelectSent,5,'','','')
+
+DEBUG
+
+Done = 0
+FixCnt = 0
+RecCnt = 0
+LOOP
+	READNEXT NCRNo ELSE Done = 1
+UNTIL Done 
+	RecCnt += 1
+	
+	READ NCRRec FROM FileIn,NCRNo THEN
+		WONo = NCRrec<NCR_WO_NO$>
+		
+		WORec = XLATE('WO_LOG',WONo,'','X')
+		
+		IF WORec = '' THEN
+			*DELETE FileIn,NCRNo THEN
+				FixCnt += 1
+				Send_Dyn(RecCnt:' ':FixCnt:' ':NCRNo:' ':WONo)
+			*END
+		END
+		
+	END
+REPEAT
+
+
+
+
+
+
+GOTO Bail
+
+SelectSent = 'SELECT NCR WITH DEPT_RESP = "Supplier" AND WITH LOSS_BY = "M"'
+
+RList(SelectSent,5,'','','')
+
+DEBUG
+
+Done = 0
+RecCnt = 0
+FixCnt = 0
+LOOP
+	READNEXT NCRKey ELSE Done = 1
+UNTIL Done
+	
+	RecCnt += 1
+	
+	READ NCRRec FROM FileIn,NCRKey THEN
+		LossBy = NCRRec<NCR_LOSS_BY$>
+		IF LossBy = 'M' THEN
+			NCRRec<NCR_LOSS_BY$> = 'C'
+		
+			WRITE NCRRec ON FileIn,NCRKey THEN
+				FixCnt += 1
+				Send_Dyn(RecCnt:' ':FixCnt:' ':NCRKey)
+			END
+		END
+	END
+REPEAT
+
+
+
+			
+
+GOTO Bail
+
+SelectSent = 'SELECT NCR WITH WO_NO > "128679" AND  WITH REACTOR_TYPE NE "P" '
+
+RList(SelectSent,5,'','','')
+
+DEBUG
+
+Done = 0
+RecCnt = 0
+FixCnt = 0
+LOOP
+	READNEXT NCRKey ELSE Done = 1
+UNTIL Done
+	IF NOT(NUM(NCRKey)) THEN DEBUG
+	RecCnt += 1
+	
+
+	READ NCRRec FROM FileIn,NCRKey THEN
+	
+		WriteFlag = 0
+		
+		WONo = NCRRec<62>
+		WOMatCassNo = NCRRec<64>
+		IF WONo NE '' AND WOMatCassNo NE '' THEN
+		     WOMatKey =  NCRRec<62>:'*': NCRRec<64>
+		END ELSE
+		     WOMatKey = ''
+		END
+		
+		IF WOMatKEy NE '' AND WOMatKEy NE '*' THEN
+			
+			READ WOMatRec FROM WOMatFile,WOMatKey THEN
+			
+				IF NCRRec<NCR_REJ_WAFER_ID$> = '' THEN
+					NCRSlotNos = ''
+					FOR N = 1 TO COUNT(NCRRec<NCR_SLOT_NO$>,@VM) + (NCRRec<NCR_SLOT_NO$> NE '')
+						IF NCRRec<NCR_SLOT_NO$,N> = 1 THEN NCRSlotNos<1,-1> = N
+					NEXT N
+				
+					SlotNos = ''
+					RejWfrIds = ''
+					FOR I = 1 TO 25
+						IF WOMatRec<WO_MAT_SLOT_NCR$,I> = NCRKey THEN
+							SlotNos<1,-1> = WOMatRec<WO_MAT_SLOT_NO$,I>
+							RejWfrIds<1,-1> = WONo:'.':WOMatCassNo:'.':WOMatRec<WO_MAT_SLOT_NO$,I>
+						END
+					NEXT I
+					
+					IF NCRSlotNos NE '' AND NCRSlotNos NE SlotNos THEN
+						Send_Dyn(WOMatKey:' ':NCRKey)
+						
+					END ELSE
+						NCRRec<NCR_SLOT_NO$> = SlotNos
+						NCRRec<NCR_REJ_WAFER_ID$> = RejWfrIds
+						
+						FixCnt += 1
+						WRITE NCRRec ON FileIn,NCRKey THEN
+							*Send_Dyn( 'NCR: ':NCRKey)
+							Send_Info(RecCnt)
+						END
+					END
+				END
+											
+				
+				
+					*WRITE WOMatRec ON WOMatFile,WOMatKey THEN
+						*FixCnt += 1
+						*Send_Dyn( WOMatKey:' ':WOMatRec<WO_MAT_NCR_KEYS$>)
+						*Send_Info(RecCnt)
+					*END
+				
+			END
+		END
+
+		
+	END
+
+REPEAT
+
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+