Code: Select all
! function\merq_filterlist.brs
! Created on 05/05/2014
!
! fnmerq_filterlist - This Function ...
!
!
def fnmerq_filterlist$(mat f$,mat f,ParentKey$,prefix$,mat Subscripts$,mat S$,Mat USERDATA$)
Let N11$="PIC(--------.##)"
Let CR=REC(DATAFILE) : Let SR=sio_fld_Check
let fnmerq_Filterlist$="/#000000:#FFFFFF"
IF F$(REQ_REQEBF)="1" Then let fnmerq_Filterlist$="/#F02207:#FFFFFF"
LET AMT=VAL(F$(REQ_REQTAM))
LET F$(REQ_REQTAM)=CNVRT$(N11$,AMT)
LET C=C+1 : LET PASSEDDATA$(C)=LPAD$(STR$(CR),10,"0")&F$(REQ_REQPON)&F$(REQ_REQBYR)
Merq_FilterList_Done: !
fnend