To find zprograms

Former Member — Tue, 06 Feb 2007 09:01:55 GMT

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

Re: To find zprograms

Former Member — Tue, 06 Feb 2007 09:08:38 GMT

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.

Re: To find zprograms

Former Member — Tue, 06 Feb 2007 09:17:54 GMT

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

Re: To find zprograms

Former Member — Tue, 06 Feb 2007 09:27:57 GMT

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

topic Re: To find zprograms in Application Development and Automation Discussions

To find zprograms

Re: To find zprograms

Re: To find zprograms

Re: To find zprograms