HR ABAP Program Example
HR ABAP Program Example
REPORT zhrform12.
TYPE-POOLS: slis.
TABLES : pa0021, pa0000.
DATA : it_fcat TYPE slis_t_fieldcat_alv, " define field catalog for alvgrid
report
wa_fcat TYPE slis_fieldcat_alv.
INITIALIZATION.
AT SELECTION-SCREEN.
START-OF-SELECTION.
PERFORM get_data.
PERFORM set_data.
END-OF-SELECTION.
PERFORM prepare_dat.
PERFORM alv_grid.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data .
ENDIF.
ENDIF.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form PREPARE_DAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM prepare_dat .
IF it_form12 IS NOT INITIAL
AND it_form12a IS NOT INITIAL
AND it_form12b IS NOT INITIAL.
LOOP AT it_con.
CONCATENATE it_con-favor it_con-fanam INTO it_form12fin-combined.
MODIFY it_form12fin.
ENDLOOP.
APPEND wa_form12fin TO it_form12fin.
CLEAR: wa_form12fin, wa_form12, wa_form12b, wa_form12a.
ENDLOOP.
ENDLOOP.
CLEAR wa_form12a.
ENDLOOP.
CLEAR wa_form12c.
CLEAR wa_form12b.
CLEAR wa_form12a.
ENDIF.
*&---------------------------------------------------------------------*
*& Form SET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM set_data .
*
*do 10 TIMES.
*wa_fcat-col_pos = rnum.
*wa_fcat-row_pos = 2.
*wa_fcat-seltext_s = RNUM.
*APPEND wa_fcat to it_fcat.
*CLEAR wa_fcat.
*rnum = rnum + 1.
*ENDDO.
wa_fcat-col_pos = 1.
wa_fcat-fieldname = 'PERNR'.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'EMP.ID'.
wa_fcat-outputlen = '10'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 2.
wa_fcat-fieldname = 'ENAME'.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Name Residential Address'.
wa_fcat-outputlen = '26'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 3.
wa_fcat-fieldname = 'FAVOR'.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Father Name'.
wa_fcat-outputlen = '13'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 4.
wa_fcat-fieldname = 'COMBINED'.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Last Name'.
wa_fcat-outputlen = '13'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
* WA_FCAT-COL_POS = 11.
* CONCATENATE sy-datum sy-uzeit INTO wa_fcat-fieldname SEPARATED BY ' '.
* WA_FCAT-TABNAME = 'IT_FORM12FIN'.
* WA_FCAT-SELTEXT_L = 'FATHER NAME'.
* APPEND wa_fcat to it_fcat.
* CLEAR wa_fcat.
wa_fcat-col_pos = 5.
wa_fcat-fieldname = 'BTEXT'.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Nature of Work'.
wa_fcat-outputlen = '15'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 6.
wa_fcat-fieldname = 'FLAG2'. " Flag2 field is temperarly showing here it is not
working.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Letter of group as in Form No. II'.
wa_fcat-outputlen = '31'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 7.
*wa_fcat-fieldname = ' '.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Number of relay, if working in shifts'.
wa_fcat-outputlen = '35'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 8.
wa_fcat-fieldname = ' '.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Number of Certificate and Date'.
wa_fcat-outputlen = '31'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 9.
wa_fcat-fieldname = ' '.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Token Number giving reference to the Certificate'.
wa_fcat-outputlen = '45'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
wa_fcat-col_pos = 10.
wa_fcat-fieldname = ' '.
wa_fcat-tabname = 'IT_FORM12FIN'.
wa_fcat-seltext_l = 'Remarks'.
wa_fcat-outputlen = '10'.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
*&---------------------------------------------------------------------*
*& Form TOP_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM top_page." USING document TYPE REF TO cl_dd_document.
*DATA: text TYPE sdydo_text_element,
* text.
* CALL METHOD document->add_gap
* EXPORTING
* width = 100.
* text ='Company Code Data'.
wa_listheader-typ = 'H'.
wa_listheader-info = 'FORM NO. 12'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = '(Prescribed under Rule 87)'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'Register of Adult Workers'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'Name of Factory: Talwandi Sabo Power Limited'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'Company Name: Talwandi Sabo Power Limited'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.