topic Re: re: table in Application Development and Automation Discussions

re: table

Former Member — Mon, 02 Jan 2006 08:30:33 GMT

Hi,

I have to create a list box for the recipients which is of type usergroup( i created one distribution group sbwp). what is the table for this distribution group.

rgds

p.kp

Re: re: table

Former Member — Mon, 02 Jan 2006 08:48:25 GMT

Hi,

Table which stores required data is SODM.

Regards,

Akshay

P.S. Pls reward with points if answer is helpful / solves the purpose

Re: re: table

Former Member — Mon, 02 Jan 2006 09:38:18 GMT

Hi paluri,

1. SOID - main table for dist list.

SODM - more than one users with MEMO

SOUD - actual users with sapnam

2. Try this code (just copy paste)

It will give all the list of the users

for that particular Dist. List.

(Enter Name of Dist List In parameter)

REPORT abc.

DATA : soid LIKE soid .

DATA : soud LIKE TABLE OF soud WITH HEADER LINE.

DATA : sodm LIKE TABLE OF sodm WITH HEADER LINE.

PARAMETERS: objnam LIKE soid-objnam.

START-OF-SELECTION.

SELECT SINGLE * FROM soid

INTO soid

WHERE dlitp = 'DLI'

AND objnam = objnam.

SELECT * FROM sodm

INTO TABLE sodm

WHERE dlino = soid-dlino.

SELECT * FROM soud

INTO TABLE soud

FOR ALL ENTRIES IN sodm

WHERE usrno = sodm-memno.

LOOP AT soud.

WRITE 😕 soud-sapnam.

ENDLOOP.

I hope it helps.

regards,

amit m.

Re: re: table

Former Member — Mon, 02 Jan 2006 10:11:38 GMT

Hi Prasad,

You can also use function module to fine the members.

Please see the below code.


*--Internal table to hold date for distribution list
DATA : dt_member LIKE sodm1 OCCURS 0 WITH HEADER LINE,
       dt_objpara LIKE selc OCCURS 0 WITH HEADER LINE,
       dt_objparb LIKE soop1 OCCURS 0 WITH HEADER LINE.

DATA : ds_list LIKE soodk.
*--Distribution list
  SELECT objtp
         objyr
         objno
    FROM sood
    UP TO 1 ROWS
    INTO ds_list
  WHERE objnam = dg_objnam.
  ENDSELECT.

  CALL FUNCTION 'SO_DLI_READ'
      EXPORTING
*           distributionlist           = dg_objnam
         dli_id                       = ds_list
*         OWNER                       = ' '
           system_dli                 = c_x
*    IMPORTING
*         OBJECT_FL_DISPLAY           =
*         OBJECT_HD_DISPLAY           =
*         OBJECT_ID                   =
*         OBJECT_SD_DISPLAY           =
       TABLES
            member                    =  dt_member
            objpara                   =  dt_objpara
            objparb                   =  dt_objparb
      EXCEPTIONS
           active_user_not_exist      = 1
           communication_failure      = 2
           component_not_available    = 3
           dl_name_not_exist          = 4
           folder_not_exist           = 5
           folder_no_authorization    = 6
           forwarder_not_exist        = 7
           object_not_exist           = 8
           object_no_authorization    = 9
           operation_no_authorization = 10
           owner_not_exist            = 11
           parameter_error            = 12
           substitute_not_active      = 13
           substitute_not_defined     = 14
           system_failure             = 15
           user_not_exist             = 16
           x_error                    = 17
           OTHERS                     = 18.

  IF sy-subrc <> 0.
    MESSAGE i999 WITH 'Error while getting members data'(044).
    IF sy-batch = c_x.
      WRITE :/2 'Error while getting members data'(044).

    ENDIF.
  ENDIF.

Hope this will help you.

Thanks&Regards,

Siri.