*&---------------------------------------------------------------------*
*& Report Z12_19
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z12_19 NO STANDARD PAGE HEADING LINE-COUNT 20(10).

DATA:
  LV_FIELD TYPE STRING,
  LV_VALUE TYPE STRING.

TOP-OF-PAGE.
  WRITE: 'Employee List -> Page no :', SY-PAGNO.
  ULINE.
  WRITE: / 'Enjoy ABAP', SY-DATUM.
  ULINE.


START-OF-SELECTION.
  SET PF-STATUS 'S1000'.

  SELECT *
    FROM ZEMPLIST
    ORDER BY EMPCD
    INTO TABLE @DATA(LT_ZEMPLIST).

  LOOP AT LT_ZEMPLIST INTO DATA(LS_ZEMPLIST).
    WRITE:/ LS_ZEMPLIST-EMPCD , LS_ZEMPLIST-ENAME.

  ENDLOOP.


AT USER-COMMAND.
  CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.

    WHEN 'CERT'.
      GET CURSOR FIELD LV_FIELD VALUE LV_VALUE.

      IF LV_FIELD EQ 'LS_ZEMPLIST-EMPCD'.
        SELECT
           A~CERTID
          ,A~CNUM
          ,B~CERTNAME
          FROM       ZEMPCERT  AS A
          INNER JOIN ZCERTINFO AS B
            ON A~CERTID EQ B~CERTID
          WHERE A~EMPCD EQ @LV_VALUE
          ORDER BY A~CNUM
          INTO TABLE @DATA(LT_CERT).

        LOOP AT LT_CERT INTO DATA(LS_CERT).
          WRITE :/ LS_CERT-CERTID , LS_CERT-CNUM , LS_CERT-CERTNAME.

        ENDLOOP.
      ENDIF.

  ENDCASE.


AT LINE-SELECTION.
  GET CURSOR FIELD LV_FIELD VALUE LV_VALUE.

  IF LV_FIELD EQ 'LS_ZEMPLIST-EMPCD'.
    SELECT SINGLE *
      FROM ZEMPLIST
      WHERE EMPCD EQ @LV_VALUE
      INTO @DATA(LS_DETAIL).

    WRITE:  LS_DETAIL-EMPCD , LS_DETAIL-ENAME,  /
            LS_DETAIL-DEPCD , LS_DETAIL-PSTION, /
            LS_DETAIL-EMAIL , /
            LS_DETAIL-TEL.
  ENDIF.


END-OF-PAGE.
  ULINE.
  WRITE: 'Footer - Page no :', SY-PAGNO.