i am doing academic project on mainframes.so i need code for online
requirements are
01 appln-record
05 customer number x(10) primarykey
10 name
15 first-name x(20)
15last-name x(20)
10 address
15addr-line1 X(30)
15addr-line2 x(30)
10pincode 9(6)
10 dob 9(8)
10 filler
15 dob-ccyy 9(4)
15dob-mm 9(2)
15 dob-dd 9(2)
10 act-loan-amt 9(8)
10act-repay-period 9(3)
10 emi-amount 9(7)comp3
10 loan-date 9(8)
10 filler redefines loan-date
15 loan--ccyy 9(4)
15 loan-mm 9(2)
15 loan-dd 9(2)
10 loan-status 9(1)
05 customer number x(10) primarykey
10 name
15 first-name x(20)
15last-name x(20)
10 address
15addr-line1 X(30)
15addr-line2 x(30)
10pincode 9(6)
10 dob 9(8)
10 filler
15 dob-ccyy 9(4)
15dob-mm 9(2)
15 dob-dd 9(2)
10 act-loan-amt 9(8)
10act-repay-period 9(3)
10 emi-amount 9(7)comp3
10 loan-date 9(8)
10 filler redefines loan-date
15 loan--ccyy 9(4)
15 loan-mm 9(2)
15 loan-dd 9(2)
10 loan-status 9(1)
bhagavanreddy