How to get the cursor position from screen in module pool program

Question

Hi,
I am doing the module pool program, I have one table control in one screen.
I have to give functionality to the user that when the user enters first record in the table control and after filling the last field
when he presses enter the cursor will have to come in the starting field of the second record.
I know the logic , but i m bit confused.
Can any body help me to solve this....
thanks

Answer 1

Hi,
Check this code,
Write it in the PBO
MODULE SET_CURSOR_WERTKONTRAKT.
MODULE SET_CURSOR_WERTKONTRAKT OUTPUT.
  PERFORM SET_CURSOR USING 'VBAP-ZWERT'.
ENDMODULE.                 " SET_CURSOR_WERTKONTRAKT  OUTPUT
FORM SET_CURSOR USING US_FELDNAME.
  DATA: DA_TFILL LIKE SY-TFILL.
  DESCRIBE TABLE IVBAP LINES DA_TFILL.
FCODE 'Create Position':
==> Cursor to the first free line set to make the new position
Can be created directly
    IF DA_TFILL EQ 0.
      SET CURSOR FIELD US_FELDNAME LINE 1.   -> set cursor position
    ELSE.
      SET CURSOR FIELD US_FELDNAME LINE 2.
    ENDIF.
Product proposal actively
Set ==> cursor in the first row
  IF DPP_ACTIVE   EQ CHARX AND
     XVBAP_UMFANG_OPV IS INITIAL.
in the 'target volume' if available
    IF KOPGR_MIT_ZMENG CS TVAK-KOPGR.
        SET CURSOR FIELD 'VBAP-ZMENG' LINE 1.
        EXIT.
    ELSE.
Else in the field 'Order quantity'
      SET CURSOR FIELD 'RV45A-KWMENG' LINE 1.
      EXIT.
    ENDIF.
  ENDIF.
Hope it helps you,
Regards,
Abhijit G. Borkar