E-mail Id's not Correct Against Customer No...

Question

Hi,
In my report, i have a problem that when i selecting E-Mail against Customer no...it is displaying only those, which customer have the E-mail id...otherwise not showing...
Plz. check my code...
REPORT  zcust_master NO STANDARD PAGE HEADING LINE-SIZE 125  .
TABLES : tvkbt, knvv, kna1, j_1imocust, tvtwt, t005u, adr6.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
            vkbur LIKE knvv-vkbur,                   " Sales Office
            bezei LIKE tvkbt-bezei,                   " Branch
            vtweg LIKE knvv-vtweg,                   " Distribution Channel
            kunnr LIKE kna1-kunnr,                   " Customer Number
            name1 LIKE kna1-name1,                   " Name
            name2 LIKE kna1-name2,
            ktokd LIKE kna1-ktokd,                   " Customer Account Group
            erdat LIKE kna1-erdat,                   " Date on which the Record Was Created
            stras LIKE kna1-stras,                   " House number and street
            ort02 LIKE kna1-ort02,                   " District
            ort01 LIKE kna1-ort01,                   " City
            pstlz LIKE kna1-pstlz,                   " Postal Code
            knurl LIKE kna1-knurl,                   " URL
            regio LIKE kna1-regio,
            bezei1 LIKE t005u-bezei,
            vtext LIKE tvtwt-vtext,                  " NAME
            j_1iexcd  LIKE j_1imocust-j_1iexcd,      " ECC Number
            j_1icstno LIKE j_1imocust-j_1icstno,     " CST Number
            j_1ilstno LIKE j_1imocust-j_1ilstno,     " LST Number
            j_1ipanno LIKE j_1imocust-j_1ipanno,     " Permanent Account Number
            j_1iexrn  LIKE j_1imocust-j_1iexrn,      " Excise Registration Number
            j_1iexrg  LIKE j_1imocust-j_1iexrg,      " Excise Range
            j_1iexdi  LIKE j_1imocust-j_1iexdi,      " Excise Division
            j_1iexco  LIKE j_1imocust-j_1iexco,      " Excise Commissionerate
            smtp_addr LIKE adr6-smtp_addr,
       END OF itab.
DATA    g_user_command TYPE slis_formname VALUE 'USER_COMMAND'.
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos  LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   : vkbur FOR tvkbt-vkbur.
SELECT-OPTIONS   : ktokd FOR kna1-ktokd.
SELECT-OPTIONS   : vtweg FOR knvv-vtweg.
SELECT-OPTIONS   : kunnr FOR kna1-kunnr.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
'BEZEI'    'ITAB'    'BRANCH' ,
'KUNNR'    'ITAB'    'CUSTOMER CODE' ,
'NAME1'    'ITAB'    'CUSTOMER NAME',
'NAME2'    'ITAB'    'NAME2',
'VTWEG'    'ITAB'    'DISTT. CHANNEL',
'STRAS'    'ITAB'    'HOUSE NO. & STREET',
'ORT02'    'ITAB'    'DISTRICT',
'ORT01'    'ITAB'    'CITY',
'PSTLZ'    'ITAB'    'POSTAL CODE' ,
'BEZEI1'   'ITAB'    'REGION',
'J_1IEXCD' 'ITAB'    'ECC NUMBER',
'J_1IEXRN' 'ITAB'    'E/R NO.',
'J_1IEXRG' 'ITAB'    'Ex. RANGE',
'J_1IEXDI' 'ITAB'    'Ex. DIVISION',
'J_1IEXCO' 'ITAB'    'Ex. Commissionerate' ,
'J_1ICSTNO' 'ITAB'   'CST NUMBER' ,
'J_1ILSTNO' 'ITAB'   'LST NUMBER' ,
'J_1IPANNO' 'ITAB'   'PAN NO.' ,
'KTOKD'    'ITAB'    'ACC. GROUP',
'ERDAT'    'ITAB'    'CREATED ON',
'SMTP_ADDR' 'ITAB'    'E-MAIL ID',
'VTEXT'    'ITAB'    'NAME' .
SELECT akunnr aname1 aname2 aktokd aerdat astras aort02 aort01 apstlz aknurl a~regio
                bvtweg bvkbur binco2   csmtp_addr
                INTO CORRESPONDING FIELDS OF TABLE itab
                FROM kna1 AS a
                INNER JOIN knvv AS b ON akunnr = bkunnr
                INNER JOIN adr6 AS c ON aadrnr = caddrnumber
                WHERE a~kunnr IN kunnr
                AND   a~ktokd IN ktokd
                AND   b~vtweg IN vtweg
                AND   b~vkbur IN vkbur.
