Z_INPUT

*&---------------------------------------------------------------------*
*& Report  Z_INPUT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_INPUT.
TABLES: ZASG_EMP.
TYPES : BEGIN OF line01_typ,
        id LIKE ZASG_EMP-id,
        name LIKE ZASG_EMP-name,
        position LIKE ZASG_EMP-empposition,
  END OF line01_typ.


DATA: l_subrc TYPE SY-SUBRC,
      wa_emp TYPE ZASG_EMP.


*SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.
*SELECTION-SCREEN BEGIN OF LINE.
*&SELECTION-SCREEN COMMENT (32) A1ID FOR FIELD EMP_ID.
PARAMETERS :     EMP_ID LIKE ZASG_EMP-id OBLIGATORY.
*SELECTION-SCREEN END OF LINE.

*SELECTION-SCREEN BEGIN OF LINE.
*&SELECTION-SCREEN COMMENT (32) A1NAME FOR FIELD EMP_NAME.
PARAMETERS :     EMP_NAME LIKE ZASG_EMP-name OBLIGATORY.
*SELECTION-SCREEN END OF LINE.
*
*SELECTION-SCREEN BEGIN OF LINE.
*&SELECTION-SCREEN COMMENT (32) A1Pos FOR FIELD EMP_POS.
PARAMETERS :     EMP_POS LIKE ZASG_EMP-empposition OBLIGATORY as listbox visible length 20.
*SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK SELECTION.

wa_emp-id = EMP_ID.
wa_emp-name = EMP_NAME.
wa_emp-empposition = EMP_POS.

IF wa_emp-name = 'ADMIN'.
MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '011'.
ELSE.

CALL FUNCTION 'Z_ASG_FN_INSERT'
  EXPORTING
    wa_emp             = wa_emp

  IMPORTING

   e_subrc          = l_subrc.

if l_subrc = 1.
  MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '005'.
 ELSEIF l_subrc = 0.
   MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '000'.
   EXIT.
   ELSEIF l_subrc = 2.
     MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '001'.
     EXIT.
      ELSEIF l_subrc = 3.
     MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '002'.
     EXIT.
 ENDIF.
ENDIF.
INITIALIZATION.