Program to upload and download table content

Question

Hi,
I need to create a program which should upload and download table content from PC and to PC.
How can i develop this program..Should i use BDC or any function module?
Ezhil.

Answer 1

The 2 program requested.....
Program to Download
REPORT ztable_download.
PARAMETERS: table LIKE dd02d-tabname,
                            file(50) LOWER CASE.
DATA: code(72) OCCURS 10,
            w_code(72),
            prog(8),
            msg(120),
            lin(3),
            wrd(10),
            off(3).
DATA: BEGIN OF rectest,
      tprec(1) VALUE '0',
      nometab(16),
      utente(20),
      data(10),
      ora(8),
END OF rectest.
DATA: BEGIN OF recdett,
      tprec(1) VALUE '1',
      tab LIKE table,
END OF recdett.
DATA: BEGIN OF rectot,
    tprec(1) VALUE '2',
    tot(9),
END OF rectot.
OPEN DATASET file FOR OUTPUT IN TEXT MODE.
rectest-nometab = table.
rectest-utente = sy-uname.
rectest-data = sy-datum.
rectest-ora = sy-uzeit.
TRANSFER rectest TO file.
APPEND 'PROGRAM SUBPOOL.'  TO code.
CONCATENATE 'TABLES ' table '.' INTO w_code SEPARATED BY space.
APPEND w_code TO code.
APPEND 'FORM DYN1 USING FILE.' TO code.
CONCATENATE 'SELECT * FROM ' table '.'
INTO w_code SEPARATED BY space.
APPEND w_code TO code.
CONCATENATE 'TRANSFER ' table ' TO FILE.'
INTO w_code SEPARATED BY space.
APPEND w_code TO code.
APPEND 'ENDSELECT.' TO code.
APPEND 'ENDFORM.' TO code.
GENERATE SUBROUTINE POOL code NAME prog
MESSAGE msg LINE lin WORD wrd OFFSET off.
IF sy-subrc <> 0.
   WRITE: / 'Error during generation in line', lin,
                / msg,
                / 'Word:', wrd, 'at offset', off.
ELSE.
   PERFORM dyn1 IN PROGRAM (prog) USING file.
   WRITE: / 'Esportati ',sy-dbcnt,' records.'.
ENDIF.
Program to upload
REPORT Ztable_upload.
PARAMETERS: FILE(50) lower case,
                           TEST AS CHECKBOX.
DATA: CODE(72) OCCURS 10,
            W_CODE(72),
            PROG(8),
            MSG(120),
            LIN(3),
            WRD(10),
            OFF(3).
DATA: BEGIN OF RECTEST,
      TPREC(1) VALUE '0',
      NOMETAB(16),
      UTENTE(20),
      DATA TYPE D,
      ORA TYPE T,
END OF RECTEST.
DATA: BEGIN OF RECTOT,
      TPREC(1) VALUE '2',
      TOT(9),
END OF RECTOT.
OPEN DATASET FILE FOR INPUT IN TEXT MODE.
READ DATASET FILE INTO RECTEST.
WRITE:/ 'Tabella..:',RECTEST-NOMETAB.
WRITE:/ 'Utente...:',RECTEST-UTENTE.
WRITE:/ 'Data.....:',RECTEST-DATA,RECTEST-ORA.
IF TEST = 'X'.
    APPEND 'PROGRAM SUBPOOL.'  TO CODE.
   CONCATENATE 'TABLES ' RECTEST-NOMETAB '.'
   INTO W_CODE SEPARATED BY SPACE.
  APPEND W_CODE TO CODE.
  APPEND 'FORM DYN1 USING FILE.' TO CODE.
  APPEND 'DATA W_COUNT TYPE P.' TO CODE.
  CONCATENATE 'SELECT * FROM' RECTEST-NOMETAB '.'
  INTO W_CODE SEPARATED BY SPACE.
  APPEND W_CODE TO CODE.
  CONCATENATE 'DELETE' RECTEST-NOMETAB '.'
  INTO W_CODE SEPARATED BY SPACE.
  APPEND W_CODE TO CODE.
  APPEND 'ENDSELECT.' TO CODE.
  APPEND ' DO.' TO CODE.
  CONCATENATE 'READ DATASET FILE INTO' RECTEST-NOMETAB '.'
  INTO W_CODE SEPARATED BY SPACE.
  APPEND W_CODE TO CODE.
  APPEND ' IF SY-SUBRC NE 0.' TO CODE.
  APPEND ' EXIT.' TO CODE.
  APPEND ' ENDIF.' TO CODE.
  CONCATENATE ' INSERT ' RECTEST-NOMETAB '.'
  INTO W_CODE SEPARATED BY SPACE.
  APPEND W_CODE TO CODE.
  APPEND 'ADD 1 TO W_COUNT.' TO CODE.
  APPEND 'ENDDO.' TO CODE.
  APPEND ' write: / ''Importati'' ,W_COUNT, ''records''.' TO CODE.
  APPEND 'ENDFORM.' TO CODE.
  GENERATE SUBROUTINE POOL CODE NAME PROG
  MESSAGE MSG LINE LIN WORD WRD OFFSET OFF.
  IF SY-SUBRC <> 0.
     WRITE: / 'Error during generation in line', LIN,
     / MSG,
     / 'Word:', WRD, 'at offset', OFF.
  ELSE.
     PERFORM DYN1 IN PROGRAM (PROG) USING FILE.
  ENDIF.
ENDIF.
Edited by: robcom69 on Feb 23, 2010 2:35 PM