added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_RDS_AUDIT.txt

@@ -0,0 +1,70 @@
+COMPILE ROUTINE TEST_OBJ_RDS_Audit(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Set_Status, obj_RDS_Audit, Send_Dyn, RList, Send_Info, obj_Tables
+DECLARE FUNCTION Get_Status, obj_RDS_Audit, obj_Tables
+
+$INSERT RDS_EQU
+
+Set_Status(0)
+
+EQU TARGET_ACTIVELIST$ TO 5
+
+
+OPEN 'RDS' TO FileIn ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'JCH_WORK' TO WorkFile ELSE
+	DEBUG
+	GOTO Bail
+END
+
+SELECT FileIn
+
+RecCnt = 0
+Done = 0
+LOOP
+	READNEXT RDSNo ELSE Done = 1
+UNTIL Done 
+	Set_Status(0)
+	
+	rtParms = 'RDS':@RM:RDSNo
+	RDSRecord = obj_Tables('ReadRec',rtParms)			;* Lock RDS
+	OrgLen = LEN(RDSRecord)
+	IF Get_Status(errCode) THEN
+		WRITE 'RDS Locked' ON WorkFile,RDSNo ELSE Null
+	END ELSE
+		RDSRecord<RDS_PRE_EPI_MOD_FIELD$>		= ''
+		RDSRecord<RDS_PRE_EPI_MOD_ID$>			= ''
+		RDSRecord<RDS_FIRST_WAFER_MOD_FIELD$>	= ''
+		RDSRecord<RDS_FIRST_WAFER_MOD_ID$>		= ''
+		RDSRecord<RDS_UNLOAD_MOD_FIELD$>		= ''
+		RDSRecord<RDS_UNLOAD_MOD_ID$>			= ''
+		RDSRecord<RDS_POST_EPI_MOD_FIELD$>		= ''
+		RDSRecord<RDS_POST_EPI_MOD_ID$>			= ''
+	END
+	
+	NewLen = LEN(RDSRecord)
+	
+	Delta = OrgLen - NewLen
+	IF Delta > 0 THEN
+		rtParms = FIELDSTORE(rtParms,@RM,4,0,RDSRecord)
+		obj_Tables('WriteRec',rtParms)
+	END ELSE
+		obj_Tables('UnlockRec',rtParms)
+	END
+	RecCnt += 1
+	
+	
+	Send_Info(RecCnt:' ':RDSNo:' Delta: ':OrgLen - NewLen)
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN