SOME FIELDS OF WORK AREA ARE CONVERTED TO ***** AT AT NEW STATEMENT

Question

HELLO
SOME OF THE FIELDS OF WORK AREA ARE CONVERTED INTO *********** AT AT NEW STATEMENT .FIND BELOW THE CODE
*& Report  YTEST_OBJECTS7
REPORT  YTEST_OBJECTS7.
Program Description
Author.........: Jitendra Dash                                       *
Creation date..: 17/09/2010                                                    *
GAP ID/FS Id...:                                                     *
Transport......:                                                     *
Description u2026..:                                                     *
CHANGE HISTORY u2013 Should be completed in reverse date order           *
Revised by........: <Developer name>                                 *
Change date.......: Date of creation>                                *
CR/Defect No......:  <Change Request No>/ <Defect#<xxx>              *
Transport.........: <Request No>                                     *
Description.......: Description about modification                   *
Data Declaration
TYPES: BEGIN OF gx_input,
         NEMI      TYPE EXT_UI,
         DIVISION  TYPE SPARTE ,
         DATE      TYPE ERDAT,
         DATE1     TYPE ERDAT,
       END OF gx_input.
TYPES: BEGIN OF gx_input1,
         NEMI      TYPE EXT_UI,
         DIVISION  TYPE SPARTE ,
         DATE      TYPE ERDAT,
         DATE1     TYPE ERDAT,
         int_ui    TYPE INT_UI,
         ANlage    type   anlage,
         SERVICE   TYPE SERCODE,
         SERVICEID TYPE SERVICE_PROV,
         SPARTE    TYPE SPARTE,
        END OF gx_input1.
TYPES : BEGIN OF gx_euitrans,
        INT_UI TYPE INT_UI,
        EXT_UI type EXT_UI,
        END OF gx_euitrans.
TYPES : BEGIN OF gx_eservice,
        INT_UI TYPE INT_UI,
        SERVICE TYPE SERCODE,
        SERVICEID TYPE SERVICE_PROV,
        SPARTE    TYPE SPARTE,
        END OF gx_eservice.
TYPES : BEGIN OF gx_inst,
        int_ui TYPE INT_UI,
        ANlage type   anlage,
        END OF gx_inst.
TYPES : BEGIN OF gx_ever,
        ANLAGE TYPE anlage,
        EINZDAT TYPE EINZDAT,
        AUSZDAT TYPE AUSZDAT,
        VERTRAG type VERTRAG,
        vkonto TYPE VKONT_KK,
        END OF gx_ever .
TYPES : BEGIN OF gx_fkkvkp,
        VKONT type VKONT_KK,
        GPART type GPART_KK,
        END OF gx_fkkvkp.
DATA : GIT_INPUT TYPE STANDARD TABLE OF GX_INPUT,
       git_euitrans TYPE STANDARD TABLE OF gx_euitrans,
       git_eservice TYPE STANDARD TABLE OF gx_eservice,
       git_inst TYPE STANDARD TABLE OF gx_inst,
       git_ever TYPE STANDARD TABLE OF  gx_ever,
       GIT_INPUT1 TYPE STANDARD TABLE OF GX_INPUT1,
       GIT_fkkvkp TYPE STANDARD TABLE OF GX_fkkvkp,
       WA_INPUT TYPE gx_input,
       wa_euitrans LIKE LINE OF git_euitrans,
       wa_eservice like LINE OF git_eservice,
       WA_inst LIKE LINE OF git_inst,
       wa_ever LIKE LINE OF git_ever,
       wa_INPUT1 like LINE OF git_INPUT1,
       wa_fkkvkp like LINE OF GIT_fkkvkp.
DATA: gv_v_localfile TYPE localfile,
      gv_g_localfile type string,
      gv_g_alocalfile type string,
      gv_g_sender type SERVICE_PROV,
      gv_g_reciever type SERVICE_PROV.
CONSTANTS : GC_AINP TYPE c LENGTH 50 VALUE '/tmp'.
************Selection screen for input *********************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS : p_rad1 RADIOBUTTON GROUP grp DEFAULT 'X' USER-COMMAND chk,
             p_rad2 RADIOBUTTON GROUP grp,
             p_file TYPE file_table-filename MODIF ID m1,
             p_afile TYPE file_table-filename MODIF ID m2.
