IBM Global Business Services
Application Server Files
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Objectives
The participants will be able to:
Describe how datasets are processed in an Inbound SAP Interface.
Write an ABAP program that processes a sequential file located on an Application
Server.
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Overview
In this chapter, we will
learn how to process
sequential files on an
application server
Database
Server
Application
Servers
Presentation
Servers
3
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Processing Files
Open File
Create File or Read File
Close File
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Open File
OPEN DATASET statement
IN
FOR
INPUT
OUTPUT
APPENDING
BINARY MODE
TEXT MODE
ENCODING
DEFAULT
MESSAGE
AT POSITION
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Open File(Contd.)
OPEN DATASET statement
IN
FOR
INPUT
OUTPUT
APPENDING
BINARY MODE
TEXT MODE
ENCODING
DEFAULT
MESSAGE
AT POSITION
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Close File or Delete File
CLOSE DATASET statement
DELETE DATASET statement
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Create File or Read File
TRANSFER statement
READ DATASET statement
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Create File or Read File (Contd.)
TRANSFER statement
READ DATASET statement
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Example - Create New File
REPORT YDI00002.
PARAMETERS:
OUTFILE(20) DEFAULT ./bc180_file1
Step #1
Step #2
Step #3
Step #4
Step #5
10
Data Interfaces |
LOWER CASE,
STATE TYPE KNA1-REGIO DEFAULT MA.
DATA:
BEGIN OF OUTREC,
KUNNR TYPE KUNNR,
REGIO TYPE REGIO,
TELF1 TYPE TELF1,
END OF OUTREC.
OPEN DATASET OUTFILE FOR OUTPUT IN TEXT MODE
ENCODING DEFAULT.
SELECT * FROM KNA1 WHERE REGIO = STATE.
MOVE-CORRESPONDING KNA1 TO OUTREC.
TRANSFER OUTREC TO OUTFILE.
ENDSELECT.
CLOSE DATASET OUTFILE.
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Example - Create New File (Contd.)
REPORT YDI00002.
PARAMETERS:
OUTFILE(20) DEFAULT ./bc180_file1
LOWER CASE,
Step #1
Step #2
Step #3
Step #4
Step #5
11
Data Interfaces |
STATE TYPE REGIO DEFAULT MA.
DATA:
BEGIN OF OUTREC,
KUNNR TYPE KUNNR,
REGIO TYPE REGIO,
TELF1 TYPE TELF1,
END OF OUTREC.
OPEN DATASET OUTFILE FOR OUTPUT IN TEXT MODE
ENCODING DEFAULT.
SELECT * FROM KNA1 WHERE REGIO = STATE.
MOVE-CORRESPONDING KNA1 TO OUTREC.
TRANSFER OUTREC TO OUTFILE.
ENDSELECT.
CLOSE DATASET OUTFILE.
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Example - Extend File
REPORT YDI00003.
PARAMETERS:
OUTFILE(20) DEFAULT ./bc180_file1
LOWER CASE,
STATE TYPE REGIO DEFAULT MA.
DATA:
BEGIN OF OUTREC,
KUNNR TYPE KUNNR,
REGIO TYPE REGIO,
The only change from the
TELF1 TYPE TELF1,
previous example is FOR
CHECK
END OF OUTREC.
APPENDING instead of FOR
SY-SUBRC
OUTPUT.
OPEN DATASET OUTFILE FOR APPENDING IN TEXT MODE
ENCODING DEFAULT.
SELECT * FROM KNA1 WHERE REGIO = STATE.
MOVE-CORRESPONDING KNA1 TO OUTREC.
TRANSFER OUTREC TO OUTFILE.
SELECT *
ENDSELECT.
CLOSE DATASET OUTFILE.
12
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Example - Read File
REPORT YDI00004.
PARAMETERS:
INFILE(20) DEFAULT ./bc180_file1
LOWER CASE.
Step #1
Step #2
Step #3
Step #4
Step #5
13
Data Interfaces |
DATA:
BEGIN OF INREC,
KUNNR TYPE KUNNR,
REGIO TYPE REGIO,
TELF1 TYPE TELF1,
END OF INREC.
CHECK
SY-SUBRC
OPEN DATASET INFILE FOR INPUT IN TEXT MODE
ENCODING DEFAULT.
DO.
READ DATASET INFILE INTO INREC.
IF SY-SUBRC <> 0. EXIT. ENDIF.
WRITE: INREC-KUNNR, INREC-REGIO, INREC-TELF1.
ENDDO.
CLOSE DATASET INFILE.
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Text Mode Versus Binary Mode
File structured
byte-by-byte
File structured
in lines
ABC
DEFGH
IJKL
14
ABCDE
FGHIJK
READ DATASET into structure
that is four characters in length
Data Interfaces |
2
3
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Text Mode Versus Binary Mode (Contd.)
File structured
byte-by-byte
File structured
in lines
ABC
DEFGH
IJKL
15
ABCDE
FGHIJK
READ DATASET into structure
that is four characters in length
Data Interfaces |
2
3
Dec-2008
K
IBM Corporation 2013
IBM Global Business Services
Demonstration
Writing a custom ABAP program that reads and writes data in a file stored on the
Application Server.
16
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Practice
Writing a custom ABAP program that reads and writes data in a file stored on the
Application Server.
17
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Summary
File in application server is opened by Open Dataset statement.
If you want to read the file then use Open Dataset for input statement.
If you want to write in the file then use Open Dataset for output statement. If that
file does not exit then it will create it for writing.
18
Data Interfaces |
Dec-2008
IBM Corporation 2013
IBM Global Business Services
Questions
Which ABAP statement we have to use to open a file stored on the Application
server ?
Which ABAP statement we have to use to close a file stored on the Application
server ?
Why we use TRANSFER statement ?
19
Data Interfaces |
Dec-2008
IBM Corporation 2013
