420 likes | 629 Views
ABAP Chapter 6. Message Debugging File Transfer Type Group. Message in ABAP. User Messages. If user has entered inconsistent values,you output a dialog message with MESSAGE statement Dialog messages are stored in table T100 (Transaction : SE91). r eport ztest . ….
E N D
ABAP Chapter 6 • Message • Debugging • File Transfer • Type Group
User Messages • If user has entered inconsistent values,you output a dialog message with MESSAGE statement • Dialog messages are stored in table T100 (Transaction : SE91) report ztest. …. AT SELECTION-SCREEN. … message e000(38) with ‘----’‘---’ ‘---’ ‘---’. …
Message Type Syntax Message [ A<nnn> ](message class) with <field1> <field2> … E, W, I, S
Messages Type - A(Abend) Message A000(38)... Program Start Selection Screen A Message Exit
Messages Type - E(Error) Message E000(38) ... Program Start Selection Screen New input Require E Message
Messages Type - W(Warning) Message W000(38)... Program Start Selection Screen New input possible W Message Enter List
Messages Type - I(Information) Message I000(38)... Program Start Selection Screen I Message Enter List
Messages Type - S(Success) Message S000(38)... Program Start Selection Screen List (Next Screen)
Dynamic Message Report ztest1. Parameters today like sy-datum. At selection-screen. if today <> sy-datum. message e000(38) with ‘Please enter today :’ sy-datum. endif. Start-of-selection. Write: / ‘Today is :’, today.
How to Set Debugging Mode • If you want to test transaction,enter /h in the command field,press ENTER and execute the transaction • Set breakpoints in the program Utilities->Breakpoints->Set • Uses BREAK-POINT statement
File Transfer (Application Server) • There are 3 steps for file transfer • Open File • Read/Write File • Close File
File Transfer * Prepare Internal Table Data all_customers like customers occurs 0 with header line. Data msg_txt(50). Parameters filename(128) default ‘customersdata.txt’ lower case. Start-of-selection. Select * from customers into table all_customers.
File Transfer * Opening a file Open dataset filename for output in text mode encoding default message msg_txt. If sy-subrc <> 0. Write: ‘File cannot be opened .Reason :’,msg_txt. else.
File Transfer * Transferring data to a file Loop at all_customers. Transfer all_customers to filename. Endloop. * Closing a file Close dataset filename. Endif.
File Transfer (Appending Data) * Opening a file Open dataset filename for appending in text mode encoding default message msg_txt. If sy-subrc <> 0. Write: ‘File cannot be opened .Reason :’,msg_txt. else. ...
Reading Data from OS File * Reading data from a file Parameters filename(128) default ‘customersdata.txt’ lower case. Data msg_txt(50). Data all_customers like customers occurs 0 with header line. Start-of-selection. Open dataset filename for input in text mode encoding default message msg_txt. If sy-subrc <> 0. Write: ‘File cannot be opened .Reason :’,msg_txt. else.
Reading Data from OS File Do. Read dataset filename into all_customers. if sy-subrc <> 0. Exit. endif. Append all_customers. Enddo. Close dataset filename. Endif.
Deleting OS File Parameters filename(128) default ‘customersdata.txt’ lower case. START-OF-SELECTION. Delete dataset filename. If sy-subrc = 0. write: / ‘Delete OK’. Endif.
Download Data to PC * Download data from PC parameters filename like rlgrap-filename default ‘c:\customers.txt’. Data all_customers like customers occurs 0 with header line. START-OF-SELECTION. Select * from customers into table all_customres.
Download Data to PC CALLFUNCTION ‘DOWNLOAD’ Exporting filename = filename Tables data_tab = all_customers Exceptions file_open_error = 1 … others = 5.
Download Data to PC Case sy-subrc. When 1. Write: ‘Error when file opened’. When 2. Write: ‘Error during data transfer’. … When 0. Write: / ‘Data Download Finish’. Endcase.
Upload Data from PC * Upload data to PC parameters filename like rlgrap-filename default ‘c:\customers.txt’. Data all_customers like customers occurs 0 with header line. START-OF-SELECTION.
Upload Data from PC CALL FUNCTION ‘UPLOAD’ Exporting filename = filename Tables data_tab = all_customers Exceptions file_open_error = 1 … others = 5.
Upload Data from PC Case sy-subrc. When 1. Write: ‘Error when file opened’. When 2. Write: ‘Error during data transfer’. … When 0. Insert customers from table all_customers. … Endcase.
Upload/Download Data in Background Call function ‘WS_DOWNLOAD’ Exporting filename = filename ... and Call function ‘WS_UPLOAD’ Exporting filename = filename ...
Type Group ABAP Program
Exercise III : User Master usr02-trdat usr02-bname adcp-tel_number