Dynamic creation of fields

Question

Hello there,
I want to create an internal table, but some fields involved on this table must be fixed to a number. For example, while the execution of the report i get the number 9 on a certain variable, i must create 9 fields with the name "field1, field2, field3".
I've done it before creating 10 fields on my output table, and then, using that variable, saying on the field catalog that the report must show only 9 fields. But i have to put a max number of fields, so if i need more fields, 12 for example, i can't because i set a limit.
This method serves me as long as i need few fields, but if i need 100 for example?
My question is can i create fields dynamically on an output table?
Maybe doing something like creating fields with a while clause, and including this fields to the table?
I hope you can understand my question.
Sorry for my english

Answer 1

yes u can create fields in an internal table during runtime ..
check this sample code ..
This will solve ur purpose .. Reward if useful
*& Report  ZERUM_PROJECTION_REPORT
REPORT ZERUM_PROJECTION_REPORT ."  NO STANDARD PAGE HEADING.
TABLES: ZERNUM_TSHT_ID ,DTRESR.
TYPE-POOLS: SLIS.
FIELD-SYMBOLS: <FS1> , <EMP> , <ENAME> , <PNAME> , <WDAYS> ,<KBETR>.
DATA:W_SPMON TYPE SPMON .
*DATA: OK_CODE TYPE SY-UCOMM.
DATA: FIELDNAME(20) TYPE C.
DATA: FIELDVALUE(6) TYPE C.
DATA: W_ENAME TYPE ZEMAST-ENAM,
      W_PNAME TYPE ZPROJDTL-PJNAM ,
      W_RPERD TYPE ZERUM_TERMS_HD-RPERD.
DATA: IT_TSHT_ID TYPE STANDARD TABLE OF ZERNUM_TSHT_ID.
DATA: WA_TSHT_ID TYPE ZERNUM_TSHT_ID .
DATA: IT_TSHT_ID1 TYPE STANDARD TABLE OF ZERNUM_TSHT_ID.
DATA: WA_TSHT_ID1 TYPE ZERNUM_TSHT_ID .
DATA: W_D1(2) TYPE C,
      W_D2(2) TYPE C,
      W_D3(4) TYPE C ,
     W_V4(2) TYPE C,
      W_WDAYS TYPE I VALUE 0.
     W_V3(5) TYPE C .
DATA: W_WKOFF1 LIKE ZPROJDTL-WKOFF1,
      W_WKOFF2 LIKE ZPROJDTL-WKOFF2.
DATA: BEGIN OF IT_DAY OCCURS 0,
         DAY TYPE DTRESR-WEEKDAY,
      END OF IT_DAY .
DATA: BEGIN OF IT_DATE OCCURS 0,
       TDATE(10) TYPE C," LIKE ZERNUM_TSHT_ID-TDATE,
       DAY TYPE DTRESR-WEEKDAY,
      END OF IT_DATE.
DATA: IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
      IS_FCAT LIKE LINE OF IT_FCAT,
      LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
      IS_FIELDCAT LIKE LINE OF IT_FIELDCAT.
DATA: NEW_TABLE TYPE REF TO DATA,
      NEW_LINE TYPE REF TO DATA,
      OB_CONT_ALV TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      OB_ALV TYPE REF TO CL_GUI_ALV_GRID.
     VG_CAMPOS(255) TYPE C,
     I_CAMPOS LIKE TABLE OF VG_CAMPOS,
     VG_CAMPO(30) TYPE C,
     VG_TABLES(60) TYPE C.
*DATA: e_params LIKE zutsvga_alv_01.
FIELD-SYMBOLS: <L_TABLE> TYPE TABLE,
               <L_LINE> TYPE ANY,
               <L_FIELD> TYPE ANY.
*<FS1> .
***alv declarations******
DATA: OK_CODE LIKE SY-UCOMM,
     IT_TSHT_ID TYPE TABLE OF IT_TYPES,"ZERNUM_TSHT_ID,
     IT_TSHT_ID TYPE IT_TYPES OCCURS 0 WITH HEADER LINE ,
      G_CONTAINER TYPE SCRFNAME VALUE 'SCR_100_CONTAINER',
      GRID  TYPE REF TO CL_GUI_ALV_GRID,
      G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      GS_VARIANT   TYPE DISVARIANT,
      G_REPID LIKE SY-REPID,
      GS_PRINT    TYPE LVC_S_PRNT.
