Infotype Overview

Question

We are using report RPLINFC0 to display all the infotypes maintained against an employee. Client wants this report for a range of Personnel numbers. Is there any standard report which displays all the infotypes maintained against a range of Personnel numbers ??

Answer 1

I think help you.
Please, try using this report. OBS--> this report have use logical database PNP.
this program displays information in different levels of various standard infotypes, Here we use it to hold conference of load.
Good luck!
Best regards!
Marcello!
*& Report  ZHRR0059
REPORT  zhrr0059.
   Nodes
NODES: pernr.
   Infotypes
INFOTYPES: 0000,"Medidas
           0001,"Atribuição organizacional
           0002,"Dados pessoais
           0003,"Status cálculo FP
           0004,"Deficiências
           0006,"Endereços
           0007,"Tempo de trabalho teórico
           0050,"Informação de registro de tempos
           0008,"Remuneração base
           0009,"Dados bancários
           0014,"Remunerações/deduções periódicas
           0015,"Pagamento complementar
           0016,"Elementos do contrato
           0021,"Família/pessoa de referência
           0041,"Especificações da data
           0057,"Afiliações
           0167,"Planos do seguro saúde
           0168,"Planos de seguro
           0171,"Área de Benefícios
           0377,"Outros planos
           0410,"Vale transporte,"BR
           0465,"Carga de Documentos,"PIS
           0736,"Pensão alimentícia,"Brasil
           0737."Pensão alimentícia,"Brasil
   ALV Work area
TYPE-POOLS: kkblo, slis.
DATA: gh_listheader TYPE slis_t_listheader,
      gh_fieldcat   TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gh_sort       TYPE slis_t_sortinfo_alv WITH HEADER LINE,
      gh_events     TYPE slis_t_event.
DATA: gw_listheader TYPE slis_listheader.
DATA: gw_layout     TYPE slis_layout_alv.
DATA: gc_save          TYPE c.
DATA: t_header         TYPE kkblo_t_listheader,
      v_repid          LIKE sy-repid,
      w_print          TYPE slis_print_alv,
      t_layout_alv     TYPE slis_layout_alv,
      w_layout_alv     LIKE t_layout_alv,
      t_fieldcat_alv   TYPE slis_t_fieldcat_alv,
      w_fieldcat_alv   TYPE slis_fieldcat_alv,
      t_special_groups TYPE slis_t_sp_group_alv,
      w_grid_settings  TYPE lvc_s_glay,
      t_events         TYPE slis_t_event,
      w_variant        TYPE disvariant,
      v_save(1)        TYPE c.
TYPES: BEGIN OF y_table,
        pernr LIKE pskey-pernr,
        infty LIKE pskey-infty,
        subty LIKE pskey-subty,
        endda LIKE pskey-endda,
        begda LIKE pskey-begda,
        message LIKE bapireturn1-message,
       END OF y_table.
To store information to be displayed
DATA: it_geninfo TYPE y_table OCCURS 0 WITH HEADER LINE.
   Global variables
DATA: w_textc(15) TYPE c," TYPE slis_fieldname,
      w_textl(30) TYPE c." LIKE dd03p-reptext.
  Get PERNR
GET pernr.
  PERFORM z_mainline.
End-of-selection
END-OF-SELECTION.
Build ALV Grid
  PERFORM z_build_alv_grid.
*&      Form  z_build_alv_grid
FORM z_build_alv_grid .
Final check
  PERFORM z_check_data_found.
Build header
  PERFORM build_header.
Build colls
  PERFORM build_colls.
Start ALV BAPI
  PERFORM start_bapi_alv.
ENDFORM.                    " z_build_alv_grid
*&      Form  z_check_data_found
FORM z_check_data_found .
  IF it_geninfo[] IS INITIAL.
    MESSAGE s016(pg) WITH text-002."No data found for the values entered
    STOP.
  ENDIF.
