Form Definition
Program TransactionsApproval  File Name: MM0319.HLa

…
010 Field1 – Customer ID
011 Field2 – Customer First Name
012 Field3 – Customer Last Name
013 Field4 (list) – Account Number
014 Field5 (list) – Account Type
015 Field6 (list) – Account Balance
…
Program
Program TransactionsApproval  File Name: MM0245.HLa

Program begin
…..
100 // Definitions of variables mapable to the form fields
101 Define Cust_ID(Char 20)
102 Define Cust_FName (Char 25)
103 Define Cust_LName (Char 35)
104 Define Acc_Numb(Char 12)[10]
105 Define Acc_Type(Char 2)[10]
106 Define Acc_Balance(Currency)[10]
107
108 // Definition of other variables
109 Define Bal(Currency)
110 Define Ind(Integer)
111 Define AdjustedBal(Currency)
112 Define ApproveTrans(Boolean)
113 Define Allowance(Currency)
…..

150 // Populating variables entered in the form
151 Field1 -> Cust_ID
152 Field2 -> Cust_FName
153 Field3 -> Cust_LName
154 Field4[1] -> Acc_Numb[0]
155 Field5[1] -> Acc_Type[0]
156 Field6[1] -> Acc_Balance[0]
157 Field4[2] -> Acc_Numb[1]
158 Field5[2] -> Acc_Type[1]
159 Field6[2] -> Acc_Balance[1]
…
200 // Processing
201 Allowance = $100.00  // The allowance shall be calculated for each customer
202 Ind =1
203 Bal = Acc_Balance[Ind – 1]
204 AdjustedBal = Bal + Allowance
…
240 If(AdjustedBal > $1000.00) 
241	Then ApproveTrans = True
242	Else ApproveTrans = False

…
Program end