DATA : GS_LAYOUT   TYPE LVC_S_LAYO,
       IT_TOOLBAR TYPE UI_FUNCTIONS,
       GT_FIELDCAT TYPE LVC_T_FCAT WITH HEADER LINE,
       IT_SORT TYPE LVC_T_SORT.
      CLASS LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION.
  PUBLIC SECTION.
    METHODS:
      HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
         IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO.
ENDCLASS.                    "LCL_EVENT_HANDLER DEFINITION
      CLASS LCL_EVENT_HANDLER IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
  METHOD HANDLE_HOTSPOT_CLICK.
    PERFORM HANDLE_HOTSPOT_CLICK USING E_ROW_ID E_COLUMN_ID ES_ROW_NO .
  ENDMETHOD.                    "HANDLE_HOTSPOT_CLICK
ENDCLASS.                    "LCL_EVENT_HANDLER IMPLEMENTATION
DATA: GR_EVENT_HANDLER TYPE REF TO LCL_EVENT_HANDLER .
*SO_MONTH FOR SPMON OBLIGATORY,
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_SPMON FOR W_SPMON OBLIGATORY,
                 SO_TDATE FOR ZERNUM_TSHT_ID-TDATE OBLIGATORY,
                 SO_EMPID FOR ZERNUM_TSHT_ID-EMPID MATCHCODE OBJECT ZSH_EID,
                 SO_PCODE FOR ZERNUM_TSHT_ID-PJCOD MATCHCODE OBJECT ZSH_PCODE.
                SO_WYOFF FOR DTRESR-WEEKDAY NO INTERVALS.
SELECTION-SCREEN END OF BLOCK BLOCK1.
**AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_WYOFF-LOW .
  PERFORM F4_DAY .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_SPMON-LOW .
  PERFORM MONAT_F4 USING SO_SPMON-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_SPMON-HIGH .
  PERFORM MONAT_F4 USING SO_SPMON-HIGH.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-NAME = 'SO_TDATE-LOW' OR SCREEN-NAME = 'SO_TDATE-HIGH'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN .
    ENDIF.
  ENDLOOP.
AT SELECTION-SCREEN .
  IF SO_SPMON-HIGH IS INITIAL .
    SO_SPMON-HIGH = SO_SPMON-LOW .
  ENDIF.
  REFRESH SO_TDATE.
  SO_TDATE-LOW = SO_SPMON-LOW .
  SO_TDATE-LOW+6(2) = 01 .
  SO_TDATE-HIGH = SO_SPMON-HIGH .
  SO_TDATE-HIGH+6(2) = 01 .
  DATA: W_DATE TYPE BEGDA ,
        W_LDATE LIKE SY-DATUM .
WRITE SO_TDATE-HIGH TO W_DATE USING EDIT MASK '..----'.
  W_DATE6(2) = SO_TDATE-HIGH6(2) .
  W_DATE4(2) = SO_TDATE-HIGH4(2) .
  W_DATE0(4) = SO_TDATE-HIGH0(4) .
CLEAR SO_TDATE-HIGH.
  CALL FUNCTION 'LAST_DAY_OF_MONTHS'
    EXPORTING
      DAY_IN            = W_DATE
    IMPORTING
      LAST_DAY_OF_MONTH = W_LDATE
    EXCEPTIONS
      DAY_IN_NO_DATE    = 1
      OTHERS            = 2.
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  SO_TDATE-HIGH = W_LDATE .
  APPEND SO_TDATE .
