Diese Seite (Version-1) wurde zuletzt am 28-März-2017 14:37 von UnbekannterAutor geändert.

Du bist nicht autorisiert, diese Seite umzubenennen.

Du bist nicht autorisiert, diese Seite zu löschen.

Versionsgeschichte der Seite

Version Zuletzt geändert Größe Autor Änderungen Kommentar

Links

Eingehende Links Ausgehende Links
Abap-Prog003
Abap-Prog003

Versionsunterschiede

Unterschiede zwischen Version und .

Zeile 1: 113 Zeilen hinzugefügt.
[{ALLOW view All}]
[{ALLOW edit Markus}]
{{{
*&---------------------------------------------------------------------*
*& Report ZP_COUNT_EE *
*& *
*&---------------------------------------------------------------------*
*& Markus Ebel, 05.11.2009 *
*& *
*&---------------------------------------------------------------------*
REPORT zp_count_ee .
*&---------------------------------------------------------------------*
*& This is my first ABAP program
*&---------------------------------------------------------------------*
*& Global Declarations
*&---------------------------------------------------------------------*
CLASS z_tmp DEFINITION.
PUBLIC SECTION.
CONSTANTS: dset TYPE string VALUE 'D:\temp\sap.csv'.
DATA: lt_lines TYPE TABLE OF string.
DATA: text1 TYPE string,
text2 TYPE string,
text3 TYPE string,
cc TYPE i.
METHODS: main, storelocal.
ENDCLASS. "demo DEFINITION
*----------------------------------------------------------------------*
* CLASS demo IMPLEMENTATIO
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS z_tmp IMPLEMENTATION.
METHOD main.
data: count type i.
SELECT
count( distinct pernr )
FROM pa0002 INTO count.
"APPEND text1 TO lt_lines.
text1 = count.
write: / text1.
cc = cc + 1.
"ENDSELECT.
storelocal( ).
text3 = cc.
CONCATENATE 'Anzahl=' text3 INTO text2.
write: / text2.
ENDMETHOD. "demo
METHOD storelocal.
*.. Download
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = dset
TABLES
data_tab = lt_lines
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.
text2 = sy-subrc.
concatenate 'Kann Datei' dset 'nicht erzeugen:' TEXT2 into text1 SEPARATED BY space.
write: / text1.
ENDIF.
ENDMETHOD. "storeLocal
ENDCLASS. "demo IMPLEMENTATIO
*&---------------------------------------------------------------------*
*& Implementations
*&---------------------------------------------------------------------*
START-OF-SELECTION.
DATA cl TYPE REF TO z_tmp.
CREATE OBJECT cl.
cl->main( ).
}}}
Diese Seite (Version-1) wurde zuletzt am 28-März-2017 14:37 von UnbekannterAutor geändert.Top