SELECTION-SCREEN END OF BLOCK b1.
***************Initialization*****************************
INITIALIZATION.
  t1 = text-001.
***Selection of Appl ser and Presen ser for I/P file******
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_rad1 = 'X'.
      IF screen-group1 = 'M2'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF p_rad2 = 'X'.
      IF screen-group1 = 'M1'.
        screen-active = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
**F4 help for inputting the Filename from presentation Ser*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      program_name  = sy-repid
      dynpro_number = sy-dynnr
      field_name    = p_file
    CHANGING
      file_name     = gv_v_localfile
    EXCEPTIONS
      mask_too_long = 1
      OTHERS        = 2.
  IF sy-subrc = 0.
    MOVE gv_v_localfile TO p_file.
    move gv_v_localfile to gv_g_localfile.
  ENDIF.
***F4 help for file on Application Server*******************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_afile.
  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = GC_AINP
      filemask         = ' '
    IMPORTING
      serverfile       = p_afile
    EXCEPTIONS
      canceled_by_user = 1
      OTHERS           = 2.
  IF sy-subrc = 0.
    move p_afile to gv_g_alocalfile.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
START-OF-SELECTION.
  IF p_rad1 = 'X'.
*************Upload file into Itab from pres server*********
    CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
         FILENAME                      = gv_g_localfile
  FILETYPE                      = 'ASC'
        HAS_FIELD_SEPARATOR           = '|'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
       TABLES
         DATA_TAB                      = GIT_INPUT
    EXCEPTIONS
      FILE_OPEN_ERROR               = 1
      FILE_READ_ERROR               = 2
      NO_BATCH                      = 3
      GUI_REFUSE_FILETRANSFER       = 4
      INVALID_TYPE                  = 5
      NO_AUTHORITY                  = 6
      UNKNOWN_ERROR                 = 7
      BAD_DATA_FORMAT               = 8
      HEADER_NOT_ALLOWED            = 9
      SEPARATOR_NOT_ALLOWED         = 10
      HEADER_TOO_LONG               = 11
      UNKNOWN_DP_ERROR              = 12
      ACCESS_DENIED                 = 13
      DP_OUT_OF_MEMORY              = 14
      DISK_FULL                     = 15
      DP_TIMEOUT                    = 16
      OTHERS                        = 17
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ELSEIF p_rad2 = 'X'.
*************Upload file into Itab from Applic server*********
************file should be ; seperated and not tab seper******
   TRANSLATE gv_g_alocalfile USING '\/'.
   OPEN DATASET gv_g_alocalfile FOR INPUT MESSAGE gv_LC_MESSAGE in TEXT MODE ENCODING DEFAULT.
   IF sy-subrc = 0.
     DO.
       READ DATASET gv_g_alocalfile INTO wa_xls.
       IF sy-subrc IS NOT INITIAL.
         EXIT.
       ELSE.
         APPEND wa_xls TO git_xls.
       ENDIF.
     ENDDO.
   ENDIF.
   close DATASET gv_g_alocalfile.
  ENDIF.
  SELECT INT_UI EXT_UI from EUITRANS
                       into CORRESPONDING FIELDS OF TABLE git_euitrans
                       for ALL ENTRIES IN  GIT_INPUT
                       WHERE ext_ui = GIT_INPUT-NEMI.
  SElect INT_UI
         SERVICE
         SERVICEID
         SPARTE    from ESERVICE
                   into CORRESPONDING FIELDS OF TABLE git_eservice
                   FOR ALL ENTRIES IN git_euitrans
                   where INT_UI = git_euitrans-INT_UI .
  SELECT INT_UI
         ANLAGE from euiinstln
                into CORRESPONDING FIELDS OF TABLE GIT_INST
                FOR ALL ENTRIES IN  git_eservice
                WHERE INT_UI = git_eservice-INT_UI.
  LOOP AT git_eservice into wa_eservice.
    READ TABLE git_euitrans into wa_euitrans
                            with KEY int_ui = wa_eservice-int_ui.
    IF SY-SUBRC = 0.
      READ TABLE git_input into wa_input
                           WITH key NEMI = wa_euitrans-EXT_UI.
      IF SY-SUBRC = 0.
        READ TABLE  GIT_INST into WA_INST
                                 with key int_ui = wa_eservice-int_ui.
         IF Sy-subrc = 0.
              wa_input1-NEMI = wa_input-NEMI      .
              wa_input1-DIVISION = wa_input-DIVISION.
              wa_input1-DATE = wa_input-DATE.
              wa_input1-DATE1 = wa_input-DATE1.
              wa_input1-int_ui = wa_eservice-int_ui.
              wa_input1-anlage = WA_INST-anlage.
              wa_input1-SERVICE = wa_eservice-service.
              wa_input1-SERVICEID = wa_eservice-serviceid.
              wa_input1-SPARTE  = wa_eservice-sparte.
        Append wa_input1 to git_input1.
         ENDIF.
      ENDIF.
    ENDIF.
    clear : wa_eservice,wa_input,WA_INST,wa_euitrans,wa_input1 .
  ENDLOOP.
  SELECT anlage
         EINZDAT
         AUSZDAT
         VERTRAG
         VKONTO  from ever
                 into CORRESPONDING FIELDS OF TABLE git_ever
                 FOR ALL ENTRIES IN git_input1
                 WHERE anlage = git_input1-ANLAGE
                   and EINZDAT = git_input1-DATE
                   or  AUSZDAT = git_input1-DATE1.
  Select Vkont Gpart from fkkvkp
                     into CORRESPONDING FIELDS OF TABLE git_fkkvkp
                     for ALL ENTRIES IN git_ever
                     where  Vkont = git_ever-Vkonto.
LOOP AT  git_input1 INTO wa_input1 .
IF wa_input1-SPARTE = 01  .
CASE wa_input1-SERVICE.
  WHEN 'FRMP'.
    gv_g_sender = wa_input1-SERVICEID.
  WHEN 'LNSP'.
    gv_g_reciever = wa_input1-SERVICEID.
ENDCASE.
ELSEIF wa_input1-SPARTE = 02 .
CASE wa_input1-SERVICE.
  WHEN 'FRO'.
    gv_g_sender = wa_input1-SERVICEID.
  WHEN 'DB'.
    gv_g_reciever = wa_input1-SERVICEID.
ENDCASE.
ENDIF.
data : int_ui TYPE INT_UI.
*int_ui = wa_input1-int_ui .
AT NEW int_ui .
READ TABLE git_ever into wa_ever with key  anlage = wa_input1-anlage.
READ TABLE git_fkkvkp INTO wa_fkkvkp with key Vkont = wa_ever-Vkonto.
CALL FUNCTION 'ZIN_COMEV_CUSTDETAILNOTIF_OUT'
  EXPORTING
    Y_SENDER              = gv_g_sender
    Y_RECEIVER            = gv_g_reciever
    Y_PARTNER             = wa_fkkvkp-gpart
    Y_BASIC_PROCESS       = 'ZCDNO'
  Y_SWITCHNUM           =
  Y_SEN_LOAD            =
    Y_INTUI               = wa_input1-int_ui
  Y_TRANSACTIONID       =
    Y_DATE                = wa_input1-DATE
IMPORTING
  X_TASK_ID             =
TABLES
   IDOC_STATUS           =
   IDOC_CONTRL           =
   XYT_ERROR             =
EXCEPTIONS
  GENERAL_FAULT         = 1
  NOT_FOUND             = 2
  OTHERS                = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDAT.
ENDLOOP.
IN THIS PROGRAM AT AT NEW STATEMENT IN LOOP SOME OF THE FIELDS OF wa_input1 IS CONVERTED TO ***** E.G  wa_input1-anlage.
pLEASE HELP ME OUT

Answer 1

HELLO
My Q is some fields at AT NEW statement turns into *****.Please help me out
TYPES: BEGIN OF gx_input1,
         NEMI      TYPE EXT_UI,
         DIVISION  TYPE SPARTE ,
         DATE      TYPE ERDAT,
         DATE1     TYPE ERDAT,
         int_ui    TYPE INT_UI,
         ANlage    type   anlage,
         SERVICE   TYPE SERCODE,
         SERVICEID TYPE SERVICE_PROV,
         SPARTE    TYPE SPARTE,
        END OF gx_input1.
GIT_INPUT1 TYPE  gx_input1.
LOOP AT  git_input1 INTO wa_input1 .
AT NEW int_ui .----
>hERE FIELDS OF wa_input1 ARE TURNED INTO *                                                                               
EX: wa_input1-ANLAGE =******** AFTER AT IN COMMAND.
END AT
eNDLOOP