File Read Write
*&-------------------------------------------------------------*
*& Report ZFILEREADWRITE
*&
*&-------------------------------------------------------------*
*&
*&
*&-------------------------------------------------------------*
REPORT zfilereadwrite.
DATA : time_stamp TYPE timestamp,
dat TYPE d,
tim TYPE t,
tz TYPE ttzz-tzone,
time_char(32) TYPE c,
l_st TYPE timestampl,
str_time TYPE string.
tz = sy-zonlo.
dat = sy-datum.
tim = sy-uzeit.
CONVERT DATE dat TIME tim DAYLIGHT SAVING TIME 'X'
INTO TIME STAMP time_stamp TIME ZONE tz.
GET TIME STAMP FIELD l_st.
MOVE l_st TO time_char.
CONDENSE time_char.
CONCATENATE '/usr/sap/' dat tim time_char+15(3) '.txt' INTO str_time.
WRITE str_time.
*str_time = '/usr/sap/20150425000831506.txt'.
PARAMETERS p_mtart TYPE mara-mtart.
DATA it_mara TYPE TABLE OF mara.
DATA wa_mara TYPE mara.
DATA lv_string TYPE string.
SELECT * FROM mara INTO TABLE it_mara "UP TO 50 ROWS
WHERE mtart = p_mtart .
OPEN DATASET str_time FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
LOOP AT it_mara INTO wa_mara .
CONCATENATE wa_mara-matnr wa_mara-mtart wa_mara-meins INTO lv_string.
TRANSFER lv_string TO str_time.
ENDLOOP.
CLOSE DATASET str_time.
DATA lv_data TYPE string.
OPEN DATASET str_time FOR INPUT IN TEXT MODE ENCODING DEFAULT.
DO.
READ DATASET str_time INTO lv_data.
IF sy-subrc <> 0.
EXIT.
ELSE.
WRITE:/ lv_data.
ENDIF.
ENDDO.
CLOSE DATASET str_time.





21개(1/2페이지)
번호 | 제목 | 글쓴이 | 조회 | 날짜 |
---|---|---|---|---|
21 | [BC] Post Installation Steps | 관리자 | 213 | 2017.10.27 07:33 |
20 | [BC] MAXDB 로그 파일 Overwrite 방법 | 관리자 | 2292 | 2015.07.13 15:53 |
19 | [FI] Company Code 복사시 "Enter numeric values o | 관리자 | 2457 | 2015.06.12 23:01 |
18 | [ABAP] BAPI_PR_CREATE | 관리자 | 2534 | 2015.04.28 07:35 |
17 |
[ABAP] 사업 아이템...
![]() |
관리자 | 5 | 2015.04.25 10:59 |
>> | [ABAP] File Read Write | 관리자 | 2647 | 2015.04.24 23:34 |
15 | [ABAP] Get list of files within specific direct | 관리자 | 2496 | 2015.04.24 20:42 |
14 |
[BC] Screen Personas 2.0 Installation and Con
![]() ![]() |
관리자 | 2 | 2014.07.11 21:43 |
13 |
[BC] Guide to Installing SAP Netweaver 7.31 o
![]() |
관리자 | 1 | 2014.07.07 09:30 |
12 |
[BC] Software Update Manager
![]() ![]() |
관리자 | 2 | 2014.07.05 10:46 |
11 | [BC] BRTOOLS to turn off archive log | 관리자 | 2353 | 2014.07.04 11:00 |
10 |
[BC] SAP Screen Personas
![]() ![]() |
관리자 | 2 | 2014.06.20 13:12 |
9 | [BC] BC 참고 사이트 | 관리자 | 2572 | 2014.06.18 10:59 |
8 |
[BC] 질문할꺼.
![]() ![]() ![]() |
관리자 | 2 | 2014.06.08 23:20 |
7 |
[BC] BC Overview
![]() ![]() |
관리자 | 3 | 2014.05.22 21:41 |
6 | [BC] Client Copy Profile 관련 정리중. | 관리자 | 2714 | 2014.05.17 12:47 |
5 |
[BC] SAP Software Logistics
![]() ![]() |
관리자 | 3 | 2014.05.03 07:04 |
4 |
[BC] 시스템 복사 (DB & SAP)
![]() ![]() |
관리자 | 3 | 2014.05.01 14:32 |
3 |
[FI] 용어 관련
![]() |
관리자 | 0 | 2014.05.01 11:48 |
2 | [BC] Install 관련 생각 나는 데로 정리 | 관리자 | 2708 | 2014.04.07 21:47 |