ENDFORM.                    " z_check_data_found
*&      Form  start_bapi_alv
FORM start_bapi_alv .
  PERFORM z_group_fields.
  CALL FUNCTION 'K_KKB_SAVE_MODE_GET'
    IMPORTING
      e_save = gc_save.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_top_of_page   = 'TOP_OF_PAGE'
      it_fieldcat              = gh_fieldcat[]
      it_sort                  = gh_sort[]
      i_default                = sy-abcde+23(1)
      i_save                   = gc_save
      it_events                = gh_events[]
      i_callback_user_command  = 'AT_USER_COMMAND'
      is_layout                = gw_layout
      i_callback_pf_status_set = 'ZF_STATUS'
    TABLES
      t_outtab                 = it_geninfo
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.                    " start_bapi_alv
*&      Form top_of_page
FORM top_of_page .                                          "#EC CALLED
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gh_listheader.
ENDFORM.          "z_top_of_page
*&      Form  build_colls
FORM build_colls .
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'PERNR'.
  gh_fieldcat-reptext_ddic = 'Nro Pessoal'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'N'. "
  gh_fieldcat-outputlen    = 10.
  APPEND gh_fieldcat.
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'INFTY'.
  gh_fieldcat-reptext_ddic = 'Infotipo'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'C'. "
  gh_fieldcat-outputlen    = 8.
  APPEND gh_fieldcat.
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'SUBTY'.
  gh_fieldcat-reptext_ddic = 'Subinfotipo'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'C'. "
  gh_fieldcat-outputlen    = 8.
  APPEND gh_fieldcat.
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'ENDDA'.
  gh_fieldcat-reptext_ddic = 'Fim da validade'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'D'. "
  gh_fieldcat-outputlen    = 12.
  APPEND gh_fieldcat.
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'BEGDA'.
  gh_fieldcat-reptext_ddic = 'Início da validade'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'D'. "
  gh_fieldcat-outputlen    = 12.
  APPEND gh_fieldcat.
  CLEAR gh_fieldcat.
  gh_fieldcat-fieldname    = 'MESSAGE'.
  gh_fieldcat-reptext_ddic = 'Mensagem'.
  gh_fieldcat-tabname      = 'IT_GENINFO'.
  gh_fieldcat-inttype      = 'C'. "
  gh_fieldcat-outputlen    = 50.
  APPEND gh_fieldcat.
ENDFORM.                    " build_colls
*&      Form  build_header
FORM build_header .
  REFRESH gh_listheader.
  CLEAR gw_listheader.
  gw_listheader-typ  = 'S'.
  WRITE sy-datum TO gw_listheader-key.
  APPEND gw_listheader TO gh_listheader.
  CLEAR gw_listheader.
Get message description
  gw_listheader-typ  = 'S'.
  gw_listheader-key  = sy-cprog.
  gw_listheader-info = text-004.
  APPEND gw_listheader TO gh_listheader.
  CLEAR gw_listheader.
ENDFORM.                    " build_header
*&      Form  z_group_fields
FORM z_group_fields .
  CLEAR: gh_sort, gh_sort[].
  MOVE 1         TO gh_sort-spos.
  MOVE 'PERNR'  TO gh_sort-fieldname.
  MOVE 'X'      TO gh_sort-group.
  MOVE 'X'      TO gh_sort-up.
  APPEND gh_sort.
  MOVE 2         TO gh_sort-spos.
  MOVE 'INFTY' TO gh_sort-fieldname.
  MOVE 'X'      TO gh_sort-group.
  MOVE 'X'      TO gh_sort-up.
  APPEND gh_sort.
  MOVE 3         TO gh_sort-spos.
  MOVE 'SUBTY' TO gh_sort-fieldname.
  MOVE 'X'      TO gh_sort-group.
  MOVE 'X'      TO gh_sort-up.
  APPEND gh_sort.
ENDFORM.                    " z_group_fields
*&      Form  Z_MAINLINE
      MainLine
