loop at R_TABL_PR.
S_DMBTROST1 = R_TABL_PR-DMBTROST + S_DMBTROST1.
S_DMBTROSTKON1 = R_TABL_PR-DMBTROSTKON + S_DMBTROSTKON1.
* if ( S_DMBTROST1 < ITOG_DMBTROST_N ) and ( S_DMBTROSTKON1 < ITOG_DMBTROSTKON_N ) and ( S_DMBTROST1 < 30000000 ) and ( S_DMBTROSTKON1 < 30000000 ).
*
* S_DMBTROST = R_TABL_PR-DMBTROST + S_DMBTROST.
* S_DMBTROSTKON = R_TABL_PR-DMBTROSTKON + S_DMBTROSTKON.
* if R_TABL_PR-DMBTR < 1000000 and R_TABL_PR-DMBTROST < 1000000 and R_TABL_PR-DMBTRZABEZNDS < 1000000.
if ( S_DMBTR1 < ITOG_DMBTR_N ) and ( S_DMBTR1 < 30000000 ).
S_DMBTR1 = R_TABL_PR-DMBTR + S_DMBTR1.
PRNK_DMBTR = PRNK_DMBTR + R_TABL_PR-DMBTR.
PRNK_DMBTROST = PRNK_DMBTROST + R_TABL_PR-DMBTROST.
PRNK_DMBTRZABEZNDS = PRNK_DMBTRZABEZNDS + R_TABL_PR-DMBTRZABEZNDS.
PRNK_DMBTRZANDS = PRNK_DMBTRZANDS + R_TABL_PR-DMBTRZANDS.
PRNK_DMBTRSPIS = PRNK_DMBTRSPIS + R_TABL_PR-DMBTRSPIS.
PRNK_DMBTROSTKON = PRNK_DMBTROSTKON + R_TABL_PR-DMBTROSTKON.
delete R_TABL_PR.
continue.
else.
kol_st = kol_st + 1.
endif.
endloop.