|
Show all the programs
written by all trainees on a given day
REPORT ZBRK18
* This program lists all the programs
written under series - 'Z'
* by all the trainees.
TABLES:D010SINF.
DATA:BEGIN OF INT_TAB OCCURS 0,
PROG LIKE
D010SINF-PROG,
CNAM LIKE
D010SINF-CNAM,
CDAT LIKE
D010SINF-CDAT,
UDAT LIKE
D010SINF-UDAT,
END OF INT_TAB.
DATA:HNAME LIKE D010SINF-PROG VALUE
'PROGRAM NAME',
HCNAM LIKE
INT_TAB-CNAM VALUE 'AUTHOR',
HDAT(15) VALUE
'CREATED ON',
HUDAT(15) VALUE
'CHANGED ON',HLIN,
LIN.
PARAMETERS DAT LIKE SY-DATUM.
HLIN = SY-VLINE.
LIN = SY-VLINE.ULINE (63).
FORMAT COLOR 3 ON.
WRITE:/ HLIN,HNAME,HLIN,HCNAM,HLIN,
HDAT,HLIN,HUDAT,HLIN.ULINE (63).
FORMAT COLOR OFF.
SELECT * FROM D010SINF INTO
CORRESPONDING FIELDS OF TABLE INT_TAB WHERE
CDAT =
DAT AND PROG LIKE 'Z%'.
FORMAT COLOR 2 ON.
LOOP AT INT_TAB.
WRITE:/ LIN,INT_TAB-PROG UNDER
HNAME,LIN UNDER HLIN,
INT_TAB-CNAM UNDER HCNAM,LIN UNDER HLIN,
INT_TAB-CDAT UNDER HDAT,LIN UNDER HLIN,
INT_TAB-UDAT UNDER HUDAT,LIN UNDER HLIN.ULINE (63).
ENDLOOP.FORMAT COLOR 5.
WRITE:/ 'BY HERMINTO'.
***********************************************
Upload a file from hard disk to
internal Table.
***********************************************
REPORT ZBRK10
*****************************************************
* READING FROM A FILE USING
FUNCTION WS_UPLOAD *
*****************************************************
TABLES:TABNA.
DATA:ITAB LIKE TABNA OCCURS 0 WITH HEADER LINE.
DATA:FNAME LIKE RLGRAP-FILENAME,
FTYPE LIKE
RLGRAP-FILETYPE.
FNAME = 'C:\TEMP\HERMINTO.txt'.
" This is the file to be imported
FTYPE = 'ASC'.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
*
CODEPAGE = ' '
FILENAME = FNAME
FILETYPE = FTYPE
*
HEADLEN = ' '
*
LINE_EXIT = ' '
*
TRUNCLEN = ' '
*
USER_FORM = ' '
*
USER_PROG = ' '
* IMPORTING
*
FILELENGTH =
TABLES
DATA_TAB = ITAB
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
OTHERS = 8.
CASE SY-SUBRC.
WHEN 1.
WRITE:'ERROR WHEN
FILE OPENED'.
WHEN 2.
WRITE:'ERROR DURING
DATA TRANSFER'.
EXIT.
ENDCASE.
LOOP AT ITAB.
WRITE:/ ITAB.
ENDLOOP.
REPORT ZRAMEXCL
* This program selects
countries as per user from TABNA
* and downloads to EXCEL
and Opens EXCEL for you.
INCLUDE OLE2INCL.
TABLES TABNA.
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK
TYPE OLE2_OBJECT,
SHEET
TYPE OLE2_OBJECT,
CELLS
TYPE OLE2_OBJECT,
ITAB LIKE
TABNA OCCURS 120 WITH HEADER LINE.
SELECT-OPTIONS COUNT FOR
TABNA-COUNTRY.
SELECT * FROM
TABNA INTO TABLE ITAB WHERE COUNTRY IN COUNT.
CREATE OBJECT APPLICATION
'excel.application'.
SET PROPERTY OF APPLICATION 'visible' =
1.
CALL METHOD OF APPLICATION 'WORKBOOKS' =
WORKBOOK.
PERFORM ERROR.
CALL METHOD OF WORKBOOK 'ADD'.
PERFORM ERROR.
CALL METHOD OF APPLICATION 'WORKSHEETS'
= SHEET EXPORTING #1 = 1.
PERFORM ERROR.
CALL METHOD OF SHEET 'Activate'.
PERFORM ERROR.
DATA: ROW_MAX TYPE I VALUE 256,
INDEX TYPE I.
FIELD-SYMBOLS: <NAME>.
LOOP AT ITAB.
INDEX = ROW_MAX * ( SY-TABIX - 1 )
+ 1.
DO 5 TIMES.
PERFORM FILL_SHEET.
ENDDO.
ENDLOOP.
FORM FILL_SHEET.
ASSIGN COMPONENT
SY-INDEX OF STRUCTURE ITAB TO <NAME>.
CALL METHOD OF SHEET
'Cells' = CELLS EXPORTING #1 = INDEX.
SET PROPERTY OF CELLS
'Value' = <NAME>.
ADD 1 TO INDEX.
ENDFORM.
*---------------------------------------------------------------------*
*
FORM ERRORS
*
*---------------------------------------------------------------------*
*
........
*
*---------------------------------------------------------------------*
FORM ERROR.
IF SY-SUBRC <> 0.
WRITE 'Error'.
ENDIF.
ENDFORM.
**************************
| 
