https://pickwiki.org/index.php?action=history&feed=atom&title=AF
AF - Revision history
2026-04-29T01:00:42Z
Revision history for this page on the wiki
MediaWiki 1.43.0
https://pickwiki.org/index.php?title=AF&diff=1524&oldid=prev
Conversion script: link fix
2015-02-26T23:48:53Z
<p>link fix</p>
<p><b>New page</b></p><div>HomePage>>SourceCode>>BasicSource>>[[InfoLease]]<br />
<br />
<PRE><br />
sample output:<br />
<br />
:AF SUB.CONTRACTS<br />
<br />
SUB.CONTRACTS ***<br />
<br />
IL.BPI CONTRACTS<br />
FILE(S) CS.MASTER,CS.CONTRACTS<br />
FIELD 1<br />
CHANGE LOG INDEX 97*0001<br />
CHANGE LOG KEY 2300<br />
MASK<br />
CHANGE DESCRIPTION Subcontracts<br />
<br />
<br />
source code. (copy and paste this into your BP folder of choice, and compile and catalog it.)<br />
<br />
***************************************************************************<br />
* Program: TRIN.ATB.FAQ<br />
* Author : mgc<br />
* Date : 06/25/2002<br />
* Edited : 15:08:21 Jun 27 2002 By MGC <br />
* Comment: <br />
***************************************************************************<br />
* Date By Desc<br />
* ---------- ---- ---------------------------------------------------------<br />
MSK="L#22"<br />
ATB=""<br />
ATB = FIELD(@SENTENCE," ",2)<br />
PROMPT ""<br />
OPEN "IL.TB.CHNG.LOG" TO IL.TB.CHNG.LOG ELSE STOP 201,"IL.TB.CHNG.LOG"<br />
OPEN "IL.CHANGE.LOG.INDEX" TO IL.CHANGE.LOG.INDEX ELSE STOP 201,"IL.CHANGE.LOG.INDEX"<br />
OPEN "REV.ATB.LOG" TO REV.ATB.LOG ELSE STOP 201,"REV.ATB.LOG"<br />
SFLAG=""<br />
IF ATB="" THEN <br />
PROG="TRIN.ATB.FAQ" ; DESC =""<br />
*CALL SCREEN.HDR(PROG,DESC)<br />
PRINT;PRINT<br />
PRINT "ENTER ATB NAME: ": ; INPUT ATB<br />
SFLAG=1<br />
END<br />
READ AREC FROM REV.ATB.LOG,ATB ELSE<br />
LLL="" ; ATBREC="" ; TEST=""<br />
PRINT "ATB IS NOT IN REV.ATB.LOG"<br />
EXECUTE \SSELECT REV.ATB.LOG = "[\:ATB:\]"\ RTNLIST LLL<br />
CTR=0<br />
LOOP<br />
READNEXT ID FROM LLL ELSE EXIT<br />
CTR+=1<br />
PRINT CTR "L#4":ID<br />
ATBREC<CTR>=ID<br />
IF MOD(CTR,23)=0 THEN PRINT "press enter": ;INPUT TEST <br />
IF UPCASE(TEST) = "Q" THEN EXIT<br />
REPEAT <br />
PRINT <br />
PRINT "ENTER CHOICE (1-":CTR:"): ": ; INPUT ANS<br />
IF ANS="" THEN STOP<br />
IF ANS="/" THEN STOP<br />
ATB=ATBREC<ANS><br />
IF ATB="" THEN STOP<br />
READ AREC FROM REV.ATB.LOG,ATB ELSE STOP<br />
END<br />
MAXV=DCOUNT(AREC<5>,@VM)<br />
FNAMES=""<br />
FOR J=1 TO MAXV<br />
IF AREC<5,J>[1,2] # "BK" THEN ;* EXCLUDE BK.BACKLOG CRAP<br />
FNAMES:= AREC<5,J>:",":AREC<6,J>:" "<br />
END<br />
NEXT J<br />
*SWAP @VM WITH "," IN FNAMES<br />
READV CKEY FROM IL.CHANGE.LOG.INDEX,AREC<24>,1 ELSE CKEY=""<br />
READ [[CHNG_REC]] FROM IL.TB.CHNG.LOG,CKEY ELSE [[CHNG_REC]]=""<br />
PRINT<br />
PRINT ATB:" ***"<br />
PRINT<br />
PRINT "IL.BPI" MSK:AREC<1><br />
PRINT "FILE(S)" MSK:FNAMES<br />
PRINT "FIELD" MSK :AREC<2><br />
PRINT "CHANGE LOG INDEX" MSK:AREC<24><br />
PRINT "CHANGE LOG KEY" MSK:CKEY<br />
PRINT "MASK" MSK:AREC<10><br />
PRINT "CHANGE DESCRIPTION" MSK:[[CHNG_REC]]<1><br />
IF AREC<32> # "" THEN <br />
PRINT "COMMENTS" MSK:AREC<32><br />
PRINT<br />
END<br />
PRINT <br />
IF SFLAG THEN PRINT "PRESS ENTER TO CONTINUE... ": ; INPUT TTT<br />
</PRE></div>
Conversion script