Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

find all Z programs which are being modified in last month

former_member193357
Participant
0 Kudos
2,295

hii all,

I want to find all Z programs which are being modified in last months.Is this possible??.is there any standard or z-program which can give me the detail of all Z-program which are modified.

It is possible if i get last month Request but suppose if there are more than 100 request per month then it is not possible to go through each individual Request and find Z-programs.

Waiting for ur reply.

<removed_by_moderator> ... read [the rules|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement]!

Thaking You.

Edited by: Julius Bussche on Jul 17, 2008 7:16 PM

1 ACCEPTED SOLUTION

Former Member
0 Kudos
471

Hello


REPORT ZCHPROG.

TABLES: D010SINF.
DATA: PROGTXT(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA: PROGTXT1(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA:
   BEGIN OF MT OCCURS 0,
 PROG LIKE D010SINF-PROG,
 EDTX LIKE D010SINF-EDTX,
 R3STATE LIKE D010SINF-R3STATE,
 UNAM LIKE D010SINF-UNAM,
 CNAM LIKE D010SINF-CNAM,
 UDAT LIKE D010SINF-UDAT,
 UTIME LIKE D010SINF-UTIME,
END OF MT,
N(4),
PROG(20) TYPE C,
MIN(10) TYPE C.
RANGES: UDAT1 FOR D010SINF-UDAT.
RANGES: UTIME1 FOR D010SINF-UTIME.

SELECT-OPTIONS: PROG1 FOR D010SINF-PROG,      "
                UNAM1 FOR D010SINF-UNAM,      "
                CNAM1 FOR D010SINF-CNAM.      "
PARAMETERS DEN(4) TYPE C DEFAULT '1'.
PARAMETERS SEC(5) TYPE C DEFAULT '30'.
PARAMETERS DOP AS CHECKBOX DEFAULT ' '.
 START-OF-SELECTION.
IF DOP NE SPACE.
MIN = SEC * 60.
      UTIME1-SIGN = 'I'.
      UTIME1-OPTION = 'BT'.
      UTIME1-LOW = SY-UZEIT - MIN.
      UTIME1-HIGH = SY-UZEIT.
   APPEND UTIME1.
ENDIF.

      UDAT1-SIGN = 'I'.
      UDAT1-OPTION = 'BT'.
      UDAT1-LOW = SY-DATUM - DEN.
      UDAT1-HIGH = SY-DATUM.
   APPEND UDAT1.

SELECT PROG UNAM UDAT UTIME R3STATE EDTX CNAM
INTO (MT-PROG, MT-UNAM, MT-UDAT, MT-UTIME, MT-R3STATE, MT-EDTX,MT-CNAM )
         FROM D010SINF  WHERE PROG IN PROG1
                                     AND UDAT IN UDAT1
                                     AND UTIME IN UTIME1
                                     AND CNAM IN CNAM1
                                     AND UNAM IN UNAM1.
APPEND MT.
ENDSELECT.
N = 1.
WRITE: / 'from', UDAT1-LOW, 'to', UDAT1-HIGH.
SORT MT BY UNAM UDAT UTIME.
LOOP AT MT.
WRITE: / MT-CNAM,MT-PROG,MT-UNAM,MT-UDAT, MT-UTIME,
MT-R3STATE, MT-EDTX.
N = N + 1.
ENDLOOP.
WRITE: / N.

7 REPLIES 7

Former Member
0 Kudos
472

Hello


REPORT ZCHPROG.

TABLES: D010SINF.
DATA: PROGTXT(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA: PROGTXT1(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA:
   BEGIN OF MT OCCURS 0,
 PROG LIKE D010SINF-PROG,
 EDTX LIKE D010SINF-EDTX,
 R3STATE LIKE D010SINF-R3STATE,
 UNAM LIKE D010SINF-UNAM,
 CNAM LIKE D010SINF-CNAM,
 UDAT LIKE D010SINF-UDAT,
 UTIME LIKE D010SINF-UTIME,
END OF MT,
N(4),
PROG(20) TYPE C,
MIN(10) TYPE C.
RANGES: UDAT1 FOR D010SINF-UDAT.
RANGES: UTIME1 FOR D010SINF-UTIME.

SELECT-OPTIONS: PROG1 FOR D010SINF-PROG,      "
                UNAM1 FOR D010SINF-UNAM,      "
                CNAM1 FOR D010SINF-CNAM.      "
PARAMETERS DEN(4) TYPE C DEFAULT '1'.
PARAMETERS SEC(5) TYPE C DEFAULT '30'.
PARAMETERS DOP AS CHECKBOX DEFAULT ' '.
 START-OF-SELECTION.
IF DOP NE SPACE.
MIN = SEC * 60.
      UTIME1-SIGN = 'I'.
      UTIME1-OPTION = 'BT'.
      UTIME1-LOW = SY-UZEIT - MIN.
      UTIME1-HIGH = SY-UZEIT.
   APPEND UTIME1.
ENDIF.

      UDAT1-SIGN = 'I'.
      UDAT1-OPTION = 'BT'.
      UDAT1-LOW = SY-DATUM - DEN.
      UDAT1-HIGH = SY-DATUM.
   APPEND UDAT1.

SELECT PROG UNAM UDAT UTIME R3STATE EDTX CNAM
INTO (MT-PROG, MT-UNAM, MT-UDAT, MT-UTIME, MT-R3STATE, MT-EDTX,MT-CNAM )
         FROM D010SINF  WHERE PROG IN PROG1
                                     AND UDAT IN UDAT1
                                     AND UTIME IN UTIME1
                                     AND CNAM IN CNAM1
                                     AND UNAM IN UNAM1.
APPEND MT.
ENDSELECT.
N = 1.
WRITE: / 'from', UDAT1-LOW, 'to', UDAT1-HIGH.
SORT MT BY UNAM UDAT UTIME.
LOOP AT MT.
WRITE: / MT-CNAM,MT-PROG,MT-UNAM,MT-UDAT, MT-UTIME,
MT-R3STATE, MT-EDTX.
N = N + 1.
ENDLOOP.
WRITE: / N.

Former Member
0 Kudos
471

Hello,

with the repository info system (Transaction SE84) you can find the changed programs.

Open "Program Library" then execute "Programs"

Now you can select programs with various paramters - program name, package,...

In the field "Changed on" you can enter your desired date range.

regards

Johannes

Former Member
0 Kudos
471

use TRDIR table...............

pass z program NAME : z*

and UDAT: last month date.

this will help u........

Reward IF <= IF what? Points removed... read [the rules|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement]!

Regards

Anbu

Edited by: Julius Bussche on Jul 17, 2008 7:11 PM

Former Member
0 Kudos
471

Hi Hemant Baviskar,

Check the following table that will consist of modification details of programs.

SYSCOMP - Directory of Repository Objects.

Hope it is helps.

Regards,

T.Durai murugan.

Former Member
0 Kudos
471

Hi,

There is an option in technical settings Log data Changes...

Tick that check box ...

now if any one modify your table a log will be creatd for that..

I hope u get your ans...

Former Member
0 Kudos
471

Hi Hemant,

Johannes Leitner is right, use SE84 - Repository Info System.

1. On the tree on your left, navigate to below:

Repository Information System | Program library | Programs

2. Extend the selection by clicking on 'All selections (Shift + F9)'.

3. Enter 'Z'* at field 'Program name'

on 'Changed on' field, select multiple selection. On pop-up dialog, select 'Ranges' tab (in green), and enter date range of last month, let's say '01.06.2008' To '30.06.2008'. Execute the search

4. List of program name with report title will be shown, and kindly click on a button 'Detailed info' if you would like to see last changed by who, when, etc.

Hope this helps.

Cheers,

Anfernee

former_member193357
Participant
0 Kudos
471

Thank all .