NOFILE

LD.LOANS.AND.DEPOSITS,FB.HB.DISCLN.TPT LD.LOANS.AND.DEPOSITS,FB.HB.DISCLN.TPT LD.LOANS.AND.DEPOSITS,FB.HB.DISCLN.SG LD.LOANS.AND.DEPOSITS,AAB.CN.BRIDGE.UE.SCH.LN

0004 SUBROUTINE FBN.E.NOFILE.HB.STMT(D FBN.E.NOFILE.HB.STMT(DATA.ARRAY) ATA.ARRAY) 0005 0006 ************************* ********************************************** ********************* 0007 * Company Name : ABN amro Bank 0008 * Developed By : Temenos Application Management 0009 * ODR Reference : ODR-2012-04-0077 0010 * QC Reference : QC 3690 0011 *-----------------------*---------------------------------------------------------------------------------------------------------------------------------------------------------0012 * Program Name : FBN.E.NOFILE.HB.STMT 0013 * Author : Felcia 0014 * Description : This routine is attached to the STANDARD.SELECTION re cord NOFILE.FB.HB.STMT. 0015 * The enquiry will have a Selection criteria's as trans action reference (only FT ID) and Booki 0016 * Transaction reference is made as mandatory to bring u p all the statement entries pertaining 0017 * the FT transaction based on the particular booking da te given by the user. 0018 * In Parameter : 0019 * Out Parameter : 0020 *-----------------------*---------------------------------------------------------------------------------------------------------------------------------------------------------0021 * Modification Hisotry 0022 *--------------------0023 * Reference Date Name Change Description 0024 * ------------ ----------- -------- ----------------------------------------------------------------------------------------------------0025 * 0026 * 0027 ************************* ************************************************* ************************************************* ************************** * ******************************* 0028 * Insert Files 0029 0030 $INSERT I_COMMON 0031 $INSERT I_EQUATE 0032 $INSERT I_ENQUIRY.COMMON 0033 $INSERT I_F.STMT.ENTRY 0035 * Locates the position of the selection fields and the values given in them  during online enquiry 0036 0037 0038 LOCATE "TRANSACTION.REF" IN D.FIELDS SETTING TRANS.POS THEN 0039 TRANS.REF = D.RANGE.AND.VALUE NS.POS> 0040 END 0041 0042 LOCATE "BOOKING.DATE" IN D.FIELDS SETTING DATE.POS THEN 0043 BOOKING.DATE = D.RANGE.AND.VALUE .POS> 0044 END 0045 0046 BOOK.DATE.BKP = BOOKING.DATE 0047 0048 CHANGE SM TO FM IN TRANS.REF

0049 0050 0051 0052 0053 0054 0055 0056 0057 0058 0059 0060 0061 0062 0063 0064 0065 0067 0068 0069 0070 0071 0072 0073 0074 0075 0076 0077 0078 0079 0080 0081 0082 0083 0084 0085 0086 0087 0088 0089 0090 0091 0092 0093 0094 0095 0096 0097 0098 0099 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109

CHANGE SM TO FM IN BOOKING.DATE

;* TUT1283283

TRANS.CNT = DCOUNT(TRANS.REF,FM) GOSUB INITIALISE GOSUB BKP.FIELDS GOSUB PROCESS RETURN *---------INITIALISE: *---------ENTRY.IDS = '' STMT.LIST = '' FN.STMT.ENTRY = 'F.STMT.ENTRY' F.STMT.ENTRY = '' R.STMT.ENTRY = '' STMT.ERR = '' RETURN *-----------------BKP.FIELDS: *------------------

BKP.D.FIELDS = D.FIELDS BKP.D.LOGICAL.OPERANDS = D.LOGICAL.OPERANDS BKP.D.RANGE.AND.VALUE = D.RANGE.AND.VALUE D.FIELDS = '' D.LOGICAL.OPERANDS = '' D.RANGE.AND.VALUE = '' LOOP REMOVE Y.TRANS.REF FROM TRANS.REF SETTING Y.TRANS.POS WHILE Y.TRANS.REF:Y.TRANS.POS IF Y.TRANS.REF[1,2] EQ 'FT' THEN GOSUB GET.STMT.ENTRY.IDS END ELSE ETEXT = 'EB-FT.NO.ALLOW' ENQ.ERROR = ETEXT END REPEAT D.FIELDS = BKP.D.FIELDS D.LOGICAL.OPERANDS = BKP.D.LOGICAL.OPERANDS D.RANGE.AND.VALUE = BKP.D.RANGE.AND.VALUE ENTRY.IDS.LIST = STMT.LIST.ARR GOSUB PROCESS RETURN *------------------

