Minimum Balance

  • AMMAR.FAIDI
  • Topic Author
  • Offline
  • Elite Member
  • Elite Member
More
12 years 2 months ago #11368 by AMMAR.FAIDI
Minimum Balance was created by AMMAR.FAIDI
hi all

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

B.R

Please Log in or Create an account to join the conversation.

  • jpb
  • jpb's Avatar
  • Offline
  • Moderator
  • Moderator
  • TAFj-R20 - 'unix'
More
12 years 2 months ago #11372 by jpb
Replied by jpb on topic Re: Minimum Balance
Use Fxxx.ACCT.ACTIVITY to get MINIMUM(R.ACCT.ACT<IC.ACT.BALANCE>), key is accout-YYYYMM.

Please Log in or Create an account to join the conversation.

More
12 years 2 months ago #11412 by Valleyman1
Replied by Valleyman1 on topic Re: Minimum Balance
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

Please Log in or Create an account to join the conversation.

Time to create page: 0.069 seconds