Scribd
Upload
67 views

Chapter 02 - Application Server Files

Chapter 02_Application Server Files

Uploaded by

bakkali_bilal
Copyright
© © All Rights Reserved
Available Formats
Download as PPT, PDF, TXT or read online on Scribd
67 views

Chapter 02 - Application Server Files

Chapter 02_Application Server Files

Uploaded by

bakkali_bilal
Copyright
© © All Rights Reserved
Available Formats
Download as PPT, PDF, TXT or read online on Scribd
You are on page 1/ 19

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

You might also like