START-OF-SELECTION .
  PERFORM GET_DATA .
  PERFORM DISPLAY .
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA .
  IF SO_TDATE-OPTION IS INITIAL .
   MESSAGE S000(ZERUM_MSG) WITH 'Enter required fields' .
    STOP.
  ENDIF.
  SELECT * INTO TABLE IT_TSHT_ID FROM ZERNUM_TSHT_ID WHERE TDATE IN SO_TDATE
                                            AND EMPID IN SO_EMPID
                                            AND PJCOD IN SO_PCODE .
  IF SY-SUBRC NE 0 .
    MESSAGE S000(ZERUM_MSG) WITH 'No records found' .
    STOP.
  ENDIF.
  SORT IT_TSHT_ID BY EMPID PJCOD TDATE .
  DATA: W_V1 TYPE I ,W_TDATE LIKE SY-DATUM .
  W_V1 = ( SO_TDATE-HIGH - SO_TDATE-LOW ) + 1.
  W_TDATE = SO_TDATE-LOW .
  DO W_V1 TIMES .
    CALL FUNCTION 'DATE_TO_DAY'
      EXPORTING
        DATE    = W_TDATE
      IMPORTING
        WEEKDAY = IT_DATE-DAY.
   CONCATENATE SO_TDATE-LOW6(2) SO_TDATE-LOW4(2)  SO_TDATE-LOW+2(2) INTO IT_DATE-TDATE SEPARATED BY '.' .
    IT_DATE-TDATE = W_TDATE .
    APPEND IT_DATE .
   IF SO_TDATE-LOW GT SO_TDATE-HIGH .
     EXIT.
   ENDIF.
    W_TDATE = W_TDATE + 1 .
  ENDDO.
EMPLOYEE ID
  IS_FCAT-FIELDNAME = 'EMPID'.
  IS_FCAT-REF_FIELDNAME = 'EMPID'.
  IS_FCAT-REF_TABNAME = 'ZERNUM_TSHT_ID'.
  APPEND IS_FCAT TO IT_FCAT.
EMPLOYEE NAME
  IS_FCAT-FIELDNAME = 'ENAME'.
  IS_FCAT-REF_FIELDNAME = 'ENAME'.
  IS_FCAT-REF_TABNAME = 'ZERNUM_TSHT_HD'.
  APPEND IS_FCAT TO IT_FCAT.
PROJECT NAME
  IS_FCAT-FIELDNAME = 'PJNAM'.
  IS_FCAT-REF_FIELDNAME = 'PJNAM'.
  IS_FCAT-REF_TABNAME = 'ZPROJDTL'.
  APPEND IS_FCAT TO IT_FCAT.
  DATA CELLCOLOR TYPE LVC_T_SCOL .
*NO OF DAYS
  IS_FCAT-FIELDNAME = 'WDAYS'.
  IS_FCAT-DATATYPE = 'INTEGER'.
  APPEND IS_FCAT TO IT_FCAT.
*RATE
IS_FCAT-FIELDNAME = 'W_RPERD'.
IS_FCAT-DATATYPE = 'KBETR'.
IS_FCAT-REF_TABNAME = 'KONV'.
APPEND IS_FCAT TO IT_FCAT.
*REVENUE YEARNED
  IS_FCAT-FIELDNAME = 'KBETR'.
  IS_FCAT-REF_FIELDNAME = 'KBETR'.
  IS_FCAT-REF_TABNAME = 'KONV'.
  APPEND IS_FCAT TO IT_FCAT.
DAYS FROM THE TIME SHEET
  LOOP AT IT_DATE .
    IS_FCAT-FIELDNAME = IT_DATE-TDATE.
    IS_FCAT-REF_FIELDNAME = 'DATLO'.
    IS_FCAT-REF_TABNAME = 'SYST'.
   TRANSLATE IT_DATE-DAY  TO UPPER CASE.
   IF IT_DATE-DAY EQ 'Sunday'.
     IS_FCAT-EMPHASIZE = 'X' .
   ENDIF.
   IF IT_DATE-DAY NE 'L' OR IT_DATE-DAY NE 'W'.
     IS_FCAT-EMPHASIZE = 'X' .
   ENDIF.
    APPEND IS_FCAT TO IT_FCAT.
    CLEAR IS_FCAT.
  ENDLOOP.
