71 lines
1.9 KiB
Plaintext
71 lines
1.9 KiB
Plaintext
Function Test_Crisp4()
|
|
#pragma precomp SRP_PreCompiler
|
|
equ crlf$ to \0D0A\
|
|
$Insert LOGICAL
|
|
Declare function Replication_Services
|
|
Declare subroutine Database_Services
|
|
|
|
Open 'REPLICATION_QUEUE_LSL2_RDS' to TableHandle then
|
|
Select TableHandle
|
|
EOF = False$
|
|
Loop
|
|
ReadNext @ID else EOF = True$
|
|
Until EOF
|
|
If Not(Num(@ID)) and Not(Index(@ID, '%', 1)) then
|
|
Delete TableHandle, @ID then Null
|
|
end
|
|
Repeat
|
|
end
|
|
|
|
|
|
return
|
|
|
|
*
|
|
* Flag = ''
|
|
* RDSTestKeyIDs = ''
|
|
* RDSNo = ''
|
|
* hDictRDSTest = Database_Services('GetTableHandle', 'DICT.RDS_TEST')
|
|
* SearchString = 'RDS_NO' : @VM : RDSNo : @FM
|
|
* Btree.Extract(SearchString, 'RDS_TEST', hDictRDSTest, RDSTestKeyIDs, '', Flag)
|
|
* If Flag EQ 0 then
|
|
* If RDSTestKeyIDs NE '' then
|
|
* For Each RDSTestKeyID in RDSTestKeyIDs using @VM
|
|
* If Len(RDSTestKeyID) LT 7 then
|
|
* Database_Services('DeleteDataRow', 'RDS_TEST', RDSTestKeyID, True$)
|
|
* If Error_Services('NoError') then
|
|
* Results = RDSTestKeyID : ' deleted'
|
|
* end else
|
|
* Results = RDSTestKeyID : ' not deleted. Error : ' : Error_Services('GetMessage')
|
|
* end
|
|
* LogData<1> = LoggingDTM
|
|
* LogData<2> = Results
|
|
* Logging_Services('AppendLog', objLog2, LogData, @RM, @FM)
|
|
* end
|
|
* Next RDSTestKeyID
|
|
* end
|
|
* end
|
|
*
|
|
*
|
|
* return
|
|
*
|
|
* fileName = "d:\temp\Replication_keys.txt"
|
|
* open 'REPLICATION_QUEUE_LSL2_REACT_RUN' to REP_TABLE then
|
|
* select REP_TABLE
|
|
* done = 0
|
|
* report=''
|
|
*debug
|
|
* loop
|
|
* readnext @ID Else Done = 1
|
|
* until done
|
|
* read REC from REP_TABLE, @ID then
|
|
* report := REC<5>:crlf$
|
|
* end
|
|
* repeat
|
|
* end else
|
|
* return 'Open_Error'
|
|
* end
|
|
*
|
|
* OSWrite report To filename
|
|
*
|
|
* return
|