added LSL2 stored procedures

LSL2/STPROC/FIX_SYSLISTS.txt

@@ -0,0 +1,138 @@
+COMPILE ROUTINE FIX_SYSLISTS(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList,Btree.Extract, Set_Status, Get_Status, ErrMsg
+
+
+$INSERT RLIST_EQUATES
+debug
+
+EQU TAB$ TO \09\
+
+
+OPEN 'SYSLISTS' TO SysListsTable ELSE
+	debug
+	GOTO Bail
+END
+
+
+SelectStatement = 'SELECT SYSLISTS BY @ID'
+
+RList(SelectStatement, TARGET_ACTIVELIST$, '','','')
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+	DEBUG
+	GOTO Bail
+END
+
+Done = 0
+
+YesterDay = Date() - 1
+
+Stations = ''
+StatSeqs = ''
+
+RecCnt = 0
+LOOP
+	READNEXT ListID ELSE Done = 1
+UNTIL Done 
+
+	Type = ListID[1,'*']
+	Stat = ListID[COL2()+1,'*']
+	User = ListID[COL2()+1,'*']
+	
+	*IF Type = 'T' AND Stat[1,11] = 'MESIRWAP001' AND User = 'DAVID_KL' THEN
+		
+		READ ListRec FROM SysListsTable,ListID THEN
+		
+			RecCnt += 1
+			RecLen = LEN(ListRec)
+			
+			*DELETE SysListsTable,ListID THEN
+				Send_Dyn(ListID:TAB$:RecLen)
+				Send_Info(ListID:' ':RecCnt)
+			*END
+			
+			
+		END
+	*END
+
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END
+
+
+/*
+
+BEGIN CASE
+				CASE ListID[1,2] = 'T*' 
+				
+					First	= ListID[1,'*']
+					Station	= ListID[COL2()+1,'*']
+					User	= ListID[COL2()+1,'*']
+					SeqNo	= ListID[COL2()+1,'*']
+					StatSeq = Station:'.':SeqNo
+					
+					Send_Dyn(First:TAB$:Station:TAB$:User:TAB$:SeqNo:TAB$:ListID)
+					
+					LOCATE Station IN Stations USING @FM SETTING Pos THEN
+						LOCATE StatSeq IN StatSeqs<Pos> BY 'AR' USING @VM SETTING ssPos ELSE
+							StatSeqs = INSERT(StatSeqs,Pos,ssPos,0,StatSeq)
+						END
+						
+						
+					END ELSE
+						Stations = INSERT(Stations,Pos,0,0,Station)
+						LOCATE StatSeq IN StatSeqs<Pos> USING @VM SETTING ssPos ELSE
+							StatSeqs = INSERT(StatSeqs,Pos,ssPos,0,StatSeq)
+						END
+						
+					END
+					
+					*Send_Dyn(StatSeqs)
+					
+				
+					
+				CASE ListID[1,2] = 'Q*'
+				
+					First	= ListID[1,'*']
+					Station	= ListID[COL2()+1,'*']
+					User	= ListID[COL2()+1,'*']
+				
+					Send_Dyn(First:TAB$:Station:TAB$:User:TAB$:TAB$:ListID)
+					
+					LOCATE Station IN Stations USING @FM SETTING Pos THEN
+						NULL
+					END ELSE
+						Stations = INSERT(Stations,Pos,0,0,Station)
+					END
+					
+					*DEBUG
+					
+				CASE ListID[1,2] = 'W*'
+					First		= ListID[1,'*']
+					Station		= ListID[COL2()+1,'*']
+					User		= ListID[COL2()+1,'*']
+					DtmStamp	= OCONV(ListID[COL2()+1,'*'],'DT4/^S')
+					
+					Send_Dyn(First:TAB$:Station:TAB$:User:TAB$:DtmStamp:TAB$:ListID)
+					
+				
+				CASE 1
+				
+							
+					*DELETE SysListsTable,ListID THEN
+						Send_Dyn(TAB$:ListID)
+					*END
+					
+			END CASE
+			
+			
+*/