To find zprograms

[Former Member]

Is there any way or any table by which I can get all zprograms belonging to application type V3(billing).

[Former Member]

Hi Siju ,

As per ur posting , for all kinds of zprograms we can refer use TADIR and TRDIR tables.

If any query , let me know.

reagrds.

Note: If useful please reward.

[Former Member]

The possible application types for a program can be fiound in the table: TAPLP.

The V3 you are reffering to may be something else in this table: TAPLP.

Regards,

Ravi

[Former Member]

Hi Siju,

try this little Report:

TABLES: TADIR, TRDIR, TRDIRT.

*

PARAMETERS: P_PGMID LIKE TADIR-PGMID MODIF ID DSP DEFAULT 'R3TR'.

PARAMETERS: P_OBJ LIKE TADIR-OBJECT MODIF ID DSP DEFAULT 'PROG'.

SELECT-OPTIONS: S_REPID FOR TADIR-OBJ_NAME.

*

DATA: BEGIN OF REPORT_HEADER OCCURS 0,

REPID LIKE SY-REPID,

DEVCLASS LIKE TADIR-DEVCLASS,

CNAM LIKE TRDIR-CNAM,

CDAT LIKE TRDIR-CDAT,

UNAM LIKE TRDIR-UNAM,

UDAT LIKE TRDIR-UDAT,

TEXT LIKE TRDIRT-TEXT,

END OF REPORT_HEADER.

*

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SCREEN-GROUP1 EQ 'DSP'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

*

INITIALIZATION.

S_REPID-SIGN = 'I'.

S_REPID-OPTION = 'CP'.

S_REPID-LOW = 'Z*'.

APPEND S_REPID.

*

START-OF-SELECTION.

*

PERFORM EINLESEN_DATEN.

*

PERFORM AUSGABE.

*

END-OF-SELECTION.

*

************************************************************************

FORM EINLESEN_DATEN.

*

SELECT * FROM TADIR WHERE PGMID = P_PGMID

AND OBJECT = P_OBJ

AND OBJ_NAME IN S_REPID.

*

SELECT SINGLE * FROM TRDIR WHERE NAME = TADIR-OBJ_NAME.

*

SELECT SINGLE * FROM TRDIRT WHERE SPRSL = SY-LANGU

AND NAME = TADIR-OBJ_NAME.

*

REPORT_HEADER-REPID = TADIR-OBJ_NAME.

REPORT_HEADER-DEVCLASS = TADIR-DEVCLASS.

REPORT_HEADER-CNAM = TRDIR-CNAM.

REPORT_HEADER-CDAT = TRDIR-CDAT.

REPORT_HEADER-UNAM = TRDIR-UNAM.

REPORT_HEADER-UDAT = TRDIR-UDAT.

REPORT_HEADER-TEXT = TRDIRT-TEXT.

*

APPEND REPORT_HEADER.

*

ENDSELECT.

*

ENDFORM. "EINLESEN_DATEN

************************************************************************

FORM AUSGABE.

*

LOOP AT REPORT_HEADER.

WRITE: / REPORT_HEADER-REPID, REPORT_HEADER-TEXT.

ENDLOOP.

*

ENDFORM. "

************************************************************************

Regards, Dieter