Scribd
Upload
3 views4 pages

Code

The document contains a code snippet that appears to be part of a loan processing program. It includes various conditional statements and data manipulations related to loan accounts, such as moving account details, calculating monthly payments, and updating loan records. The code also handles user input and displays relevant information through different formats.

Uploaded by

Mohan Raj
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
3 views4 pages

Code

The document contains a code snippet that appears to be part of a loan processing program. It includes various conditional statements and data manipulations related to loan accounts, such as moving account details, calculating monthly payments, and updating loan records. The code also handles user input and displays relevant information through different formats.

Uploaded by

Mohan Raj
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

0011.

00 C hloan1 begsr

0012.10 c *in12 doweq *off

0012.11 C setoff 30

0012.12 C clear hlex

0012.13 C exfmt hlex

0012.14 C loop tag

0012.15 C move accno1 accno

0012.16 c accno1 chain hloan01 40

0012.17 C *in40 ifeq '1'

0012.18 C seton 30

0012.19 C exfmt hlex

0012.20 C *in07 ifeq *ON

0012.21 C move haccount ac1

0012.22 C move MOD p_1

0012.24 C exfmt hlN3

0012.25 C *in01 IFeq *ON

0012.26 C *in12 DOWeq *OFF

0012.27 C exfmt bnkhelp

0012.28 C enddo

0012.29 C exfmt hlN3

0012.30 C endif

0012.31 C

0012.32 C *in08 IFeq *ON

0012.33 C DOW *IN12=*OFF

0012.34 C* MOVE accno1 AC1

0012.35 C exfmt hlN6

0012.36 C *IN09 IFEQ *ON

0012.37 C Z-ADD 0 A 10 0
0012.38 C EVAL A=((LAMOUNT*(IRATE/100))+LAMOUNT)/LOANPER

0012.39 C MOVE A MONTHPAY

0012.40 C exfmt hlN6

0012.42 C ENDIF

0012.43 C *IN10 IFEQ *ON

0012.44 C MOVE BNO_1 BNO

0012.45 C move ac1 accno

0012.46 C move name_1 name

0012.47 C move ssno_1 ssno

0012.48 C move TAXID_1 TAXID

0012.49 C move DOB_1 dob

0012.50 C move ADDRESS_1 ADDRESS

0012.51 C move CITY_1 CITY

0012.52 C move STATE_1 STATE

0012.53 C move AINCOME_1 AINCOME

0012.54 C move MNO_1 MNO

0012.55 C move OFFNO_1 OFFNO

0012.56 C move RESNO_1 RESNO

0012.57 C move SALARY_1 SALARY

0012.58 C move EMPID_1 EMPID

0012.59 C move COMPNAME_1 COMPNAME

0012.60 C move DESIG_1 DESIG

0012.61 C move p_1 MODE

0012.62 C MOVE *DATE LPDATE

0012.63 C MOVE *DATE LDDATE

0012.64 C MOVE MONTHPAY DUEAMT

0012.65 C MOVE MONTHPAY LPAY

0012.66 C EVAL NDDATE=%DATE() + %MONTHS(1)


0012.67 C write hloan01

0012.68 C exfmt win01

0012.69 C eval id=(((id+100)/5)+5)

0012.70 C endif

0012.71 C clear hln6

0012.72 C endDO

0012.73 C endif

0012.74 C eval *in12=*off

0012.75 C move haccount ac1

0012.76 C move MOD P_1

0012.77 C exfmt hlN5

0012.78 C ENDIF

0012.79 C *in05 ifeq *on

0012.80 C clear hlex

0012.81 C exfmt hlex

0012.82 C goto loop

0012.83 C endif

0012.84 C

0012.85 C else

0012.86 C *in40 ifeq '0'

0012.87 C seton 30

0012.88 C move accno1 ac1

0012.89 C move MOD P_1

0012.90 C exfmt hln5

0012.91 C endif

0012.92 C *in05 ifeq *on

0012.93 C seton 30

0012.94 C clear hlex


0012.95 C exfmt hlex

0012.96 C endif

0012.97 C endif

0012.98 C

0012.99 C *in08 IFeq *ON

0013.00 C DOW *IN12=*OFF

0013.01 C* MOVE ENQURY AC1

0013.02 C exfmt hlN4

0013.03 C *IN11 IFEQ *ON

0013.20 C UPDATE hloan01

0013.21 C endif

0013.22 C endDO

0013.23 C eval *in12=*off

0013.24 C exfmt hlN5

0013.25 C ENDIF

0013.26 c

0013.28 C enddo

0013.29 C

0014.39 C

0014.40 C endsr

You might also like