Re Module pool Adding time

Question

Hi
friends .. i had 2 screen in my module pool one for header and then for
details.
In detail screen there is from time and to time etc columns.
i want went user press enter ot click on insert button the next record
in that screen should be appear with totime in the column of from time.
for ex.
fromtime .   totime
00.01.00     21.00.00
the nextline should be
21.01.00      -
in next line of totime user will enter .
can anybody tell me the logic for it .
answers will be rewarded points.

Answer 1

Hi,
Here is a sample code.
* program
REPORT  z_tab_control.
DATA: BEGIN OF itab OCCURS 0,
       frtime LIKE sy-uzeit,
       totime LIKE sy-uzeit,
      END OF itab.
DATA: okcode(20).
CONTROLS: tab1 TYPE TABLEVIEW USING SCREEN 9500.
DATA: IND TYPE I.
CALL SCREEN 9500.
*&      Module  USER_COMMAND_9500  INPUT
*       text
MODULE user_command_9500 INPUT.
  CASE okcode.
    WHEN 'BACK'.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN 'ADD'.
* add a new line.
      CLEAR: itab.
      DESCRIBE TABLE ITAB LINES IND.
      READ TABLE ITAB INDEX IND.
      IF SY-SUBRC = 0.
        ITAB-FRTIME = ITAB-TOTIME + 60.
        CLEAR: ITAB-TOTIME.
      ENDIF.
      APPEND itab.
  ENDCASE.
  CLEAR: OKCODE.
ENDMODULE.                 " USER_COMMAND_9500  INPUT
*&      Module  MODIF  INPUT
*       text
MODULE modif INPUT.
  MODIFY itab INDEX tab1-current_line.
ENDMODULE.                 " MODIF  INPUT
*&      Module  STATUS_9500  OUTPUT
*       text
MODULE status_9500 OUTPUT.
  DESCRIBE TABLE itab LINES tab1-lines.
  IF itab[] IS INITIAL.
    tab1-lines = -1.
  ENDIF.
ENDMODULE.                 " STATUS_9500  OUTPUT
Flow logic of screen 9500.
PROCESS BEFORE OUTPUT.
MODULE STATUS_9500.
loop at itab with control tab1.
endloop.
PROCESS AFTER INPUT.
loop at itab.
  MODULE MODIF.
endloop.
MODULE USER_COMMAND_9500.
Hope this would help you.
Thanks and regards,
S. Chandra Mouli.