FORM z_mainline .
  CLEAR: p0000, it_geninfo.
  rp-provide-from-last p0000 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0000 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0000'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0001, it_geninfo.
  rp-provide-from-last p0001 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0001 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0001'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0002, it_geninfo.
  rp-provide-from-last p0002 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0002 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0002'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0003, it_geninfo.
  rp-provide-from-last p0003 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0003 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0003'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0004, it_geninfo.
  rp-provide-from-last p0004 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0004 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0004'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0006, it_geninfo.
  rp-provide-from-last p0006 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0006 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0006'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0007, it_geninfo.
  rp-provide-from-last p0007 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0007 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0007'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0050, it_geninfo.
  rp-provide-from-last p0050 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0050 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0050'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0008, it_geninfo.
  rp-provide-from-last p0008 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0008 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0008'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0009, it_geninfo.
  rp-provide-from-last p0009 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0009 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0009'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0014, it_geninfo.
  rp-provide-from-last p0014 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0014 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0014'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0015, it_geninfo.
  rp-provide-from-last p0015 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0015 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0015'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0016, it_geninfo.
  rp-provide-from-last p0016 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0016 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0016'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0021, it_geninfo.
  rp-provide-from-last p0021 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0021 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0021'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0041, it_geninfo.
  rp-provide-from-last p0041 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0041 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0041'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0057, it_geninfo.
  rp-provide-from-last p0057 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0057 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0057'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0000, it_geninfo.
  rp-provide-from-last p0167 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0167 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0167'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0168, it_geninfo.
  rp-provide-from-last p0168 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0168 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0168'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0171, it_geninfo.
  rp-provide-from-last p0171 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0171 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0171'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0377, it_geninfo.
  rp-provide-from-last p0377 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0377 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0377'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0410, it_geninfo.
  rp-provide-from-last p0410 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0410 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0410'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0465, it_geninfo.
  rp-provide-from-last p0465 '0001' pn-begda pn-endda.
  IF p0465-subty EQ '0001'.
    MOVE-CORRESPONDING p0465 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0465'.
    it_geninfo-subty = '0001'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0465, it_geninfo.
  rp-provide-from-last p0465 '0002' pn-begda pn-endda.
  IF p0465-subty EQ '0002'.
    MOVE-CORRESPONDING p0465 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0465'.
    it_geninfo-subty = '0002'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0465, it_geninfo.
  rp-provide-from-last p0465 '0003' pn-begda pn-endda.
  IF p0465-subty EQ '0003'.
    MOVE-CORRESPONDING p0465 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0465'.
    it_geninfo-subty = '0003'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0465, it_geninfo.
  rp-provide-from-last p0465 '0006' pn-begda pn-endda.
  IF p0465-subty EQ '0006'.
    MOVE-CORRESPONDING p0465 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0465'.
    it_geninfo-subty = '0006'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0736, it_geninfo.
  rp-provide-from-last p0736 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0736 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0736'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
  CLEAR: p0737, it_geninfo.
  rp-provide-from-last p0737 '    ' pn-begda pn-endda.
  IF sy-subrc EQ 0.
    MOVE-CORRESPONDING p0737 TO it_geninfo.
    MOVE 'Registro encontrado' TO it_geninfo-message.
  ELSE.
    MOVE-CORRESPONDING pernr TO it_geninfo.
    it_geninfo-infty = '0737'.
    MOVE 'Registro inexistente' TO it_geninfo-message.
  ENDIF.
  APPEND it_geninfo.
ENDFORM.                    " Z_MAINLINE
*&      Form  ZF_STATUS
FORM zf_status USING rt_extab TYPE slis_t_extab.
  DATA: wt_extab TYPE slis_extab.
  CONSTANTS cc_vexcel LIKE wt_extab-fcode VALUE '&VEXCEL'.
  CONSTANTS cc_sorta LIKE wt_extab-fcode VALUE '&OUP'.
  CONSTANTS cc_sortd LIKE wt_extab-fcode VALUE '&ODN'.
  CLEAR: wt_extab.
  wt_extab-fcode = cc_vexcel.
  APPEND wt_extab TO rt_extab.
  wt_extab-fcode = cc_sorta.
  APPEND wt_extab TO rt_extab.
  wt_extab-fcode = cc_sortd.
  APPEND wt_extab TO rt_extab.
  SET PF-STATUS 'STANDARD_FULLSCREEN' EXCLUDING rt_extab.
