Подскажите как сделать: если n >= 10 к = 1, после каждой проверки условия n >= 10, к должно увеличиваться на 1.

причем после того как станет k = 10 оно должно принять значение 1 и снова отрабатываться до 10

k = o.
while n>=10.
...............
k = k + 1.
endwhile.

data: p.
clear p.


.....
if p is initial.
if n>= 10 and k = 1.
p = 'X'.
endif.
endif.
if N >= 10 and not p is initial.
add 1 to k.
endif.

data: p.
clear p.


.....
if p is initial.
if n>= 10 and k = 1.
p = 'X'.
endif.
endif.
if N >= 10 and not p is initial.
add 1 to k.
endif.
if k = 10.
k = 1.
endif.

сорри

if k = 10.
k = 1. CLEAR P.
endif.

k = o.
while n>=10.
...............
k = k + 1.
if k = 10.
k = 0.
endif.
n = ...
endwhile.

( Если это продолжении истории с пролистыванием )

Может вы закачаете своих дебиторов без всякого пролистывания. Наверняка их у вас достаточное количество, а таких которые имеют по 10 и более банков возможно и не так уж много? А то что не закачали добъете руками! Похоже у вас дефицит времени, а вы зациклились на этой проблеме.

... ну и может все-таки сможете куда-нить прикрутить это:

n = 0. k = 0.
do 100 times.
n= n + 1.
if n >= 10.
k = k + 1.
n = 0.
endif.
enddo.

IMHO Если это продолжении истории с пролистыванием, то это безнадежно, даже всем форумом нельзя за один день программированию научить

зРЯ ТЫ ТАК ПЧЕЛКА, ИСТОРИЯ С ПРОЛИСТЫВАНИЕМ РЕШАЕТСЯ ПРОЩЕ ПРОСТОГО, НА CALL TRANSACTION СТАВИТЬСЯ УСЛОВИЕ DEFSIZE, СТАНДАРТНЫЙ РАЗМЕР ОКНА, ЭТО ДАЕТ ОТОБРАЖЕНИЕ 10 СТРОК ПОД ЛЮБЫМ РАЗРЕШЕНИЕМ, ТЕПЕРЬ ГЛАВНОЕ ПОСТАВИТЬ ВЕРНОЕ И ЧЕТКОЕ УСЛОВИЕ

Зачем орать-то? Я написанное мелким шрифтом внимательнее читаю.
А вопросы типа "Подскажите как сделать: если n >= 10 к = 1, после каждой проверки условия n >= 10, к должно увеличиваться на 1." относятся к самым-самым азам программирования, изучаемым на первом десятке лекций.

100% и defsize тут не поможет... может им абапера все таки посоветовать взять...

Так они ж небось думают, что уже взяли

data:
n type p,
k(1) type n.

k = 0.
while n >= 10.
add 1 to k.
endwhile.