REPORT z11_02.

DATA: gt_emplist TYPE TABLE OF zemplist,
      gs_emplist TYPE zemplist.

START-OF-SELECTION.
  WRITE: 'Double-click the list of employees',
       / '------------------------------------'.
  SKIP.
  SELECT *
    FROM zemplist
    UP TO 5 ROWS
    INTO TABLE @gt_emplist.

  LOOP AT gt_emplist INTO gs_emplist.
    WRITE:/ gs_emplist-empcd, gs_emplist-depcd,
            gs_emplist-pstion, gs_emplist-ename.
    HIDE:   gs_emplist-empcd, gs_emplist-depcd,
            gs_emplist-pstion, gs_emplist-ename.

    CLEAR gs_emplist.
  ENDLOOP.

AT LINE-SELECTION.
  SET PARAMETER ID: 'EMP' FIELD gs_emplist-empcd,
                       'DEP' FIELD gs_emplist-depcd.

  CALL TRANSACTION 'Z11_03' AND SKIP FIRST SCREEN.