Minimum Balance

hi all

how can i get the minimum balance in T24 during the MONTH

B.R

Check the following routine,you need to manipulate the dates for start so that it will not get data for years which you don't need.It is printing the id and the balance when an activity took place.


$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.ACCOUNT
$INSERT I_F.ACCT.ACTIVITY

GOSUB INIT
GOSUB OPENFILES
GOSUB PROCESS
INIT:
*

---

Y.AC.ID = ''
R.ACCOUNT = ''
Y.ACC.ERR = ''
FS.ACC ='F.ACCT.ACTIVITY'
FS = ''
RETURN

OPENFILES:
CALL OPF(FS.ACC,FS)
RETURN

PROCESS:
*

---

SEL.CMD = "SELECT ":FS.ACC
BAL = ''
STMT = ''
DEBUG
CALL EB.READLIST(SEL.CMD,SEL.LIST,'',NO.OF.REC,RET.CODE)
LOOP
REMOVE Y.ACC.ID FROM SEL.LIST SETTING POS
WHILE Y.ACC.ID:POS
CALL F.READ(FS.ACC,Y.ACC.ID,R.ACCOUNT,FS,Y.ACC.ERR)
MAX.I = DCOUNT(R.ACCOUNT<IC.ACT.BALANCE>,VM)
FOR I = 1 TO MAX.I
EVENT.BAL = R.ACCOUNT<IC.ACT.BALANCE,I>
IF EVENT.BAL < 150 THEN
I = MAX.I
END
CRT Y.ACC.ID
CRT EVENT.BAL
NEXT I


REPEAT
*
RETURN
END