Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Open Data Set

Former Member
0 Kudos

Hi ,

Any one have the sample program abt OPEN DATA SET and CLOSE DATA SET

1 ACCEPTED SOLUTION

Former Member
0 Kudos

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

5 REPLIES 5

Former Member
0 Kudos

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

Former Member
0 Kudos

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.

Former Member
0 Kudos

Former Member
0 Kudos

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.

Former Member
0 Kudos

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