How to Read set values In sap abap programming language

-
Some time requirment to add some values and read some values in set 

   TYPES: BEGIN OF TY_UNAME,
          BNAME TYPE USR01-BNAME,
          PLANT TYPE CHAR4,        
         END OF TY_UNAME.
  DATA: t_set_values  TYPE TABLE OF rgsb4,
        wa_tsetvalues TYPE rgsb4,
        LT_UNAME TYPE TABLE OF TY_UNAME,
        LS_UNAME TYPE TY_UNAME.

  CALL FUNCTION 'G_SET_GET_ALL_VALUES'
    EXPORTING
      client        = sy-mandt
      setnr         = 'ZP2POFFAPR'
      table         = 'USR01'
      class         = '0000'
      fieldname     = 'BNAME'
    TABLES
      set_values    = t_set_values
    EXCEPTIONS
      set_not_found = 1
      OTHERS        = 2.
  IF sy-subrc EQ 0.
    LOOP AT t_set_values INTO wa_tsetvalues.
      LS_UNAME-BNAME = wa_tsetvalues-from+0(7).
      LS_UNAME-PLANT = wa_tsetvalues-from+7(4). 
      APPEND LS_UNAME TO LT_UNAME.
    ENDLOOP.
  ELSE.
    MESSAGE 'Error while reading set values.' TYPE 'E' DISPLAY LIKE 'I'.
  ENDIF.

  READ TABLE LT_UNAME INTO LS_UNAME WITH KEY BNAME = SY-UNAME.
  IF SY-SUBRC <> 0.
    ERROR = 'X'.

  else.
  if sy-subrc eq 0.
   IF LS_UNAME-PLANT NE zp2ptpurofr-plant.
    ERROR = 'X'.
   ENDIF.
  ENDIF.

  ENDIF.

Comments

Post a Comment

Popular posts from this blog

Business senario : FB60 AND FB70 validation and subsituation

-
Image
As per the requirments validation GGB0 and subsituation GGB1 with help to two t-code we can do validation of t-code fb60 or fb70 for this purpose you can go to to standared programs .  there are two t-code for input your validation and subsituation OB28 for validation and OBBH for  subsituation   for subsituation you copy the standared program RGGBR000 in customer namespace and register the program in T80D table and register namespace to V_T80D Program you can change your exit like below   exits - name  =  'RK101' .   exits - param  =  c_exit_param_field .   exits - TITLE  =  TEXT - prb .    APPEND  exits . And second code like below  FORM  upf04 .    IF  BKPF - bukrs  IS  INITIAL .      MESSAGE  'PLease enter COMPANY CODE'  TYPE  'I' .    ENDIF . ENDFORM . and hole code as ...
Read more

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

-
Here this badi used to how to work migo data migration and help to creating magi used to save  and validation of data  MB_DOCUMENT_UPDATE method  IF_EX_MB_MIGO_BADI ~ POST_DOCUMENT .    BREAK-POINT .    IF  is_mkpf - budat < is_mkpf - BLDAT .     sy - ucomm  =  'ENT1' .      MESSAGE  'Posting Date Should Not Be Less Than Document Date'   TYPE  'E'  .      SET SCREEN  syst - dynnr .      LEAVE SCREEN .    ENDIF . endmethod .
Read more

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and...
Read more