JouryJonkergouw

*&---------------------------------------------------------------------*
*& Report  ZBW_EXTRACTOR_TABLE_ANALYZER
*&
*&---------------------------------------------------------------------*
*&  Extractor & table analyzer
*&  Author: Joury Jonkergouw
*&  Created on:   19.08.2014
*&  Last changed: 25.10.2014
*&---------------------------------------------------------------------*
*&  12.09.2014; Sven van Leuken; Solved Shortdump with Call Function call

JouryJonkergouw

REPORT ZBW_CHANGE_BROADCAST_VARIABLE.

* Declaring structures
TYPES:
  BEGIN OF t_param,
    objnm     TYPE c LENGTH 40,
    varnm     TYPE c LENGTH 40,
    param_nm  TYPE string,
    param_val TYPE string,
  END OF t_param,

JouryJonkergouw

*&---------------------------------------------------------------------*
*& Report  ZBW_SET_BROADCAST_VARIABLE
*&---------------------------------------------------------------------*
*& Set broadcast variable to a certain value. This can be a fixed
*& value or a calculated field.
*&
*& PARAMETERS:
*&
*&  SETTING:    Technical ID of the Bex Broadcaster setting.
*&  VARIABLE:   Variable name which has to be changed.

JouryJonkergouw

REPORT ZBW_SET_BEX_USER_TEMPLATE.

* Author: Joury Jonkergouw
* Date: August 2014
*
* This program allows you to set the default template of a specific user
* to a template defined in the parameter "workbook ID".
* If parameter "All users" is set to a X, the template will be set for all users.

PARAMETER lv_wbid LIKE rsrwbindex-workbookid.

JouryJonkergouw

DATA:
  l_ts_tcurx  TYPE SORTED TABLE OF tcurx WITH UNIQUE KEY currkey,
  lv_shift    TYPE i.

FIELD-SYMBOLS:
  <lfs_tcurx>  TYPE tcurx.

*- Note: The USR06 field is attached to the Business Content InfoObject
*- 0PS_USR7 and not 0PS_USR06, hence why the ABAP code is using 0PS_USR7.
*-         __________________________________________

JouryJonkergouw

DATA:   lv_table_descr  TYPE REF TO cl_abap_tabledescr,
        lv_struct_descr TYPE REF TO cl_abap_structdescr,
        lv_columns      TYPE abap_compdescr_tab.

FIELD-SYMBOL: 
       <lv_column> LIKE LINE OF columns.
 
lv_table_descr ?= cl_abap_typedescr=>describe_by_data( MARA ).
lv_struct_descr ?= table_descr->get_table_line_type( ).
lv_columns = struct_descr->COMPONENTS.

JouryJonkergouw

DATA:
          l_t_rsiccont    TYPE STANDARD TABLE OF rsiccont,
          lv_ftimestampc  TYPE c LENGTH 14,
          lv_ttimestampc  TYPE c LENGTH 14,
          lv_frtimestamp  TYPE rstimestmp,
          lv_totimestamp  TYPE rstimestmp,
          lv_calweek      TYPE /bi0/oicalweek,
          lv_first_date   TYPE scal-date,
          lv_last_date    TYPE scal-date.

JouryJonkergouw

service {
 	"SCHEMA.Views::CV_VIEW" as "VIEW"
 	keys generate local "ID"
 	aggregates always;
}

JouryJonkergouw

*-  Data declaration
    DATA: l_t_results TYPE STANDARD TABLE OF _ty_s_sc_1,
          lv_index    TYPE i.

    CONSTANTS:
      lc_curtype_00 TYPE /bi0/oicurtype VALUE '00',
      lc_curtype_10 TYPE /bi0/oicurtype VALUE '10',
      lc_curtype_20 TYPE /bi0/oicurtype VALUE '20',
      lc_curtype_30 TYPE /bi0/oicurtype VALUE '30'.

JouryJonkergouw

FUNCTION ZBW_KEYFIG_WHERE_USED.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_IOBJNM) TYPE  RSD_IOBJNM
*"  EXPORTING
*"     REFERENCE(E_T_COMPLIST) TYPE  RZD1_T_COMPDIR_COMPIC
*"----------------------------------------------------------------------
  FIELD-SYMBOLS:
       <l_s_complist>         TYPE rzd1_s_compdir_compic.