Skip to Content
0
Former Member
Jun 29, 2007 at 06:20 AM

cursor

14 Views

HI friends please explain this code . what is that p-- ,p+ .

FORM PAGING USING CODE.

DATA : I TYPE I,

J TYPE I.

CASE CODE.

WHEN 'P--'.

TCTRL_PHONELIST-TOP_LINE = 1.

WHEN 'P-'.

TCTRL_PHONELIST-TOP_LINE = TCTRL_PHONELIST-TOP_LINE - L_COUNT.

IF TCTRL_PHONELIST-TOP_LINE LE 0.

TCTRL_PHONELIST-TOP_LINE = 1.

ENDIF.

WHEN 'P+'.

I = TCTRL_PHONELIST-TOP_LINE + L_COUNT.

J = TCTRL_PHONELIST-TOP_LINE - L_COUNT + 1.

IF J LE 0.

J = 1.

ENDIF.

IF I LE J.

TCTRL_PHONELIST-TOP_LINE = I.

ELSE.

TCTRL_PHONELIST-TOP_LINE = J.

ENDIF.

WHEN 'P++'.

TCTRL_PHONELIST-TOP_LINE = TCTRL_PHONELIST-LINES - L_COUNT + 1.

IF TCTRL_PHONELIST-TOP_LINE LE 0.

TCTRL_PHONELIST-TOP_LINE = 1.

ENDIF.

ENDCASE.

ENDFORM.