|
Report listing programs by author |
|
|
|
|
Written by Anon.
|
|
Monday, 05 March 2007 |
Report to list code written by a certain author
REPORT zreporte.
TABLES: tadir.
PARAMETERS: p_start TYPE p DEFAULT 0, "Start
p_max_rc TYPE p default 1000, "Max to show
p_author like tadir-author default sy-uname.
DATA: p_cnt TYPE p VALUE 0.
DATA: BEGIN OF reporte OCCURS 1000,
code(72),
END OF reporte.
SELECT * FROM tadir
WHERE pgmid = 'R3TR' AND
object = 'PROG' AND
author = p_author AND
( obj_name LIKE 'Z%' OR obj_name LIKE '%Y' ).
p_cnt = p_cnt + 1.
IF p_cnt = p_max_rc.
EXIT.
ENDIF.
IF p_start <= p_cnt.
WRITE: / tadir-obj_name.
READ REPORT tadir-obj_name INTO reporte.
ULINE.
WRITE: / 'Report_top'.
ULINE.
LOOP AT reporte.
WRITE: / reporte-code.
ENDLOOP.
CLEAR reporte.
REFRESH reporte.
ENDIF.
ENDSELECT.
DATA: p_total TYPE p.
p_total = ( p_cnt - p_start ).
WRITE: / 'Records Selected - ' , p_total.
|
