All About Programming

  *&---------------------------------------------------------------------* *& Report ZTIMER *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT  ZTIMER . PARAMETERS  :  P_TIME  TYPE  T  DEFAULT  500 . CLASS  CTIMER  DEFINITION .    PUBLIC  SECTION .      METHODS  :  RUN_HANDLER  FOR  EVENT  FINISHED  OF  CL_GUI_TIMER . ENDCLASS . DATA  TIMER   TYPE  REF  TO  CL_GUI_TIMER . DATA  STIMER  TYPE  REF  TO  CTIMER . CLASS  CTIMER  IMPLEMENTATION .    METHOD  RUN_HANDLER .      CALL  METHOD  TIMER -> RUN .      CALL  METHOD  CL_GUI_CFW => SET_NEW_OK_CODE        EXPORTING         NEW_CODE  =  'REFR' .    ENDMETHOD . ENDCLASS . AT  SELECTION-SCREEN  OUTPUT .   P_TIME  =  P_TIME  -  10 .    CREATE  OBJECT TIMER .    CREATE  OBJECT STIMER .   TIMER -> INTERVAL  =  '10' .    CALL  METHOD  TIMER -> RUN .    SET  HANDLER  STIMER -> RUN_HANDLER  FO

  @AbapCatalog.sqlViewName: 'ZVMM002' @AbapCatalog.compiler.compareFilter: true @AbapCatalog.preserveKey: true @AccessControl.authorizationCheck: #CHECK @EndUserText.label: 'CDS View Material Stock' define view ZCDSMM002 as select from nsdm_v_mkol {     matnr,     werks,     lgort,     charg,     slabs as menge,     sobkz,     lifnr as snumb,      0  as retme,     '' as lgpbe } union all select from nsdm_v_msku{     matnr,     werks,     '' as lgort,     charg,     kulab as menge,     sobkz,     kunnr as snumb,      0  as retme,     '' as lgpbe } union all select from nsdm_v_mchb{     matnr,     werks,     lgort,     charg,     clabs as menge,     '' as sobkz,     '' as snumb,     cretm as retme,     '' as lgpbe } union all select from nsdm_v_mard{     matnr,     werks,     lgort,     '' as charg,     labst as menge,     '' as sobkz,     '' as snumb,     retme,     lgpbe }

  *&---------------------------------------------------------------------* *& Report ZREAD_FILE_AL11 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT  ZREAD_FILE_AL11 . constants :   yes      type  flag  value  'X' ,    no       type  flag  value  space ,   src_dir  type  epsdirnam  value  '/usr/sap/share/files'. *** START OF - Directory data :  v_err  type  i . data :  dir_name  type  epsdirnam ,       t_dir     type  table  of  zsepsfili  with  header  line .   ""as output data :  file_source       type  string ,       file_dest         type  string ,       file_temp         type  string ,       file_path         type  string ,       folder ( 200 )       type  c ,       add_ext_par ( 255 )  type  c ,       x_rtr ( 1 ) ,       x_ret2            type  bapiret2 ,       xt_ret2           type  table  of  bapi_matreturn2  with  header  li