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.

hugo-dc

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

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

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

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

import ctypes

ctypes.windll.user32.SystemParametersInfoA(20, 0, "myimage.jpg" , 0)

hugo-dc

CLASS class_name DEFINITION FOR TESTING.
    "#AU Risk_level Harmless
    "#AU Duration Short
    PRIVATE SECTION.
        METHODS test_something FOR TESTING.
        METHODS test_something_else FOR TESTING.
ENDCLASS.


CLASS class_name IMPLEMENTATION.

hugo-dc

class:  
    cl_aunit_assert

methods:
    ASSERT_EQUALS
        Validates the equality of two data objects
    ASSERT_BOUND
        Asserts the validity of the reference of a reference variable
    ASSERT_NOT_BOUND
        Asserts whether the reference of a reference variable is invalid

hugo-dc

* At dynpro logic, after PAI
PROCESS ON VALUE-REQUEST.
  FIELD zconcent_k-folio MODULE matchcode_module.



* wherever you want
MODULE matchcode_module INPUT.
 DATA: t_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

hugo-dc

* in a PAI module

PERFORM compute_scrolling_in_tc USING 'TABLE_CONTROL_NAME'
                                            'P--'.