ENDFORM.                    "ZF_STATUS
*&      Form  AT_USER_COMMAND
FORM at_user_command USING ucomm LIKE sy-ucomm
                           selfield TYPE kkblo_selfield.
  CLEAR: it_geninfo.
  CASE ucomm.
    WHEN '&IC1'.
      CHECK selfield-tabindex NE 0.
      READ TABLE it_geninfo INDEX selfield-tabindex.
      CASE it_geninfo-infty.
        WHEN '0000'."Medidas
          CLEAR p0000.
          REFRESH p0000.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0000
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0000'
            TABLES
              t_outtab                 = p0000
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0001'."Atribuição organizacional
          CLEAR p0001.
          REFRESH p0001.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0001
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0001'
            TABLES
              t_outtab                 = p0001
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0002'."Dados pessoais
          CLEAR p0002.
          REFRESH p0002.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0002
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0002'
            TABLES
              t_outtab                 = p0002
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0003'."Status cálculo FP
          CLEAR p0003.
          REFRESH p0003.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0003
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0003'
            TABLES
              t_outtab                 = p0003
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0004'."Deficiências
          CLEAR p0004.
          REFRESH p0004.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0004
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0004'
            TABLES
              t_outtab                 = p0004
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0006'."Endereços
          CLEAR p0006.
          REFRESH p0006.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0006
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0006'
            TABLES
              t_outtab                 = p0006
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0007'."Tempo de trabalho teórico
          CLEAR p0007.
          REFRESH p0007.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0007
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0007'
            TABLES
              t_outtab                 = p0007
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0050'."Informação de registro de tempos
          CLEAR p0050.
          REFRESH p0050.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0050
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0050'
            TABLES
              t_outtab                 = p0050
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0008'."Remuneração base
          CLEAR p0008.
          REFRESH p0008.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0008
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0008'
            TABLES
              t_outtab                 = p0008
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0009'."Dados bancários
          CLEAR p0009.
          REFRESH p0009.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0009
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0009'
            TABLES
              t_outtab                 = p0009
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0014'."Remunerações/deduções periódicas
          CLEAR p0014.
          REFRESH p0014.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0014
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0014'
            TABLES
              t_outtab                 = p0014
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0015'."Pagamento complementar
          CLEAR p0015.
          REFRESH p0015.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0015
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0015'
            TABLES
              t_outtab                 = p0015
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0016'."Elementos do contrato
          CLEAR p0016.
          REFRESH p0016.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0016
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0016'
            TABLES
              t_outtab                 = p0016
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0021'."Família/pessoa de referência
          CLEAR p0021.
          REFRESH p0021.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0021
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0021'
            TABLES
              t_outtab                 = p0021
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0041'."Especificações da data
          CLEAR p0041.
          REFRESH p0041.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0041
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0041'
            TABLES
              t_outtab                 = p0041
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0057'."Afiliações
          CLEAR p0057.
          REFRESH p0057.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0057
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0057'
            TABLES
              t_outtab                 = p0057
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0167'."Planos do seguro saúde
          CLEAR p0167.
          REFRESH p0167.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0167
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0167'
            TABLES
              t_outtab                 = p0167
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0168'."Planos de seguro
          CLEAR p0168.
          REFRESH p0168.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0168
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0168'
            TABLES
              t_outtab                 = p0168
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0171'."Área de Benefícios
          CLEAR p0171.
          REFRESH p0171.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0171
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0171'
            TABLES
              t_outtab                 = p0171
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0377'."Outros planos
          CLEAR p0377.
          REFRESH p0377.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0377
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_top_of_page   = 'TOP_OF_PAGE'
              i_callback_program       = sy-repid
              i_callback_pf_status_set = 'ZF_STATUS'
              i_callback_user_command  = 'CALLBACK'
              i_structure_name         = 'P0377'
            TABLES
              t_outtab                 = p0377
            EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
        WHEN '0410'."Vale transporte,"BR
          CLEAR p0410.
          REFRESH p0410.
          CALL FUNCTION 'HR_READ_INFOTYPE'
            EXPORTING
              pernr     = it_geninfo-pernr
              infty     = it_geninfo-infty
              begda     = it_geninfo-begda
              endda     = it_geninfo-endda
            TABLES
              infty_tab = p0410
            EXCEPTIONS
              OTHERS    = 2.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'