https://pickwiki.org/index.php?action=history&feed=atom&title=TrinDeleteContractsTrinDeleteContracts - Revision history2026-04-28T23:42:58ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=TrinDeleteContracts&diff=2292&oldid=prevConversion script: link fix2015-02-26T23:48:56Z<p>link fix</p>
<p><b>New page</b></p><div>HomePage>>SourceCode>>BasicSource>>[[InfoLease]]<br />
<br />
This is an extremely dangerous program! Make sure you are in the right account, on the right machine, and you know what it is doing!<br />
<br />
It will take several seconds per contract, so be prepared for an evening or weekend run.<br />
<br />
<pre><br />
***************************************************************************<br />
* Program: TRIN.DELETE.CONTRACTS<br />
* Author : mcgowan<br />
* Date : 05/14/2002<br />
* Edited : 15:58:40 May 28 2002 By MCGOWAN <br />
* Comment:<br />
***************************************************************************<br />
* Date By Desc<br />
* ---------- ---- ---------------------------------------------------------<br />
<br />
OPEN 'LS.MASTER' TO LS.MASTER ELSE ABORT<br />
OPEN 'LS.MASTER,LS.BILLING' TO LS.BILLING ELSE ABORT<br />
OPEN 'CS.MASTER,CS.APPLICATIONS' TO CS.APPLICATIONS ELSE ABORT<br />
OPEN 'CS.MASTER,CS.CONTRACTS' TO CS.CONTRACTS ELSE ABORT<br />
OPEN 'TRIN.DELETE.CONTRACT.LOG' TO DELETE.LOG ELSE ABORT<br />
<br />
PRINT 'This program will *DELETE* all contracts in the save list DEL.CONTRACTS'<br />
PRINT 'Are you sure (Y[[/N]])':<br />
INPUT YORN<br />
IF YORN # 'Y' THEN STOP<br />
<br />
* Make sure there are no locks present<br />
PRINT 'Have all locks been cleared (YES[[/N]])':<br />
INPUT YORN<br />
IF YORN # 'YES' THEN STOP<br />
<br />
COMO=\DELETE.CONTRACTS.\:TIME()<br />
EXECUTE \COMO ON \:COMO<br />
<br />
E=\GET.LIST DEL.CONTRACTS\<br />
PRINT E<br />
EXECUTE E RTNLIST L1<br />
CTR=0 ; TOT.TM=0<br />
LOOP<br />
READNEXT CONTRACT FROM L1 ELSE EXIT<br />
T1=TIME()<br />
PRINT TIMEDATE():" ":CONTRACT:" deleting ":CTR<br />
GOSUB DELETE.CONTRACT<br />
PRINT TIMEDATE():" ":CONTRACT:" done"<br />
T2=TIME()<br />
CTR+=1<br />
TM=T2-T1<br />
TOT.TM+=TM<br />
PRINT TM:' seconds to delete, Average: ':TOT.TM[[/CTR]]<br />
REPEAT<br />
PRINT 'Done'<br />
EXECUTE \COMO OFF \:COMO<br />
STOP<br />
<br />
DELETE.CONTRACT:<br />
LESSOR=CONTRACT[1,3]<br />
SCHEDULE=CONTRACT[5,11]<br />
<br />
* 1 is for maintenance, 0 for inquiry<br />
DATA 1<br />
* Not sure what the next three are for<br />
DATA ""<br />
DATA ""<br />
DATA ""<br />
DATA LESSOR<br />
DATA SCHEDULE<br />
* "D" for delete<br />
DATA "D"<br />
* "Y", why yes I do want to delete<br />
DATA "Y"<br />
<br />
* If there are active assets there will be another question<br />
READV NUM.OF.ASSETS FROM LS.BILLING, CONTRACT, 9 ELSE STOP 'CANNOT READ LS.BILLING:':CONTRACT<br />
IF NUM.OF.ASSETS > 0 THEN<br />
PRINT "There are active assets"<br />
DATA "Y"<br />
END<br />
<br />
* If this is the last contract for this cust, there will be a question<br />
READV CCAN FROM LS.MASTER, CONTRACT, 13 ELSE STOP 'CANNOT READ LS.MASTER:':CONTRACT<br />
READ APP.REC FROM CS.APPLICATIONS, CCAN ELSE APP.REC=''<br />
READ POINTER.REC FROM CS.CONTRACTS, CCAN ELSE STOP 'CANNOT READ CS.POINTERS:':CCAN<br />
* The count includes active and disposed, and we need to check for apps<br />
CONTRACT.COUNT=DCOUNT(POINTER.REC<1>,@VM)+DCOUNT(POINTER.REC<2>,@VM)<br />
IF CONTRACT.COUNT = 1 THEN<br />
IF APP.REC<1> = "" THEN<br />
PRINT "This is the last contract, there are no apps"<br />
DATA "Y"<br />
END<br />
END<br />
<br />
* The final cut<br />
DATA ""<br />
<br />
EXECUTE \CMAINT.00\\<br />
<br />
RETURN<br />
</pre></div>Conversion script