Selection screen program to fetch name from ID in SAP ABAP.

REPORT Z_SELECTIONSCREEN.

TYPES: BEGIN OF TY_ZCUSTOMERDATA,
        CUSID TYPE ZCUSID,
        CNAME TYPE ZCUNAME,
       END OF TY_ZCUSTOMERDATA.

data WA_ZCUSTOMERDATA TYPE TY_ZCUSTOMERDATA.

PARAMETERS ID TYPE I.
PARAMETERS: NAME(40) TYPE C MODIF ID IN1 .

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF ID <> NAME .
      IF SCREEN-GROUP1 = 'IN1' .
        SCREEN-ACTIVE = 1.
        MODIFY SCREEN.
      ENDIF.
    ELSE.
      IF SCREEN-GROUP1 = 'IN1' .
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
  SELECT SINGLE CUSID
     CNAME FROM ZCUSTOMERDATA INTO
     wa_ZCUSTOMERDATA WHERE CUSID = ID.

     NAME =  wa_ZCUSTOMERDATA-CNAME.