*&---------------------------------------------------------------------*
*& Report  Z_PERFORM_PRACTISE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z_perform_practise.

INFOTYPES: 0001, 0006.

NODES: pernr.

TABLES: pa0001, pa0006, v_t001, t001.



**********************************************************************


**>tabela na import adresu pracownika.
TYPES: BEGIN OF p0006_imp,
  street LIKE pa0006-stras,
  city   LIKE pa0006-ort01,
END OF p0006_imp.
DATA: tab_p0006 type STANDARD TABLE OF p0006_imp INITIAL SIZE 0,
      wa_p0006 TYPE p0006_imp.



**>tabela na import miasta jedn.gosp
TYPES: BEGIN OF v_t001_imp,
  city LIKE v_t001-ort01,
END OF v_t001_imp.
DATA: tab_v_t001 TYPE STANDARD TABLE OF v_t001_imp INITIAL SIZE 0,
      wa_v_t001 TYPE v_t001..


**********************************************************************

  GET pernr.

  PERFORM get_data.

  PERFORM view_data.

*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_data.



ENDFORM.                    "get_data

*&---------------------------------------------------------------------*
*&      Form  view_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM view_data.



ENDFORM.                    "view_data