hugo-dc

REPORT ztest.

DATA:
      v_01 TYPE i VALUE '5',
      v_02 TYPE i VALUE '10'.

FIELD-SYMBOLS: <value> TYPE i.

ASSIGN ('V_02') TO <value>.

hugo-dc

MESSAGE ID messtab1-msgid
                  TYPE messtab1-msgtyp
                  NUMBER messtab1-msgnr
                  WITH messtab1-msgv1 messtab1-msgv2 messtab1-msgv3
                  messtab1-msgv4.

LOOP AT MESSTAB.
        select single * from t100 where sprsl = messtab-msgspra
                                  and   arbgb = messtab-msgid
                                  and   msgnr = messtab-msgnr.

hugo-dc

begin of bukrs occurs 0, 
  SIGN(1)    type c,       " I= Include E=Exclude
  OPTION(2)  type c,       " EQ= Equals  BT= Between  NE= Not Equals
  LOW        like bukrs, 
  HIGH       like bukrs, 
end of bukrs. 

hugo-dc

INITIALIZATION.
 LOOP AT SCREEN.
    IF screen-name CS 'FIELDNAME'.
      screen-required = 2.
      MODIFY SCREEN.
    ENDIF.
 ENDLOOP.

hugo-dc

DATA:
        ti_tvgrt LIKE tvgrt OCCURS 0 WITH HEADER LINE.

  DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.


  DATA: BEGIN OF t_value OCCURS 0,
    vkgrp LIKE tvgrt-vkgrp,
    buzei LIKE tvgrt-bezei.
  DATA: END OF t_value.