Get parameter values from control card. 

Note :- Control Card consist of Program NO and ISSUED DATE 

 Initialize WS_POSTED-TRANS-AREA (Temporary Variable) and WS_DTL-TOTLS (Temporary Variable) by Zero.

 Note: - Above statement initialized fields by zeros so that it does not contain any junk value.

 Pass 1 to the WS_SUB (Temporary Variable).

Ø                     Pass zeros to the WS_VOUCHER-CNT-V (1 WS_SUB) (Temporary Variable).

Ø                     Pass zeros to the WS_VOUCHER-AMT-V (1 WS_SUB) (Temporary Variable).

Ø                     Increment WS_SUB (Temporary Variable) by 1.

Note:- It is a initialization of the two dimensional array WS_PAYMENT-VOUCHER-CNTS (Temporary Variable) which consists of the account number for that account number different group of people say as (teachers, state police etc) have different 12 kinds of amounts such as (WS_DEATH-AMT-B, WS_PAYEE-AMT-B etc ) for every account number. WS_SUB (Temporary Variable) is used as subscript whose value will be incremented by 1 after initializing current position by zero in order to initialize all 12 positions in array.

WS_SUB (Temporary Variable)   

Check If WS_SUB is NOT greater than 12.

If yes proceed to LOP-ZERO-2 (row # 4) and don’t come back here.

If above condition FAILS

Assign 2 to the WS_SUB (Subscript).

Note :- Assign numeric value ‘2’ to subscript WS_SUB (Temporary Variable) WS_SUB (Temporary Variable) values should not be greater that 12

(Continue with row #

Assign WS_VOUCHER-CNTS (1) (Temporary Variable) value to the WS_VOUCHER-CNTS (WS_SUB) (Temporary Variable).

Increment value of WS_SUB (subscript) by 1. 

WS_SUB (Temporary Variable)

Check If WS_SUB (Temporary Variable) not greater than 13 

Proceed to LOP-ZERO-3 and don’t come back here.

If above condition FAILS

Continue further with next step #12

Ø                               String ‘401.21’ is passed to WS_ACC-NO-V (1) (Temporary Variable).

Ø                               String ‘401. 01’ is passed to WS_ACC-NO-V (2) (Temporary Variable).

Ø                               String ‘401.02’ is passed to WS_ACC-NO-V (3) (Temporary Variable).

Ø                               String ‘401.03’ is passed to WS_ACC-NO-V (4) (Temporary Variable).

Ø                               String ‘401.04’ is passed to WS_ACC-NO-V (5) (Temporary Variable).

Ø                               String ‘401.06’ is passed to WS_ACC-NO-V (6) (Temporary Variable).

Ø                               String ‘410.05’ is passed to   WS_ACC-NO-V (7) (Temporary Variable).

Ø                               String ‘411.01’ is moved to  WS_ACC-NO-V (8) (Temporary Variable)

Ø                               String ‘411.02’ is moved to WS_ACC-NO-V (9) (Temporary Variable)

Ø                               String ‘331.01’ is moved to WS_ACC-NO-V (10) (Temporary Variable)

Ø                               String ‘212.19’ is moved to WS_ACC-NO-V (11) (Temporary Variable)

Ø                               String ‘212.22’ is moved to WS_ACC-NO-V (12) (Temporary Variable).

Note: -

Ø                   Account numbers are moved to the array field and later printed to the report file 5.4-UR-128- PRRJ065M – CANCEL RECREDIT ACCOUNT PAYMENT.

Ø                   1, 2, 3 …… till 12 is used as subscript that represent Row in WS_ ACC-NO-V (array).