***NO OF DAYS
IS_FCAT-FIELDNAME = 'WDAYS'.
IS_FCAT-DATATYPE = 'INTEGER'.
APPEND IS_FCAT TO IT_FCAT.
***REVENUE YEARNED
IS_FCAT-FIELDNAME = 'KBETR'.
IS_FCAT-REF_FIELDNAME = 'KBETR'.
IS_FCAT-REF_TABNAME = 'KONV'.
APPEND IS_FCAT TO IT_FCAT.
  LOOP AT IT_FCAT INTO IS_FCAT.
    IS_FIELDCAT-FIELDNAME = IS_FCAT-FIELDNAME.
    IS_FIELDCAT-REF_FIELD = IS_FCAT-REF_FIELDNAME.
    IS_FIELDCAT-REF_TABLE = IS_FCAT-REF_TABNAME.
    APPEND IS_FIELDCAT TO IT_FIELDCAT.
   CONCATENATE IS_FIELDCAT-REF_TABLE IS_FIELDCAT-REF_FIELD
   INTO VG_CAMPOS SEPARATED BY '~'.
   APPEND VG_CAMPOS TO I_CAMPOS.
  ENDLOOP.
  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = IT_FIELDCAT
    IMPORTING
      EP_TABLE        = NEW_TABLE.
*... Creating work area
  ASSIGN NEW_TABLE->* TO <L_TABLE>.
  CREATE DATA NEW_LINE LIKE LINE OF <L_TABLE>.
  ASSIGN NEW_LINE->* TO <L_LINE>.
  LOOP AT IT_TSHT_ID INTO WA_TSHT_ID.
   AT NEW EMPID.
   ON CHANGE OF IT_TSHT_ID-EMPID .
    ON CHANGE OF WA_TSHT_ID-EMPID OR WA_TSHT_ID-PJCOD.
      ASSIGN COMPONENT 'EMPID' OF STRUCTURE <L_LINE> TO <EMP>.
      <EMP> = WA_TSHT_ID-EMPID .
      SELECT SINGLE ENAM INTO W_ENAME FROM ZEMAST WHERE EID = WA_TSHT_ID-EMPID .
      ASSIGN COMPONENT 'ENAME' OF STRUCTURE <L_LINE> TO <ENAME>.
      <ENAME> = W_ENAME .
     ON CHANGE OF WA_TSHT_ID-PJCOD.
     AT NEW PJCOD.
      SELECT SINGLE PJNAM WKOFF1 WKOFF2 INTO (W_PNAME, W_WKOFF1, W_WKOFF2) FROM ZPROJDTL WHERE PJCOD = WA_TSHT_ID-PJCOD .
      ASSIGN COMPONENT 'PJNAM' OF STRUCTURE <L_LINE> TO <PNAME>.
      <PNAME> = W_PNAME .
      SELECT SINGLE RPERD INTO W_RPERD FROM ZERUM_TERMS_HD WHERE PJCOD = WA_TSHT_ID-PJCOD .
      ASSIGN COMPONENT 'KBETR' OF STRUCTURE <L_LINE> TO <KBETR>.
     <KBETR> = W_RPERD .
      LOOP AT IT_DATE .
  ON CHANGE OF EMPID .
        READ TABLE IT_TSHT_ID INTO WA_TSHT_ID WITH KEY TDATE = IT_DATE-TDATE EMPID = WA_TSHT_ID-EMPID PJCOD = WA_TSHT_ID-PJCOD.
        IF SY-SUBRC EQ 0 .
          FIELDNAME = IT_DATE-TDATE .
          FIELDVALUE = 'W'.
          W_WDAYS = W_WDAYS + 1 .
           W_V4 = WA_TSHT_ID-HURWK+0(2) .
           W_V2 = WA_TSHT_ID-HURWK+2(2).
           CONCATENATE W_V4 '.' W_V2 INTO W_V3 .
           FIELDVALUE = W_V3 .
          ASSIGN COMPONENT  FIELDNAME OF STRUCTURE <L_LINE> TO <FS1>.
          <FS1> = FIELDVALUE.
        ELSE.
          IF IT_DATE-DAY EQ W_WKOFF1 OR IT_DATE-DAY EQ W_WKOFF2.
            FIELDNAME = IT_DATE-TDATE .
            FIELDVALUE = 'L' .
            ASSIGN COMPONENT  FIELDNAME OF STRUCTURE <L_LINE> TO <FS1>.
            <FS1> = FIELDVALUE.
            CONTINUE.
          ENDIF.
          FIELDNAME = IT_DATE-TDATE .
          FIELDVALUE = 'O' .
          ASSIGN COMPONENT  FIELDNAME OF STRUCTURE <L_LINE> TO <FS1>.
          <FS1> = FIELDVALUE.
        ENDIF.
        AT LAST .
          ASSIGN COMPONENT 'WDAYS' OF STRUCTURE <L_LINE> TO <WDAYS>.
          <WDAYS> = W_WDAYS .
          <KBETR> = W_RPERD * W_WDAYS.
          W_WDAYS = 0.
          CLEAR W_RPERD.
          APPEND <L_LINE> TO <L_TABLE> .
        ENDAT.
      ENDLOOP.
       APPEND <L_LINE> TO <L_TABLE> .
     ENDON.
      APPEND <L_LINE> TO <L_TABLE> .
    ENDON .
  ENDLOOP .
