ABAP statement problem

Question

Dear all:
          Please help.
          If i will be create 25 add on tables, each table include the same fields for user id, create date, create time and terminal id. Each add on table will be create table maintenance.  For set these four fields value, my original as below, but it's will be a long statement. I want to know that have function or other statement to do this. Thanks a lot!!
  CASE p_dynnr.
    WHEN '0001'. "for add on table ZZRDF001
      zzrdf001-usnam = sy-uname. "user id
      zzrdf001-datum = sy-datum. "create/change date
      zzrdf001-uzeit = sy-uzeit. "create/change time
      zzrdf001-term  = p_term.    "terminal id
    WHEN '0002'. "for add on table ZZRDF01
      zzrdf01-usnam = sy-uname. "user id
      zzrdf01-datum = sy-datum. "create/change date
      zzrdf01-uzeit = sy-uzeit. "create/change time
      zzrdf01-term  = p_term.    "terminal id
    WHEN '0003'."for add on table ZZRDF02
      zzrdf02-usnam = sy-uname. "user id
      zzrdf02-datum = sy-datum. "create/change date
      zzrdf02-uzeit = sy-uzeit. "create/change time
      zzrdf02-term  = p_term.    "terminal id
    WHEN '0005'. "for add on table ZZRDF04
      zzrdf04-usnam = sy-uname. "user id
      zzrdf04-datum = sy-datum. "create/change date
      zzrdf04-uzeit = sy-uzeit. "create/change time
      zzrdf04-term  = p_term.    "terminal id
  ENDCASE.
Moderator message: please use more descriptive subject lines from now on.
Edited by: Thomas Zloch on Jul 14, 2010 12:54 PM

Answer 1

Hi try the following code to reduce the size and improve the readability
DATA : BEGIN OF y_struc,
          usnam LIKE zzrdf001-usnam,
          datum LIKE zzrdf001-datum,
          uzeit LIKE zzrdf001-uzeit,
          term  LIKE zzrdf001-term,
        END OF y_struc.
MOVE : sy-uname TO y_struc-usnam
     , sy-datum TO y_struc-datum
     , sy-uzeit TO y_struc-uzeit
     , p_term   TO y_struc-term
CASE p_dynnr.
  WHEN '0001'. "for add on table ZZRDF001
    MOVE-CORRESPONDING y_struc TO zzrdf001.
  WHEN '0002'. "for add on table ZZRDF01
    MOVE-CORRESPONDING y_struc TO zzrdf01.
  WHEN '0003'."for add on table ZZRDF02
    MOVE-CORRESPONDING y_struc TO zzrdf02.
  WHEN '0005'. "for add on table ZZRDF04
    MOVE-CORRESPONDING y_struc TO zzrdf04.
ENDCASE.
or you can use teh MACROS for eliminating MOVE CORRESPONDENCE statement to improve the performance
DATA : BEGIN OF y_struc,
          usnam LIKE zzrdf001-usnam,
          datum LIKE zzrdf001-datum,
          uzeit LIKE zzrdf001-uzeit,
          term  LIKE zzrdf001-term,
        END OF y_struc.
MOVE : sy-uname TO y_struc-usnam
     , sy-datum TO y_struc-datum
     , sy-uzeit TO y_struc-uzeit
     , p_term   TO y_struc-term
CASE p_dynnr.
  WHEN '0001'. "for add on table ZZRDF001
    M_FILL_TABLE y_struc zzrdf001.
  WHEN '0002'. "for add on table ZZRDF01
    M_FILL_TABLE y_struc zzrdf01.
  WHEN '0003'."for add on table ZZRDF02
    M_FILL_TABLE y_struc zzrdf02.
  WHEN '0005'. "for add on table ZZRDF04
    M_FILL_TABLE y_struc zzrdf04.
ENDCASE.
DEFINE M_FILL_TABLE.
  MOVE : &1-usnam to &2-usnam
       , &1-datum to &2-usnam
       , &1-uzeit to &2-uzeit
       , &1-term  to &2-term
END-OF-DEFINITION.
Edited by: Senthil Kumar on Jul 14, 2010 4:09 PM