IF sy-subrc <> 0.
  MESSAGE 'DATA NOT FOUND.' TYPE 'I'(001).
ENDIF.
SORT itab BY kunnr.
LOOP AT itab.
  SELECT SINGLE bezei FROM tvkbt INTO itab-bezei WHERE vkbur = itab-vkbur.
  MODIFY itab INDEX sy-tabix TRANSPORTING bezei.
  SELECT SINGLE bezei FROM t005u INTO itab-bezei1 WHERE bland = itab-regio AND spras EQ 'EN' AND land1 EQ 'IN'.
  MODIFY itab INDEX sy-tabix TRANSPORTING bezei1.
  SELECT SINGLE j_1iexcd j_1iexrn j_1iexrg j_1iexdi j_1iexco j_1icstno j_1ilstno j_1ipanno FROM j_1imocust
  INTO (itab-j_1iexcd, itab-j_1iexrn, itab-j_1iexrg, itab-j_1iexdi, itab-j_1iexco, itab-j_1icstno, itab-j_1ilstno, itab-j_1ipanno)
  WHERE kunnr = itab-kunnr.
  MODIFY itab INDEX sy-tabix TRANSPORTING j_1iexcd j_1iexrn j_1iexrg j_1iexdi j_1iexco j_1icstno j_1ilstno j_1ipanno.
  SHIFT itab-kunnr LEFT DELETING LEADING '0'.                  " For Removing 0's from KUNNR
  MODIFY itab.
ENDLOOP.
layout-zebra = 'X' .
layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program      = 'ZCUST_MASTER'
    i_callback_user_command = g_user_command
    is_layout               = layout
    it_fieldcat             = it_fld_catalog
    i_default               = 'X'
    i_save                  = 'A'
  TABLES
    t_outtab                = itab
  EXCEPTIONS
    program_error           = 1
    OTHERS                  = 2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*&      Form  FILL_CATALOG1
      text
     -->P_FIELDNAME  text
     -->P_REF_TABLE  text
     -->P_SCRTEXT    text
FORM fill_catalog1  USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
  CLEAR : wa_fld_catalog.
  wa_fld_catalog-fieldname  = p_fieldname.
  wa_fld_catalog-tabname    = p_ref_table.
  wa_fld_catalog-seltext_s  = p_scrtext.
  wa_fld_catalog-seltext_m  = p_scrtext.
  wa_fld_catalog-seltext_l  = p_scrtext.
  wa_fld_catalog-outputlen = 15.
  APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1
      FORM user_command
-->  r_ucomm
-->  rs_selfield
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
  DATA: l_ta(4) TYPE c VALUE 'XD03'.
  CASE r_ucomm.
    WHEN '&IC1'.                             "dobbleclick
      READ TABLE itab INTO itab INDEX rs_selfield-tabindex.
      CHECK sy-subrc = 0.
      IF rs_selfield-fieldname = 'KUNNR'.
        SET PARAMETER ID 'KUN' FIELD itab-kunnr.
        CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.  "# EC*
      ENDIF.
      CLEAR r_ucomm.
  ENDCASE.
ENDFORM.                    "user_command
Plz let me know....
thanks

Answer 1

change select query like dis...
SELECT akunnr aname1 aname2 aktokd aerdat astras aort02 aort01 apstlz aknurl a~regio
bvtweg bvkbur binco2 csmtp_addr
INTO CORRESPONDING FIELDS OF TABLE itab
FROM kna1 AS a
INNER JOIN knvv AS b ON akunnr = bkunnr
LEFT OUTER JOIN adr6 AS c ON aadrnr = caddrnumber
WHERE a~kunnr IN kunnr
AND a~ktokd IN ktokd
AND b~vtweg IN vtweg
AND b~vkbur IN vkbur.