ENDFORM.                    " GET_DATA
*&      Form  DISPLAY
      text
-->  p1        text
<--  p2        text
FORM DISPLAY .
  CALL SCREEN 100.
ENDFORM.                    " DISPLAY
*&      Module  INITIALIZE_ALV  OUTPUT
      text
MODULE INITIALIZE_ALV OUTPUT.
  DATA: ET_TOOLBAR_EXCLUDING  TYPE  UI_FUNCTIONS .
  IF G_CUSTOM_CONTAINER IS INITIAL.
    CREATE OBJECT G_CUSTOM_CONTAINER
    EXPORTING
    CONTAINER_NAME = 'SCR_100_CONTAINER'.
    CREATE OBJECT GRID
    EXPORTING
    I_PARENT = G_CUSTOM_CONTAINER.
  ENDIF.
  CREATE OBJECT GR_EVENT_HANDLER.
  SET HANDLER GR_EVENT_HANDLER->HANDLE_HOTSPOT_CLICK FOR GRID .
  GS_LAYOUT-GRID_TITLE = 'Actual  '(100).
GS_LAYOUT-CTAB_FNAME = 'CT'.
  GS_LAYOUT-CWIDTH_OPT = 'X'.
  GS_LAYOUT-ZEBRA = 'X'.
GS_LAYOUT-EDIT = 'X'.
  PERFORM ALV_FIELDCAT .
  PERFORM SORT_BUILD USING 'EMPID' '' 'X' '' '' '' .
  PERFORM SORT_BUILD USING 'ENAME' '' 'X' '' 'X' '' .
  CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
     I_STRUCTURE_NAME     = 'IT_TYPES'
      I_SAVE               = 'A'
      IS_VARIANT           = GS_VARIANT
      IS_LAYOUT            = GS_LAYOUT
      IT_TOOLBAR_EXCLUDING = ET_TOOLBAR_EXCLUDING
    CHANGING
      IT_FIELDCATALOG      = GT_FIELDCAT[]
      IT_SORT              = IT_SORT[]
      IT_OUTTAB            = <L_TABLE>.
  CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
    EXPORTING
      CONTROL = GRID.
ENDMODULE.                 " INITIALIZE_ALV  OUTPUT
*&      Form  alv_fieldcat
      text
-->  p1        text
<--  p2        text
FORM ALV_FIELDCAT .
LOOP AT <L_TABLE> INTO <L_LINE> .
ENDLOOP.
  LOOP AT IT_FCAT INTO IS_FCAT.
    IF IS_FCAT-EMPHASIZE = 'X'.
      PERFORM FIELDCATLOG USING SY-TABIX '' '' IS_FCAT-FIELDNAME 'X' 'C6' .
    ELSE.
      PERFORM FIELDCATLOG USING SY-TABIX '' '' IS_FCAT-FIELDNAME 'X' '' .
    ENDIF.
  ENDLOOP.
ENDFORM.                    " alv_fieldcat
*&      Form  FIELDCATLOG
      text
     -->P_SY_TABIX  text
     -->P_0483   text
     -->P_0484   text
     -->P_IS_FCAT_FIELDNAME  text
     -->P_0486   text
     -->P_0487   text
