continuous list from function module

[Former Member]

Hi all,

Iam using function module REPOSITORY_INFO_SYSTEM_SET to get the where used list. iam passing data from an internal table. I have a requirement to get the where used list for all the date in the internal table in the same list output screen but presently Iam getting it one by one if I click on back. how to get it in same page?

Sathya

[Former Member]

Hi Sathya

Just paste ur code for better understanding...

[Former Member]

Hi Satya ,

It depends upon parameters what u are passing ?

Regards

Prabhu

[Former Member]

REPORT ZCUP_MOD_CONLIST no standard page heading line-size 80 .

tables: zcup_repository.

data: begin of itab occurs 0,

pgmid type zcup_repository-pgmid,

object type zcup_repository-object,

• object type euobj-id,

obj_name type zcup_repository-obj_name,

• obj_name type tadir-obj_name,

end of itab.

data: cnt type i,

sn type i,

ok_code type sy-ucomm.

data: objlist TYPE standard table of RSEUI_SET with header line,

CONLIST TYPE standard table of RSEUI_SET with header line .

START-OF-SELECTION.

SET PF-STATUS 'MAIN'.

*SET USER-COMMAND 'PICK'.

SELECT pgmid

object

obj_name

• FROM adiraccess

FROM zcup_repository

INTO CORRESPONDING FIELDS OF TABLE itab.

WRITE:/ 'Modification Listing'.

SKIP.

*write: sy-uline(80).

*write:/ sy-vline.

FORMAT COLOR COL_HEADING.

Write:2 'SL.NO',

12 sy-vline,

13 'PROG ID',

22 sy-vline,

23 'OBJECT',

32 sy-vline,

33 'OBJECT NAME',

80 sy-vline.

write:/ SY-ULINE(80).

FORMAT COLOR 2.

sn = 0.

LOOP AT itab.

sn = sn + 1.

write:/ sy-vline.

write:2 sn LEFT-JUSTIFIED,

12 sy-vline,

13 itab-pgmid,

22 sy-vline,

23 itab-object,

32 sy-vline,

33 itab-obj_name,

80 sy-vline.

HIDE: itab-pgmid,

itab-object,

itab-obj_name.

ENDLOOP.

write:/ sy-uline(80).

DESCRIBE TABLE itab LINES cnt.

SKIP.

SKIP.

FORMAT RESET.

FORMAT INTENSIFIED ON.

WRITE:/2 'Total Number of programs :', cnt.

AT USER-COMMAND.

IF sy-ucomm = 'USDLST'.

data: t_obj type euobj-id,

t_objnm type tadir-obj_name.

loop at itab.

t_obj = itab-object.

t_objnm = itab-obj_name.

CALL FUNCTION 'REPOSITORY_INFO_SYSTEM_SET'

EXPORTING

OBJECT_TYPE = t_obj

ACTION = 'C'

OBJECT_NAME = t_objnm

NO_DIALOG = 'X'

TABLES

OBJECTLIST = objlist

EXCEPTIONS

WRONG_TYPE = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endloop.