0110 GET.STMT.ENTRY.IDS: 0111 *-----------------0112 0113 D.FIELDS<1> = "TRANSACTION.REF" 0114 D.LOGICAL.OPERANDS<1> = "1" 0115 D.RANGE.AND.VALUE<1> = Y.TRANS.REF 0116 0117 O.DATA = Y.TRANS.REF 0118 0119 STMT.LIST = '' 0120 0121 CALL E.TXN.ENTRY(STMT.LIST) 0122 0123 STMT.LIST.ARR<-1> = STMT.LIST 0124 RETURN 0125 0126 *-------0127 PROCESS: 0128 *-------01290130 CNT.DATE = DCOUNT(BOOK.DATE.BKP,SM) 0131 0132 LOOP 0133 REMOVE Y.ENTRY.ID FROM ENTRY.IDS.LIST SETTING ENTRY.POS 0134 WHILE Y.ENTRY.ID:ENTRY.POS 0135 0136 GOSUB CLEAR.VALUES 0137 0138 ENTRY.ID = FIELD(Y.ENTRY.ID,'*',1) 0139 ENT.ID = ENTRY.ID[1,1] 0140 STMT.ID = ENTRY.ID[2,99] 0141 O.DATA = ENTRY.ID 0142 0143 IF ENT.ID EQ 'S' THEN 0144 0145 CALL E.TXN.ENTRY.FILL ;* Reads the Stmt.entry Record 0146 0147 GOSUB GET.VALUES 0148 BOOKING.DATE = BOOK.DATE.BKP 0149 CHANGE SM TO FM IN BOOKING.DATE 0150 GOSUB CHECK.BOOKING.DATE 0151 0152 END 0153 0154 REPEAT 0155 0156 RETURN 0157 0158 *---------------0159 CLEAR.VALUES: 0160 *---------------0161 0162 O.DATA = '' 0163 ENTRY.ID = '' 0164 ENT.ID = '' 0165 STMT.ID = '' 0166 0167 RETURN 0168 0169 *----------0170 GET.VALUES:

0171 0172 0173 0174 0175 0176 0177 0178 0179 0180 0181 0182 0183 0184 0185 0186 0187 0188 0189 0190 0191 0192 0193 0195 0196 0197 0198 0199 0200 0201 0202 S 0203 0204 0205 0206 0207 0208 0209 0210 0211 0212 0213 0214 0215 0216 0217 0218 0219 0220 0221 0222 0223 0224 0225 0226 0227 0228 0229 0230

*----------CONSOL.ENT = R.RECORD TRANS.REF = R.RECORD CUS.ID = R.RECORD BOOK.DATE = R.RECORD VAL.DATE = R.RECORD STMT.CCY = R.RECORD AMT.FCY = R.RECORD AMT.LCY = R.RECORD TRANS.CODE = R.RECORD ACCOUNT.NO = R.RECORD STMT.ENT.ID = ENTRY.ID RETURN *-----------------CHECK.BOOKING.DATE: *-----------------**

IF CNT.DATE EQ '1' THEN

** ** **

IF BOOK.DATE.BKP EQ BOOK.DATE THEN END END ELSE

** TUT1283283 - START LOOP REMOVE BOOKING.DATES FROM BOOKING.DATE SETTING BOOKING.DATES.PO WHILE BOOKING.DATES:BOOKING.DATES.POS DATE.BKP<-1> = BOOKING.DATES OPERAND = D.LOGICAL.OPERANDS<2> GOSUB CHECK.FOR.RANGE IF FLAG = 1 THEN EXIT END ELSE GOSUB CHECK.FOR.MULTIPLE.DATES END REPEAT ** TUT1283283 - END **

END

RETURN *-------------------CHECK.FOR.RANGE: *---------------------IF OPERAND EQ '2' THEN BOOK.DATE.BKP = SORT(BOOK.DATE.BKP) START.DATE = FIELD(BOOK.DATE.BKP,FM,1) END.DATE = FIELD(BOOK.DATE.BKP,FM,2) IF BOOK.DATE GE START.DATE AND BOOK.DATE LE END.DATE THEN

0231 GOSUB WRITE.ARRAY 0232 FLAG = 1 0233 END 0234 END 0235 0236 RETURN 0237 0238 *-----------------------0239 CHECK.FOR.MULTIPLE.DATES: 0240 *-----------------------0241 0242 IF BOOKING.DATES EQ BOOK.DATE THEN 0243 GOSUB WRITE.ARRAY 0244 END 0245 0246 RETURN 0247 0248 *-----------------0249 WRITE.ARRAY: 0250 *----------------0251 DATA.ARRAY<-1> = CONSOL.ENT:"*":TRANS.REF:"*":CUS.ID:"*":BOOK.DATE:"*": VAL.DATE:"*":STMT.CCY:"*":AMT.FCY:"*":A 0252 RETURN 0253 0254 END