FORM FIELDCATLOG  USING    P_SY_TABIX
                           VALUE(P_0483)
                           VALUE(P_0484)
                           P_IS_FCAT_FIELDNAME
                           VALUE(P_0486)
                           VALUE(P_0487).
DATA W_SCRTXT(10) TYPE C.
  CLEAR GT_FIELDCAT.
  IF P_IS_FCAT_FIELDNAME EQ 'ENAME' .
    GT_FIELDCAT-SCRTEXT_L = 'Employee Name' .
   GT_FIELDCAT-TABNAME = 'ZEMAST' .
  ELSEIF P_IS_FCAT_FIELDNAME EQ 'PJNAM'.
    GT_FIELDCAT-SCRTEXT_L = 'Project Name' .
   GT_FIELDCAT-TABNAME = 'ZPROJDTL' .
  ELSEIF P_IS_FCAT_FIELDNAME EQ 'EMPID' .
    GT_FIELDCAT-SCRTEXT_L = 'EmpId' .
    GT_FIELDCAT-HOTSPOT = 'X' .
   GT_FIELDCAT-TABNAME = 'ZERNUM_TSHT_ID' .
  ELSEIF P_IS_FCAT_FIELDNAME EQ 'WDAYS' .
    GT_FIELDCAT-SCRTEXT_L = 'Total Worked Days' .
   GT_FIELDCAT-EDIT = 'X' .
  ELSEIF P_IS_FCAT_FIELDNAME EQ 'KBETR' .
    GT_FIELDCAT-SCRTEXT_L = 'Total Amount' .
  ELSE.
    CONCATENATE P_IS_FCAT_FIELDNAME6(2) P_IS_FCAT_FIELDNAME4(2)  P_IS_FCAT_FIELDNAME+2(2) INTO GT_FIELDCAT-SCRTEXT_L  SEPARATED BY '.' .
   CONDENSE W_SCRTXT NO-GAPS.
   GT_FIELDCAT-OUTPUTLEN = '10' .
   W_SCRTXT = P_IS_FCAT_FIELDNAME .
   GT_FIELDCAT-SCRTEXT_L      = P_IS_FCAT_FIELDNAME.
  ENDIF.
GT_FIELDCAT-SCRTEXT_L      = P_IS_FCAT_FIELDNAME.
  GT_FIELDCAT-COL_POS       =  P_SY_TABIX.
  GT_FIELDCAT-FIELDNAME     =  P_IS_FCAT_FIELDNAME.
  GT_FIELDCAT-TABNAME       =  P_0483.
  GT_FIELDCAT-OUTPUTLEN     =  P_0484.
  GT_FIELDCAT-DO_SUM        =  P_0486.
  GT_FIELDCAT-EMPHASIZE     =  P_0487.
  APPEND GT_FIELDCAT.
ENDFORM.                    " FIELDCATLOG
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MENU' OF PROGRAM 'ZERUM_EMP_TIMS'.
  SET TITLEBAR '101'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  EXIT  INPUT
      text
MODULE EXIT INPUT.
  CALL METHOD G_CUSTOM_CONTAINER->FREE.
  IF OK_CODE EQ 'E_BAK'.
    LEAVE TO SCREEN 0.
  ELSE.
    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.                 " EXIT  INPUT
*&      Form  F4_DAY
      text
-->  p1        text
<--  p2        text
FORM F4_DAY .
  REFRESH IT_DAY .
  APPEND 'Sunday' TO IT_DAY .
  APPEND 'Monday' TO IT_DAY .
  APPEND 'Tuesday' TO IT_DAY .
  APPEND 'Wed.' TO IT_DAY .
  APPEND 'Thursday' TO IT_DAY .
  APPEND 'Friday' TO IT_DAY .
  APPEND 'Sat.' TO IT_DAY .
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
  DDIC_STRUCTURE         = ' '
    RETFIELD               = 'SO_WYOFF-LOW'
  PVALKEY                = ' '
   DYNPPROG               = SY-REPID
   DYNPNR                 = SY-DYNNR
   DYNPROFIELD            = 'SO_WYOFF-LOW'
  STEPL                  = 0
  WINDOW_TITLE           =
  VALUE                  = ' '
   VALUE_ORG              = 'S'
  MULTIPLE_CHOICE        = ' '
  DISPLAY                = ' '
  CALLBACK_PROGRAM       = ' '
  CALLBACK_FORM          = ' '
  MARK_TAB               =
