140 lines
2.6 KiB
Plaintext
140 lines
2.6 KiB
Plaintext
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
|
|
|
|
|
|
*/
|
|
|