File Handling - Archiving

 Archiving: Moving the data from one folder to another folder and deleting it from the old folder.

*&---------------------------------------------------------------------*
*& Report ZVB_FH_ARCH
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_fh_arch.

TABLES:vbap.

TYPES: BEGIN OF ty_vbap,
         vbeln(10) TYPE c,
         posnr(5)  TYPE c,
         matnr(40) TYPE c,
       END OF ty_vbap.

DATA:it_vbap TYPE TABLE OF ty_vbap,
     iw_vbap TYPE ty_vbap.

DATA:lv_file   TYPE string VALUE '/tmp/SO Item.txt',
     lv_afile  TYPE string  VALUE '/usr/sap/T46/SYS/src/Order.txt',
     lv_string TYPE string.

START-OF-SELECTION.

  OPEN DATASET lv_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc = 0.
    DO.
      READ DATASET lv_file INTO lv_string.
      IF sy-subrc = 0.
        SPLIT lv_string AT '#' INTO iw_vbap-vbeln iw_vbap-posnr iw_vbap-matnr.
        APPEND iw_vbap TO it_vbap.
        CLEAR:iw_vbap.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
    CLOSE DATASET lv_file.
  ENDIF.

  IF it_vbap IS NOT INITIAL.
    OPEN DATASET lv_afile FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc = 0.
      LOOP AT it_vbap INTO iw_vbap.
        CONCATENATE iw_vbap-vbeln iw_vbap-posnr iw_vbap-matnr INTO lv_string SEPARATED BY '#'.
        TRANSFER lv_string TO lv_afile.
      ENDLOOP.
      CLOSE DATASET lv_afile.
      DELETE DATASET lv_file.
    ENDIF.
    WRITE:'Data moved to new folder'.
    LOOP AT it_vbap INTO iw_vbap.
      WRITE: / iw_vbap-vbeln,iw_vbap-posnr,iw_vbap-matnr.
    ENDLOOP.
  ELSE.
    MESSAGE 'No data in the file' TYPE 'E'.
  ENDIF.  

Result:


Comments

Post a Comment

Popular posts from this blog

CDS Views: Table Functions with Example

Image
1.Which supports the additional functionalities which are not supported by CDS. 2.SQL statements will written and will use SQL functions and methodologies. 3.Table function has optional input parameters and return parameters. 4.Needs class and method to define. -Class:Public, Method:Static 5.The statement Interface:IF_AMDP_MARKER_HDB must be use. 1.Creation of Table Function: Create a Data Definition and select template 'Define Table Function with Parameters' @EndUserText.label: 'Prod Order TF' define table function ZVB_TF_PROD_ORD //with parameters parameter_name : parameter_type returns { client : abap . clnt ; Prod_order : aufnr ; order_type : auart ; } implemented by method zvb_class_tf => get_ord_details ;   2.Creation of Class: CLASS zvb_class_tf DEFINITION PUBLIC . PUBLIC SECTION. CLASS-METHODS: get_ord_details FOR TABLE FUNCTION ZVB_TF_PROD_ORD . INTERFACES: IF_AMDP_MARKER_HDB . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS. ...
Read more

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Adobe Form/PDF Form Introduction

  Introduction: ·        Adobe forms are interactive smartforms. ·       We can interact with the layout of the adobe forms. ·        Adobe forms provides the output in the form of PDF. ·        T-code for Adobe form id SFP. ·        In Adobe form, we need to create an interface, the same interface can be used in multiple adobe forms. ·        Adobe form also generates a function at runtime. ·        Adobe life cycle designer(ADLC) is required to design the adobe form layout. Difference b/w smart form and adobe form: ·        Smart forms are not interactive whereas adobe forms are interactive. ·        In Smart forms the form interface, global definitions, pages, windows are all together whereas in A...
Read more