IMPORTING
  USER_RESET             =
  TABLES
    VALUE_TAB              = IT_DAY
  FIELD_TAB              = IT_FT
  RETURN_TAB             =
  DYNPFLD_MAPPING        = IT_DM
EXCEPTIONS
  PARAMETER_ERROR        = 1
  NO_VALUES_FOUND        = 2
  OTHERS                 = 3
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                                                    " F4_DAY
*&      Form  SORT_BUILD
      text
     -->P_0681   text
     -->P_0682   text
     -->P_0683   text
     -->P_0684   text
     -->P_0685   text
     -->P_0686   text
FORM SORT_BUILD  USING    VALUE(P_0681)
                          VALUE(P_0682)
                          VALUE(P_0683)
                          VALUE(P_0684)
                          VALUE(P_0685)
                          VALUE(P_0686).
  DATA: LS_SORT TYPE LVC_S_SORT.
  LS_SORT-FIELDNAME = P_0681.
  LS_SORT-SPOS      = P_0682.
  LS_SORT-UP        = P_0683.
  LS_SORT-DOWN    = P_0684.
  LS_SORT-SUBTOT     =  P_0685.
  LS_SORT-OBLIGATORY =  P_0686.
  APPEND LS_SORT TO IT_SORT.
  CLEAR LS_SORT.
ENDFORM.                    " SORT_BUILD
*&      Form  HANDLE_HOTSPOT_CLICK
      text
     -->P_E_ROW_ID  text
     -->P_E_COLUMN_ID  text
     -->P_ES_ROW_NO  text
FORM HANDLE_HOTSPOT_CLICK  USING    P_E_ROW_ID TYPE LVC_S_ROW
                                    P_E_COLUMN_ID TYPE LVC_S_COL
                                    P_ES_ROW_NO TYPE LVC_S_ROID.
  DATA: W_PJCOD LIKE ZPROJDTL-PJCOD,
        W_LDATE LIKE SY-DATUM,
        W_HDATE LIKE SY-DATUM .
  READ TABLE <L_TABLE> INTO <L_LINE> INDEX P_E_ROW_ID .
  ASSIGN COMPONENT 'EMPID' OF STRUCTURE <L_LINE> TO <EMP>.
  ASSIGN COMPONENT 'PJNAM' OF STRUCTURE <L_LINE> TO <PNAME>.
  SELECT SINGLE PJCOD INTO W_PJCOD FROM ZPROJDTL WHERE PJNAM = <PNAME> .
  W_LDATE = SO_TDATE-LOW .
  W_HDATE = SO_TDATE-HIGH .
EXPORT W_LDATE TO MEMORY ID 'W_LDATE' .
EXPORT W_HDATE TO MEMORY ID 'W_HDATE' .
  SUBMIT ZERUM_EMP_TIMS WITH PA_EMPID = <EMP> WITH SO_PCODE-LOW = W_PJCOD
    WITH SO_TDATE BETWEEN W_LDATE AND W_HDATE
    AND RETURN.
*SUBMIT ZERUM_EMP_TIMS VIA SELECTION-SCREEN WITH PA_EMPID = <L_LINE>-EMPID AND RETURN.
BREAK-POINT.
ENDFORM.                    " HANDLE_HOTSPOT_CLICK
*&      Form  MONAT_F4
      text
     -->P_SO_SPMON_HIGH  text
FORM MONAT_F4  USING    W_MONTH TYPE SPMON.
  IF W_MONTH IS INITIAL.
    W_MONTH = SY-DATUM+0(6).
  ENDIF.
  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      ACTUAL_MONTH               = W_MONTH
    IMPORTING
      SELECTED_MONTH             = W_MONTH
    EXCEPTIONS
      FACTORY_CALENDAR_NOT_FOUND = 01
      HOLIDAY_CALENDAR_NOT_FOUND = 02
      MONTH_NOT_FOUND            = 03.
ENDFORM.                                                    " MONAT_F4
Regards.,
S.Sivakumar