Regarding selection statement

Question

hi experts,
In my report i have selecttion screen, in selection screen 10 text box. like company code, first name , last name.... etc. what i want user enter company code in first text box and press execute after that company code related data automatically fill in all other text box. like first name = xxxx, last name = yyyy.
so which query i use for this statement.
plz help me how will i use the  query

Answer 1

Try the below code :
REPORT ZDESKDLC NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA DECLARATION
TABLES : ZDESKDLC.
data: itab_zdeskdlc like zdeskdlc occurs 0 with header line.
DATA wa TYPE zdeskdlc.
data wa_zdeskdlc like zdeskdlc.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: CCOD LIKE ZDESKDLC-CCODE MODIF ID ABC.
PARAMETERS: DESKCODE LIKE ZDESKDLC-DESK_CODE MODIF ID ABC.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION SCREEN WITH RADIO BUTTON
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
PARAMETERS: DELETE RADIOBUTTON GROUP G1 USER-COMMAND R DEFAULT 'X'.
PARAMETERS: UPDATE RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-001.
PARAMETERS: CCOD1 LIKE ZDESKDLC-CCODE MODIF ID DEF,
DESKCD LIKE ZDESKDLC-DESK_CODE MODIF ID DEF,
SR_MANAG LIKE ZDESKDLC-SR_MANAGEMENT MODIF ID DEF,
LASTNAME LIKE ZDESKDLC-LAST_NAME MODIF ID DEF,
FIRSTNM LIKE ZDESKDLC-FIRST_NAME MODIF ID DEF,
DEPART LIKE ZDESKDLC-DEPARTMENT MODIF ID DEF,
ADM_SYS LIKE ZDESKDLC-ADMIN_SYSTEM MODIF ID DEF,
RACF_ID LIKE ZDESKDLC-RACF_ID MODIF ID DEF,
OPEN_DT LIKE ZDESKDLC-OPEN_DATE MODIF ID DEF,
CLOSE_DT LIKE ZDESKDLC-CLOSE_DATE MODIF ID DEF,
SAPUSRID LIKE ZDESKDLC-SAP_USER_ID MODIF ID DEF.
SELECTION-SCREEN END OF BLOCK B3.
<b>AT SELECTION-SCREEN.
if not CCOD1 is initial.
clear : wa_zdeskdlc.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = CCOD1
IMPORTING
   OUTPUT        = CCOD1
select single * from zdeskdlc into wa_zdeskdlc
                         where CCODE = CCOD1.
if sy-subrc eq 0.
DESKCD = wa_zdeskdlc-DESK_CODE.
SR_MANAG = wa_zdeskdlc-SR_MANAGEMENT.
LASTNAME =  wa_zdeskdlc-LAST_NAME.
FIRSTNM =  wa_zdeskdlc-FIRST_NAME .
DEPART =  wa_zdeskdlc-DEPARTMENT.
ADM_SYS =  wa_zdeskdlc-ADMIN_SYSTEM.
RACF_ID =  wa_zdeskdlc-RACF_ID.
OPEN_DT =  wa_zdeskdlc-OPEN_DATE.
CLOSE_DT =  wa_zdeskdlc-CLOSE_DATE.
SAPUSRID =  wa_zdeskdlc-SAP_USER_ID.
endif.
endif.</b>
AT SELECTION-SCREEN.
AT SELECTION-SCREEN OUTPUT.
IF DELETE = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'DEF'.
SCREEN-ACTIVE = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF UPDATE = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'ABC'.
SCREEN-ACTIVE = '0'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
START-OF-SELECTION
start-of-selection.
DELETE QUERY
IF DELETE = 'X'.
DELETE from zdeskdlc where
CCODE = CCOD AND
DESK_CODE = DESKCODE.
IF SY-SUBRC = 0.
MESSAGE s001(zjig) WITH 'data delete successfully'.
ELSE.
MESSAGE s001(zjig) WITH 'NO RECORD FOUND'.
ENDIF.
ENDIF.
UPDATE QUERY
IF UPDATE = 'X'.
**Read table ZDESKDLC with key CCOD = ZDESKDLC-CCODE.,
**if sy-subrc = 0.
**"data is already inserted".
ZDESKDLC-CCODE = CCOD1.
ZDESKDLC-DESK_CODE = DESKCD.
ZDESKDLC-SR_MANAGEMENT = SR_MANAG.
ZDESKDLC-LAST_NAME = LASTNAME.
ZDESKDLC-FIRST_NAME = FIRSTNM.
ZDESKDLC-DEPARTMENT = DEPART.
ZDESKDLC-ADMIN_SYSTEM = ADM_SYS.
ZDESKDLC-RACF_ID = RACF_ID.
ZDESKDLC-OPEN_DATE = OPEN_DT.
ZDESKDLC-CLOSE_DATE = CLOSE_DT.
ZDESKDLC-SAP_USER_ID = SAPUSRID.
*select single *
**ccode desk_code sr_management last_name first_name department admin_system racf_id open_date close_date sap_user_id
**(itab_zdeskdlc-ccode, itab_zdeskdlc-desk_code, itab_zdeskdlc-sr_management, itab_zdeskdlc-last_name, itab_zdeskdlc-first_name, itab_zdeskdlc-department,
**itab_zdeskdlc-admin_system, itab_zdeskdlc-racf_id, itab_zdeskdlc-open_date,itab_zdeskdlc-close_date itab_zdeskdlc-sap_user_id)
*from zdeskdlc where CCODE = ccod1 and desk_code = deskcd.
***write:
**endselect.
**select * from zdeskdlc into wa where CCODE = ccod1 and desk_code = deskcd.
**endselect.
*write:/ wa-ccode = ccod1.
**if sy-subrc ne 0.
MESSAGE s001(zjig) WITH 'data modify successfully'.
**endif.
MODIFY ZDESKDLC.
IF SY-SUBRC = 0.
MESSAGE s001(zjig) WITH 'data modify successfully'.
MESSAGE s001(zjig) WITH 'DATA IS ALREADY INSERTED'.
ENDIF.
ENDIF.
see the below program ,which i tested
REPORT ZTEST_91 .
tables : marc.
data wa_marc like marc.
parameters : p_matnr like marc-matnr,
             p_werks like marc-werks.
at selection-screen.
if not  p_matnr is initial.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = p_matnr
IMPORTING
   OUTPUT        = p_matnr
select single * from marc into wa_marc
                where matnr = p_matnr.
if sy-subrc eq 0.
p_werks = wa_marc-werks.
endif.
endif.
Thanks
Seshu