HR-ABAP using Table Control Wizard

Question

My requirements is to customize an infotype which is customer specific.
After creating the infotype in PM01, I also create the screen(2000) for the
infotype. The issue is in the table control. I create a table control
using  table control wizard, getting the information that i need to output in the
screen, using another infotype which is PA0007 planned working time.
The expected result is that the data will diplay on the screen when i execute PA30.
Do you have any idea or any recommendation to resolve the issue? thanks.
And here are my codes.
in PBO
  LOOP AT   g_table5_itab
       INTO g_table5_wa
       WITH CONTROL table5
       CURSOR table5-current_line.
    MODULE table5_move.
    MODULE table5_get_lines.
  ENDLOOP.
Inside the  module pool.
MODULE TABLE5_INIT OUTPUT.
  IF G_TABLE5_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'PA0007'
*&SPWIZARD: INTO INTERNAL TABLE 'g_TABLE5_itab'
    SELECT * FROM PA0007
       INTO CORRESPONDING FIELDS
       OF TABLE G_TABLE5_ITAB
*Start of Insert
       WHERE pernr = pskey-pernr.
*End of Insert      .
     G_TABLE5_COPIED = 'X'.
     REFRESH CONTROL 'TABLE5' FROM SCREEN '2000'.
  ENDIF.
ENDMODULE.
MODULE TABLE5_MOVE OUTPUT.
*Start of Delete
  MOVE-CORRESPONDING G_TABLE5_WA TO PA0007.
   MOVE-CORRESPONDING G_TABLE5_WA TO PA9201.
*End of Delete
*Start of Change
   MOVE G_TABLE5_WA-begda TO PA9201-zzpensda.
   MOVE G_TABLE5_WA-endda TO PA9201-zzpendda.
   MOVE G_TABLE5_WA-empct TO PA9201-zzempct.
*End of Change
ENDMODULE.
MODULE TABLE5_GET_LINES OUTPUT.
  G_TABLE5_LINES = SY-LOOPC.
ENDMODULE.

Answer 1

Hi,
Create a table control in layout and place your fields in table control.
Press F6 and give the table name and click on get from dictionary and select the 5 fields which you required and palce those fields in table control.
Double click on table control and give table control name .
In Top include create a stmt as
CONTROLS : TABlecontrolname TYPE TABLEVIEW USING SCREEN '1000'.
In PBO under a module write your logic that means select query and place it in an internal table. Place that select query under IF condition.
Module Read.
If SY-UCOMM = 'ENTER'.
Process query.
endif.
endmodule.
  LOOP AT ITAB INTO WA WITH CONTROL TAB.
    MODULE DISP.
    ENDLOOP.
In PAI.
   LOOP AT ITAB.
     ENDLOOP.
Here ITAB is internal table name.TAB is table control name.In display module write the code
MODULE DISP OUTPUT.
MOVE-CORRESPONDING WA TO database tablename.
ENDMODULE.
And in 1000 screen create SET PF status in the function keys assign a keyword to Enter Icon as 'ENTER'.
Hope this is helpful.
Regards,
G.Aditya