10-08-2008 12:17 PM
Hi ,
Any one have the sample program abt OPEN DATA SET and CLOSE DATA SET
10-08-2008 12:21 PM
hi,
see the below program.
REPORT ZDOWNLOAD_APPL_DEMO.TYPES : BEGIN OF ST_DEMO,
REG_NO(10) TYPE C,
NAME(20) TYPE C,
ADDR(20) TYPE C,
END OF ST_DEMO.DATA : WA_DEMO TYPE ST_DEMO,
IT_DEMO TYPE TABLE OF ST_DEMO,
L_FNAME TYPE STRING .PARAMETERS: P_FNAME(128) TYPE C DEFAULT '\usr\sap\SRI\SYS\src\DOWN.TXT' OBLIGATORY.
L_FNAME = P_FNAME.
WA_DEMO-REG_NO = '100001'.
WA_DEMO-NAME = 'ANAND'.
WA_DEMO-ADDR = 'NAGARKOVIL'.
APPEND WA_DEMO TO IT_DEMO.WA_DEMO-REG_NO = '100002'.
WA_DEMO-NAME = 'VIKRAM'.
WA_DEMO-ADDR = 'CHENNAI'.
APPEND WA_DEMO TO IT_DEMO. OPEN DATASET L_FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
WRITE :5 'REG NUM',16 'NAME',37 'ADDRESS' .
LOOP AT IT_DEMO INTO WA_DEMO.
IF SY-SUBRC = 0.
TRANSFER WA_DEMO TO L_FNAME.
WRITE :/5 WA_DEMO-REG_NO,16 WA_DEMO-NAME,37 WA_DEMO-ADDR.
ENDIF.
ENDLOOP.
regards,
raghu
10-08-2008 12:21 PM
hi,
see the below program.
REPORT ZDOWNLOAD_APPL_DEMO.TYPES : BEGIN OF ST_DEMO,
REG_NO(10) TYPE C,
NAME(20) TYPE C,
ADDR(20) TYPE C,
END OF ST_DEMO.DATA : WA_DEMO TYPE ST_DEMO,
IT_DEMO TYPE TABLE OF ST_DEMO,
L_FNAME TYPE STRING .PARAMETERS: P_FNAME(128) TYPE C DEFAULT '\usr\sap\SRI\SYS\src\DOWN.TXT' OBLIGATORY.
L_FNAME = P_FNAME.
WA_DEMO-REG_NO = '100001'.
WA_DEMO-NAME = 'ANAND'.
WA_DEMO-ADDR = 'NAGARKOVIL'.
APPEND WA_DEMO TO IT_DEMO.WA_DEMO-REG_NO = '100002'.
WA_DEMO-NAME = 'VIKRAM'.
WA_DEMO-ADDR = 'CHENNAI'.
APPEND WA_DEMO TO IT_DEMO. OPEN DATASET L_FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
WRITE :5 'REG NUM',16 'NAME',37 'ADDRESS' .
LOOP AT IT_DEMO INTO WA_DEMO.
IF SY-SUBRC = 0.
TRANSFER WA_DEMO TO L_FNAME.
WRITE :/5 WA_DEMO-REG_NO,16 WA_DEMO-NAME,37 WA_DEMO-ADDR.
ENDIF.
ENDLOOP.
regards,
raghu
10-08-2008 12:24 PM
Hello,
See these:
[Working With Files|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/working%2bwith%2bfiles]
[Reading file contents|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/reading%2bfile%2bcontents]
[Running a code from Notepad|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/running%2ba%2bcode%2bfrom%2bnotepad]
Regards.
10-08-2008 12:29 PM
10-08-2008 12:31 PM
Download internal table to Application server file(Unix)
DATA: e_file like rlgrap-filename value '/usr/sap/tmp/file.txt'.
open dataset e_file for output in text mode.
LOOP AT it_datatab......
transfer it_datatab to e_file.
ENDLOOP.
close dataset e_file.
10-08-2008 12:32 PM
Hi,
Example Code.
data: p_file type rlgrap-filename. " Application Server file path
open dataset p_file for input in text mode encoding default.
if sy-subrc = 0.
do.
read dataset p_file into ls_input-wa_string.
if sy-subrc eq 0.
append ls_input to lt_input.
else.
exit.
endif.
enddo.
close dataset p_file.
endif.
Hope it will helps