AF

HomePage>>SourceCode>>BasicSource>>InfoLease

sample output:

:AF SUB.CONTRACTS

SUB.CONTRACTS         ***

IL.BPI                CONTRACTS
FILE(S)               CS.MASTER,CS.CONTRACTS
FIELD                 1
CHANGE LOG INDEX      97*0001
CHANGE LOG KEY        2300
MASK
CHANGE DESCRIPTION    Subcontracts


source code. (copy and paste this into your BP folder of choice, and compile and catalog it.)

***************************************************************************
* Program: TRIN.ATB.FAQ
* Author : mgc
* Date   : 06/25/2002
* Edited : 15:08:21 Jun 27 2002 By MGC     
* Comment: 
***************************************************************************
* Date       By   Desc
* ---------- ---- ---------------------------------------------------------
MSK="L#22"
ATB=""
ATB = FIELD(@SENTENCE," ",2)
PROMPT ""
OPEN "IL.TB.CHNG.LOG" TO IL.TB.CHNG.LOG ELSE STOP 201,"IL.TB.CHNG.LOG"
OPEN "IL.CHANGE.LOG.INDEX" TO IL.CHANGE.LOG.INDEX ELSE STOP 201,"IL.CHANGE.LOG.INDEX"
OPEN "REV.ATB.LOG" TO REV.ATB.LOG ELSE STOP 201,"REV.ATB.LOG"
SFLAG=""
IF ATB="" THEN 
  PROG="TRIN.ATB.FAQ" ; DESC =""
  *CALL SCREEN.HDR(PROG,DESC)
  PRINT;PRINT
  PRINT "ENTER ATB NAME: ": ; INPUT ATB
  SFLAG=1
END
READ AREC FROM REV.ATB.LOG,ATB ELSE
   LLL="" ; ATBREC="" ; TEST=""
   PRINT "ATB IS NOT IN REV.ATB.LOG"
   EXECUTE \SSELECT REV.ATB.LOG = "[\:ATB:\]"\ RTNLIST LLL
   CTR=0
   LOOP
     READNEXT ID FROM LLL ELSE EXIT
     CTR+=1
     PRINT CTR "L#4":ID
     ATBREC<CTR>=ID
     IF MOD(CTR,23)=0 THEN PRINT "press enter": ;INPUT TEST 
     IF UPCASE(TEST) = "Q" THEN EXIT
   REPEAT   
   PRINT 
   PRINT "ENTER CHOICE (1-":CTR:"): ": ; INPUT ANS
   IF ANS="" THEN STOP
   IF ANS="/" THEN STOP
   ATB=ATBREC<ANS>
   IF ATB="" THEN STOP
   READ AREC FROM REV.ATB.LOG,ATB ELSE STOP
END
MAXV=DCOUNT(AREC<5>,@VM)
FNAMES=""
FOR J=1 TO MAXV
  IF AREC<5,J>[1,2] # "BK" THEN   ;* EXCLUDE BK.BACKLOG CRAP
    FNAMES:= AREC<5,J>:",":AREC<6,J>:"  "
  END
NEXT J
*SWAP @VM WITH "," IN FNAMES
READV CKEY FROM IL.CHANGE.LOG.INDEX,AREC<24>,1 ELSE CKEY=""
READ [[CHNG_REC]] FROM IL.TB.CHNG.LOG,CKEY ELSE [[CHNG_REC]]=""
PRINT
PRINT ATB:"         ***"
PRINT
PRINT "IL.BPI" MSK:AREC<1>
PRINT "FILE(S)" MSK:FNAMES
PRINT "FIELD" MSK :AREC<2>
PRINT "CHANGE LOG INDEX" MSK:AREC<24>
PRINT "CHANGE LOG KEY" MSK:CKEY
PRINT "MASK" MSK:AREC<10>
PRINT "CHANGE DESCRIPTION" MSK:[[CHNG_REC]]<1>
IF AREC<32> # "" THEN 
  PRINT "COMMENTS" MSK:AREC<32>
  PRINT
END
PRINT 
IF SFLAG THEN PRINT "PRESS ENTER TO CONTINUE... ": ; INPUT TTT