Report to download a pgm in text format

Question

Hi,
My requirement is to download the whole program in a text file, and all includes
in a separate text file correspondingly.I have to do this job using read report and scan statements.
Regards,
Asha

Answer 1

hi asha,
  use this report ,
REPORT ZDOWNLOAD line-size 255.
TABLES: TRDIR, TADIR,TRDIRT.
DATA: BEGIN OF REPLIST OCCURS 200, NAME(40) TYPE C, TITLE(70),END OF
REPLIST.
DATA: BEGIN OF BUFFER OCCURS 0, LINE(255) TYPE C, END OF BUFFER.
DATA: FILENAME TYPE string, FILELENGTH(10) TYPE C.
SELECT-OPTIONS : SO_NAME FOR TADIR-OBJ_NAME.
SELECT-OPTIONS : SO_DEVC FOR TADIR-DEVCLASS.
PARAMETERS : PATHNAME(40).
PARAMETERS: P_AUTHOR LIKE SY-UNAME DEFAULT SY-UNAME.
SELECT * FROM TADIR
WHERE DEVCLASS IN SO_DEVC
AND OBJECT = 'PROG'
AND OBJ_NAME IN SO_NAME.
SELECT * FROM TRDIR
WHERE NAME = TADIR-OBJ_NAME.
MOVE TRDIR-NAME TO REPLIST-NAME.
SELECT * FROM TRDIRT WHERE NAME = TADIR-OBJ_NAME
AND SPRSL EQ 'E'.
MOVE TRDIRT-TEXT TO REPLIST-TITLE.
APPEND REPLIST.
ENDSELECT.
ENDSELECT.
ENDSELECT.
LOOP AT REPLIST.
READ REPORT REPLIST-NAME INTO BUFFER.
INSERT INITIAL LINE INTO BUFFER INDEX 1.
MOVE REPLIST-TITLE TO BUFFER-LINE.
MODIFY BUFFER INDEX 1.
INSERT INITIAL LINE INTO BUFFER INDEX 2.
concatenate pathname replist-name '.txt' into filename.
*FILENAME = PATHNAME.
*FILENAME+40 = REPLIST-NAME.
*FILENAME+82 = '.'.
*FILENAME+84 = 'txt'. "helpful to replace with SY-SYSID
CONDENSE FILENAME NO-GAPS.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    FILENAME                        = FILENAME
    FILETYPE                        = 'ASC'
  TABLES
    DATA_TAB                        = BUFFER
EXCEPTIONS
   FILE_WRITE_ERROR                = 1
   NO_BATCH                        = 2
   GUI_REFUSE_FILETRANSFER         = 3
   INVALID_TYPE                    = 4
   NO_AUTHORITY                    = 5
   UNKNOWN_ERROR                   = 6
   HEADER_NOT_ALLOWED              = 7
   SEPARATOR_NOT_ALLOWED           = 8
   FILESIZE_NOT_ALLOWED            = 9
   HEADER_TOO_LONG                 = 10
   DP_ERROR_CREATE                 = 11
   DP_ERROR_SEND                   = 12
   DP_ERROR_WRITE                  = 13
   UNKNOWN_DP_ERROR                = 14
   ACCESS_DENIED                   = 15
   DP_OUT_OF_MEMORY                = 16
   DISK_FULL                       = 17
   DP_TIMEOUT                      = 18
   FILE_NOT_FOUND                  = 19
   DATAPROVIDER_EXCEPTION          = 20
   CONTROL_FLUSH_ERROR             = 21
   OTHERS                          = 22
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.
here u need to give object name,package and path where u want download........
if want all program from particular package than give * in program name
and vice versa
please dont froget to reward points
regards,
Imran