What's wrong in this program, I want to insert a row using this program

Question

TABLES: zemployee, sscrfields.
TYPES: BEGIN OF t_zemployee,
        empid TYPE zemployee-empid,
        empname TYPE zemployee-empname,
        dob TYPE zemployee-dob,
        dept TYPE zemployee-dept,
        END OF t_zemployee.
DATA: it_zemployee TYPE STANDARD TABLE OF t_zemployee WITH HEADER LINE,
       wa_zemployee TYPE t_zemployee .                       " OCCURS 0.
*DATA: gd_ucomm TYPE sy-ucomm.
LOAD-OF-PROGRAM.
   SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE t1.
   SELECTION-SCREEN SKIP.
   PARAMETERS: empid1 TYPE zemployee-empid,
               empname1 TYPE zemployee-empname,
               dob1 TYPE zemployee-dob,
               dept1 TYPE zemployee-dept.
   SELECTION-SCREEN BEGIN OF LINE.
   SELECTION-SCREEN PUSHBUTTON (10) w_button USER-COMMAND but1.
   SELECTION-SCREEN END OF LINE.
   SELECTION-SCREEN END OF BLOCK block1.
INITIALIZATION.
   t1 = 'ENTER THE VALID DATA'.
*  w_button = 'SAVE'.
   MOVE 'SAVE' TO W_BUTTON.
AT SELECTION-SCREEN.
*  AT SELECTION-SCREEN OUTPUT.
   IF empid1 IS INITIAL OR empname1 IS INITIAL OR dob1 IS INITIAL OR dept1 IS INITIAL.
     MESSAGE: 'PLEASE FILL ALL THE DATA PROPERLY' TYPE 'I'.
   ELSE.
     wa_zemployee-empid = empid1.
     wa_zemployee-empname = empname1.
     wa_zemployee-dob = dob1.
     wa_zemployee-dept = dept1.
     APPEND wa_zemployee TO it_zemployee.
   ENDIF.
  IF sscrfields-ucomm = 'BUT1'.
     sy-ucomm = 'BUT1'.
  ENDIF.
   IF sy-ucomm = 'BUT1'.
     LOOP AT it_zemployee INTO wa_zemployee.
       INSERT zemployee FROM wa_zemployee.
       IF sy-subrc = 0.
         MESSAGE 'DATABASE SUCCESSFULLY RECORDED' TYPE 'S'.
       ELSEIF sy-subrc = 4.
         MESSAGE 'EMPLOYEE ID ALREADY EXISTS' TYPE 'E'.
         CLEAR: empid1, empname1, dob1, dept1.
       ENDIF.
*CLEAR: WA_ZEMPLOYEE, IT_ZEMPLOYEE.
     ENDLOOP.
   ENDIF.

Answer 1

Hi
You have written this definition;
wa_zemployee TYPE t_zemployee
but the type T_ZEMPLOYEE is not like the table ZEMPLOYEE:
TYPES: BEGIN OF t_zemployee,
        empid TYPE zemployee-empid,
        empname TYPE zemployee-empname,
        dob TYPE zemployee-dob,
        dept TYPE zemployee-dept,
        END OF t_zemployee.
so probably some fields of ZEMPLOYEE are missing, you should use this declaration:
DATA WA_ZEMPLOYEE TYPE ZEMPLOYEE
Max