Using sets in ABAP

former_member189475 — Thu, 07 May 2009 13:17:51 GMT

Hi all,

I have created a set using GS01. How can I use sets in my ABAP coding???

Thank you

Re: Using sets in ABAP

Former Member — Thu, 07 May 2009 13:21:08 GMT

Hi,

Use FM G_SET_GET_ALL_VALUES

Re: Using sets in ABAP

Former Member — Mon, 11 May 2009 09:39:39 GMT

Hi,

Please try using SETHEADER and SETLEAF tables to get values of SETS. Else please on the trace when you execute the T-Code GS01 you will get the tables used for these sets.

Re: Using sets in ABAP

Former Member — Mon, 11 May 2009 10:19:00 GMT

Check the below Sample code.

Get the internal Set-ID from the external name of the set
If the set class, subclass and setname is known, function module
G_SET_ENCRYPT_SETID must be used.

FORM GET_INTERNAL_SETID .

CALL FUNCTION 'G_SET_ENCRYPT_SETID'

EXPORTING

SETCLASS = GSETC_FISL_SETCLASS "Other classes: Type pool GSETC

SHORTNAME = G_SET

IMPORTING

SETID = P_SETID.

Check existence of set, send error message if set does not exist

CALL FUNCTION 'G_SET_GET_INFO'

EXPORTING

SETNAME = P_SETID.

ENDFORM.

Filling of the tables SETTAB and VALTAB

FORM INSERT_SET USING U_SETID LIKE SETHIER-SETID.

*..... Constants ..................................................... *

CONSTANTS: CONTROL_BLOCK LIKE SY-TABIX VALUE 1.

*..... Information about the set ..................................... *

DATA: HEADER LIKE RGSMH.

*..... Set index for differentiation of concurrently processed sets . *

DATA: SETINDEX LIKE SY-TABIX.

..... Read set into the buffer of the set manager (library GSSM) ....

(repeated call of G_SET_INSERT for the same set
will not lead to repeated database access)

CALL FUNCTION 'G_SET_INSERT'

EXPORTING

SETNAME = U_SETID

IMPORTING

HEADER = HEADER

INDEX = SETINDEX.

*..... Make entry for root set in table SETTAB ....................... *

SETTAB-SETID = HEADER-SETNR.

SETTAB-SETNAME = HEADER-SHORTNAME.

SETTAB-LEVEL = 0.

SETTAB-POINTER = 0.

APPEND SETTAB.

*----

Processing according set type

*----

IF HEADER-TYPE CA 'BD'.

... When basic or data sets => read values ........................ *

PERFORM INSERT_VALUES

USING HEADER-SETNR HEADER-SHORTNAME HEADER-SEQNR.

ELSE.

... When single or multi set => read all subsets and values ........*

CALL FUNCTION 'G_SET_GET_NEXT'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK

INDEX = SETINDEX

IMPORTING

HEADER = HEADER

EXCEPTIONS

END_OF_SETS = 1.

WHILE SY-SUBRC EQ 0. "Until all sets of hierarchy are read

... Store subset of current line ................................. *

SETTAB-SETID = HEADER-SETNR.

SETTAB-SETNAME = HEADER-SHORTNAME.

SETTAB-LEVEL = HEADER-LEVEL.

SETTAB-POINTER = HEADER-PUP.

APPEND SETTAB.

... Read values, if existing .....................................

IF HEADER-TYPE EQ 'B'.

PERFORM INSERT_VALUES

USING HEADER-SETNR HEADER-SHORTNAME HEADER-SEQNR.

ENDIF.

... Retrieve next set ............................................

CALL FUNCTION 'G_SET_GET_NEXT'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK

INDEX = SETINDEX

IMPORTING

HEADER = HEADER

EXCEPTIONS

END_OF_SETS = 1.

ENDWHILE.

ENDIF.

*..... reset this control block so the next call of this routine *

*..... will not get the exception 'END_OF_SETS' right away *

CALL FUNCTION 'G_CONTROL_BLOCK_RESET'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK.

ENDFORM. " INSERT_SET

Adds value intervals to the table VALTAB *

----

FORM INSERT_VALUES USING VALUE(U_SETID) LIKE RGSMH-SETNR

VALUE(U_SETNAME) LIKE RGSMH-SHORTNAME

VALUE(U_POINTER) LIKE RGSMH-SEQNR.

*..... Constants ..................................................... *

CONSTANTS: CONTROL_BLOCK LIKE SY-TABIX VALUE 2.

*..... Information about the set line ................................ *

DATA: ENTRY LIKE RGSMV.

*..... Auxiliary fields .............................................. *

DATA: SETINDEX LIKE SY-TABIX.

*..... Transfer of the set pointer in a field with the right size .... *

SETINDEX = U_POINTER.

*..... Read all value intervals into the table VALTAB ................ *

CALL FUNCTION 'G_INTERVAL_GET_NEXT'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK

INDEX = SETINDEX

IMPORTING

ENTRY = ENTRY

EXCEPTIONS

END_OF_INTERVALS = 1.

WHILE SY-SUBRC EQ 0. "Until all values are read

... Store value interval of the current set line ...................

VALTAB-SETID = U_SETID.

VALTAB-SETNAME = U_SETNAME.

VALTAB-FROMVALUE = ENTRY-FROM.

VALTAB-TOVALUE = ENTRY-TO.

VALTAB-POINTER = ENTRY-PUP.

APPEND VALTAB.

... Retrieve next line .............................................

CALL FUNCTION 'G_INTERVAL_GET_NEXT'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK

INDEX = SETINDEX

IMPORTING

ENTRY = ENTRY

EXCEPTIONS

END_OF_INTERVALS = 1.

ENDWHILE.

*..... Reset this control block so the next call of this routine *

*..... will not get the exception 'END_OF_SETS' right away *

CALL FUNCTION 'G_CONTROL_BLOCK_RESET'

EXPORTING

CONTROL_BLOCK = CONTROL_BLOCK.

ENDFORM. "INSERT_VALUES

FORM GET_GL_DESCRIPTION .

IF NOT VALTAB[] IS INITIAL.

SELECT SETNAME

DESCRIPT FROM SETHEADERT INTO TABLE T_SETHEADERT

FOR ALL ENTRIES IN VALTAB WHERE SETNAME = VALTAB-SETNAME.

ENDIF.

ENDFORM. " get_gl_description

Edited by: Poorna Chandrasekhar on May 11, 2009 3:49 PM

Re: Using sets in ABAP

Former Member — Mon, 11 May 2009 10:30:12 GMT

Hi check this out...

https://wiki.sdn.sap.com/wiki/x/8dQ

topic Using sets in ABAP in Application Development and Automation Discussions

Using sets in ABAP

Re: Using sets in ABAP

Re: Using sets in ABAP

Re: Using sets in ABAP

Re: Using sets in ABAP