IT/SAP

ZBW_HANA_MIGRATION_COCKPIT (SAP Note 1909597)

SAP_BASIS 2016. 5. 20. 13:18

************************************************************************
* ZBW_HANA_MIGRATION_COCKPIT (SAP Note 1909597)
* Provided by Product Management SAP EDW (BW/HANA)
*
* This cockpit combines several tools to make the migration of an
* existing SAP BW deployment to the SAP HANA platform a more
* beautiful experience.
*
* (c) SAP AG 2011-16                               MFB, SAP Canada Inc.
* Last update: 2016-03-22
************************************************************************

REPORT zbw_hana_migration_cockpit.

CONSTANTS:
  c_version    TYPE string VALUE '3.0',
  c_date       TYPE string VALUE '(March 2016)',            "#EC NEEDED

* Set proxy host and port for access from BW application server
* to SAP Community Network (SCN.SAP.COM)
  c_proxy_host TYPE string VALUE '',
  c_proxy_port TYPE string VALUE ''.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_020
*&---------------------------------------------------------------------*

TYPE-POOLS:
  abap, icon, slis.

TABLES:
  tpara, tstc.                                              "#EC NEEDED

TYPES:
  BEGIN OF ys_versions,
    tool_name          TYPE prgname,
    available_version  TYPE string,
    available_date     TYPE string,
    sap_note           TYPE string,
    installed_version  TYPE string,
    icon               TYPE icon_d,
    status             TYPE string,
  END OF ys_versions,
  yt_versions TYPE TABLE OF ys_versions,

  BEGIN OF ys_log_table,
    text1    TYPE char200,
    text2    TYPE char200,
    text3    TYPE char200,
    text4    TYPE char200,
    text5    TYPE char200,
    text6    TYPE char200,
    text7    TYPE char200,
    text8    TYPE char200,
    text9    TYPE char200,
    detlevel TYPE ballevel,
  END OF ys_log_table,
  yt_log_table  TYPE TABLE OF ys_log_table.

CONSTANTS:
  c_stc_scenario TYPE memoryid
    VALUE 'STC_SCENARIO_ID',
  c_check_vers   TYPE string
    VALUE 'http://scn.sap.com/docs/DOC-40984'.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_010
*&---------------------------------------------------------------------*

* Subscreens/Blocks:
* 100 - Check                            / 100, 150, 160, 180
* 200 - Sizing                           / 200, 210, 220
* 600 - Housekeeping                     / 600, 610
* 300 - Migration                        / 300, 320, 340, 390
* 350 - SAP HANA                         / b00, b10, b20
* 450 - BW, edition for SAP HANA (B4H)   / c00, c10, c20, c30
* 400 - Data Warehouse Management (WHM)  / 400, 420, 430, 440, 410
* 700 - Business Explorer (BEx)          / 700, 720, 740
* 850 - BW Modeling Tools (MT)           / a00
* 800 - Security                         / 800, 820
* 500 - Optimization                     / 500, 510, 520, 540
* 950 - Infos                            / 910, 920, 930, 940
* 900 - About                            / 900, 980, 990

* Checking
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

* - Upgrade Path Finder
SELECTION-SCREEN BEGIN OF BLOCK b180 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t180,
   /1(77) scr_t181.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but180 USER-COMMAND s180,
  PUSHBUTTON 59(55) b_but182 USER-COMMAND s182.
SELECTION-SCREEN END OF BLOCK b180.

* - Checklist Tool
SELECTION-SCREEN BEGIN OF BLOCK b100 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t100,
   /1(77) scr_t101.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but100 USER-COMMAND s100,
  PUSHBUTTON 59(14) b_but101 USER-COMMAND s101,
  PUSHBUTTON 76(36) b_but102 USER-COMMAND s102.
SELECTION-SCREEN END OF BLOCK b100.

* - BW Objects
SELECTION-SCREEN BEGIN OF BLOCK b150 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t150,
   /1(77) scr_t151.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but150 USER-COMMAND s150,
  PUSHBUTTON 59(55) b_but152 USER-COMMAND s152.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but154 USER-COMMAND s154,
  PUSHBUTTON 59(55) b_but156 USER-COMMAND s156.
SELECTION-SCREEN END OF BLOCK b150.

* - Planning Functions
SELECTION-SCREEN BEGIN OF BLOCK b160 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t160 MODIF ID r73,
   /1(77) scr_t161 MODIF ID r73.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but160 USER-COMMAND s160 MODIF ID r73,
  PUSHBUTTON 59(55) b_but162 USER-COMMAND s162 MODIF ID r73.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but164 USER-COMMAND s164 MODIF ID hdb,
  PUSHBUTTON 59(55) b_but166 USER-COMMAND s166 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK b160.

SELECTION-SCREEN END OF SCREEN 100.

*-----------------------------------------------------------------------

* Sizing
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

* - Sizing Tool
SELECTION-SCREEN BEGIN OF BLOCK b200 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t200,
   /1(77) scr_t201.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but200 USER-COMMAND s200,
  PUSHBUTTON 59(14) b_but201 USER-COMMAND s201,
  PUSHBUTTON 76(36) b_but202 USER-COMMAND s202.
SELECTION-SCREEN END OF BLOCK b200.

* - Down-Sizing Configuration
SELECTION-SCREEN BEGIN OF BLOCK b210 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t210 MODIF ID r70,
   /1(77) scr_t211 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but210 USER-COMMAND s210 MODIF ID r70,
  PUSHBUTTON 59(55) b_but212 USER-COMMAND s212 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but214 USER-COMMAND s214 MODIF ID r70,
  PUSHBUTTON 59(55) b_but216 USER-COMMAND s216 MODIF ID r70.
SELECTION-SCREEN END OF BLOCK b210.

* - Down-Sizing Execution
SELECTION-SCREEN BEGIN OF BLOCK b220 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t220 MODIF ID r70,
   /1(77) scr_t221 MODIF ID r70,
   /1(77) scr_t222 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but220 USER-COMMAND s220 MODIF ID r70,
  PUSHBUTTON 59(55) b_but222 USER-COMMAND s222 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but224 USER-COMMAND s224 MODIF ID r74,
  PUSHBUTTON 59(55) b_but226 USER-COMMAND s226 MODIF ID r74.
SELECTION-SCREEN END OF BLOCK b220.

SELECTION-SCREEN END OF SCREEN 200.

*-----------------------------------------------------------------------

* Housekeeping
SELECTION-SCREEN BEGIN OF SCREEN 600 AS SUBSCREEN.

* - Housekeeping Automation
SELECTION-SCREEN BEGIN OF BLOCK b600 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t600 MODIF ID pca,
   /1(77) scr_t601 MODIF ID pca.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but600 USER-COMMAND s600 MODIF ID pca,
  PUSHBUTTON 59(55) b_but602 USER-COMMAND s602 MODIF ID pca.
SELECTION-SCREEN END OF BLOCK b600.

* - Housekeeping Admin and Stat Data
SELECTION-SCREEN BEGIN OF BLOCK b610 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t610,
   /1(77) scr_t611.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but610 USER-COMMAND s610,
  PUSHBUTTON 59(55) b_but611 USER-COMMAND s611.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but612 USER-COMMAND s612,
  PUSHBUTTON 59(55) b_but613 USER-COMMAND s613 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but614 USER-COMMAND s614,
  PUSHBUTTON 59(55) b_but615 USER-COMMAND s615.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but616 USER-COMMAND s616,
  PUSHBUTTON 59(55) b_but617 USER-COMMAND s617.
SELECTION-SCREEN END OF BLOCK b610.

SELECTION-SCREEN END OF SCREEN 600.

*-----------------------------------------------------------------------

* Migration
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.

* - BW Pre-migration (ASU Toolbox, DDL Generation)
SELECTION-SCREEN BEGIN OF BLOCK b300 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t300,
   /1(77) scr_t301.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but300 USER-COMMAND s300,
  PUSHBUTTON 59(55) b_but301 USER-COMMAND s301.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but310 USER-COMMAND s310.
SELECTION-SCREEN END OF BLOCK b300.

* - Post Copy Automation
SELECTION-SCREEN BEGIN OF BLOCK b320 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t320 MODIF ID pca,
   /1(77) scr_t321 MODIF ID pca.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but320 USER-COMMAND s320 MODIF ID pca,
  PUSHBUTTON 59(55) b_but321 USER-COMMAND s321 MODIF ID pca.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(36) b_but322 USER-COMMAND s322 MODIF ID pca,
  PUSHBUTTON 39(36) b_but323 USER-COMMAND s323 MODIF ID pca,
  PUSHBUTTON 77(36) b_but324 USER-COMMAND s324 MODIF ID pca.
SELECTION-SCREEN END OF BLOCK b320.

* - BW Post-migration
SELECTION-SCREEN BEGIN OF BLOCK b340 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t340 MODIF ID hdb,
   /1(77) scr_t341 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but340 USER-COMMAND s340 MODIF ID hdb,
  PUSHBUTTON 59(55) b_but341 USER-COMMAND s341 MODIF ID hdb.
*  PUSHBUTTON 77(36) b_but342 USER-COMMAND s342 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK b340.

* - Database Migration Option
SELECTION-SCREEN BEGIN OF BLOCK b390 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t390.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t391,
   /1(77) scr_t392,
   /1(77) scr_t393,
   /1(77) scr_t394.
SELECTION-SCREEN END OF BLOCK b390.

SELECTION-SCREEN END OF SCREEN 300.

*-----------------------------------------------------------------------

* SAP HANA
SELECTION-SCREEN BEGIN OF SCREEN 350 AS SUBSCREEN.

* - Database Checks
SELECTION-SCREEN BEGIN OF BLOCK bb00 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tb00 MODIF ID hdb,
   /1(77) scr_tb01 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb00 USER-COMMAND sb00 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butb01 USER-COMMAND sb01 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb02 USER-COMMAND sb02 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butb03 USER-COMMAND sb03 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb04 USER-COMMAND sb04 MODIF ID hdb,
  PUSHBUTTON 59(15) b_butb05 USER-COMMAND sb05 MODIF ID hdb,
  PUSHBUTTON 77(36) b_butb06 USER-COMMAND sb06 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb07 USER-COMMAND sb07 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butb08 USER-COMMAND sb08 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK bb00.

* - External SAP HANA Views
SELECTION-SCREEN BEGIN OF BLOCK bb10 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tb10 MODIF ID hdb,
   /1(77) scr_tb11 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb10 USER-COMMAND sb10 MODIF ID h74,
  PUSHBUTTON 59(55) b_butb11 USER-COMMAND sb11 MODIF ID h74.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb12 USER-COMMAND sb12 MODIF ID h74,
  PUSHBUTTON 59(55) b_butb13 USER-COMMAND sb13 MODIF ID h74.
SELECTION-SCREEN END OF BLOCK bb10.

* - BW Search on SAP HANA
SELECTION-SCREEN BEGIN OF BLOCK bb20 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tb20 MODIF ID hdb,
   /1(77) scr_tb21 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb20 USER-COMMAND sb20 MODIF ID h74,
  PUSHBUTTON 59(55) b_butb21 USER-COMMAND sb21 MODIF ID h74.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butb22 USER-COMMAND sb22 MODIF ID h74.
SELECTION-SCREEN END OF BLOCK bb20.

SELECTION-SCREEN END OF SCREEN 350.

*-----------------------------------------------------------------------

* BW, edition for SAP HANA
SELECTION-SCREEN BEGIN OF SCREEN 450 AS SUBSCREEN.

* - General
SELECTION-SCREEN BEGIN OF BLOCK bc00 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tc00 MODIF ID hdb,
   /1(77) scr_tc01 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butc00 USER-COMMAND sc00 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butc01 USER-COMMAND sc01 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butc02 USER-COMMAND sc02 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK bc00.

* - Operating Mode
SELECTION-SCREEN BEGIN OF BLOCK bc10 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tc10 MODIF ID hdb,
   /1(77) scr_tc11 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butc10 USER-COMMAND sc10 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butc11 USER-COMMAND sc11 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK bc10.

* - Approving the Export of Unsupported Objects
SELECTION-SCREEN BEGIN OF BLOCK bc20 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tc20 MODIF ID hdb,
   /1(77) scr_tc21 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butc20 USER-COMMAND sc20 MODIF ID hdb,
  PUSHBUTTON 59(55) b_butc21 USER-COMMAND sc21 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK bc20.

* - Transfer of the Data Flow
SELECTION-SCREEN BEGIN OF BLOCK bc30 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_tc30 MODIF ID hdb,
   /1(77) scr_tc31 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_butc30 USER-COMMAND sc30 MODIF ID hdb,
  PUSHBUTTON 59(15) b_butc31 USER-COMMAND sc31 MODIF ID hdb,
  PUSHBUTTON 77(36) b_butc32 USER-COMMAND sc32 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK bc30.

SELECTION-SCREEN END OF SCREEN 450.

*-----------------------------------------------------------------------

* Data Warehouse Management (WHM)
SELECTION-SCREEN BEGIN OF SCREEN 400 AS SUBSCREEN.

* - Convert DataFlows from 3.x to 7.x
SELECTION-SCREEN BEGIN OF BLOCK b400 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t400 MODIF ID r70,
   /1(77) scr_t401 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but400 USER-COMMAND s400 MODIF ID r70,
  PUSHBUTTON 59(15) b_but401 USER-COMMAND s401 MODIF ID r70,
  PUSHBUTTON 77(36) b_but402 USER-COMMAND s402 MODIF ID r70.
SELECTION-SCREEN END OF BLOCK b400.

* - Convert InfoProviders to HANA-optimized
SELECTION-SCREEN BEGIN OF BLOCK b420 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t420 MODIF ID hdb,
   /1(77) scr_t421 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but420 USER-COMMAND s420 MODIF ID hdb,
  PUSHBUTTON 59(15) b_but421 USER-COMMAND s421 MODIF ID hdb,
  PUSHBUTTON 77(36) b_but422 USER-COMMAND s422 MODIF ID hdb.
SELECTION-SCREEN END OF BLOCK b420.

* - Convert MultiProviders to CompositeProviders
SELECTION-SCREEN BEGIN OF BLOCK b430 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t430 MODIF ID hdb,
   /1(77) scr_t431 MODIF ID hdb.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but430 USER-COMMAND s430 MODIF ID r74,
  PUSHBUTTON 59(15) b_but431 USER-COMMAND s431 MODIF ID r74,
  PUSHBUTTON 77(36) b_but432 USER-COMMAND s432 MODIF ID r74.
SELECTION-SCREEN END OF BLOCK b430.

* - Transformation Finder
SELECTION-SCREEN BEGIN OF BLOCK b440 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t440,
   /1(77) scr_t441.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but440 USER-COMMAND s440,
  PUSHBUTTON 59(15) b_but441 USER-COMMAND s441,
  PUSHBUTTON 77(36) b_but442 USER-COMMAND s442.
SELECTION-SCREEN END OF BLOCK b440.

* - Object Activation
SELECTION-SCREEN BEGIN OF BLOCK b410 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t410,
   /1(77) scr_t411.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but410 USER-COMMAND s410.
SELECTION-SCREEN END OF BLOCK b410.

SELECTION-SCREEN END OF SCREEN 400.

*-----------------------------------------------------------------------

* Business Explorer (BEx)
SELECTION-SCREEN BEGIN OF SCREEN 700 AS SUBSCREEN.

* - Queries
SELECTION-SCREEN BEGIN OF BLOCK b720 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t720,
   /1(77) scr_t721.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but720 USER-COMMAND s720,
  PUSHBUTTON 59(55) b_but722 USER-COMMAND s722.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but724 USER-COMMAND s724,
  PUSHBUTTON 59(55) b_but726 USER-COMMAND s726.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but728 USER-COMMAND s728.
SELECTION-SCREEN END OF BLOCK b720.

* - Web Templates
SELECTION-SCREEN BEGIN OF BLOCK b740 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t740 MODIF ID r70,
   /1(77) scr_t741 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but740 USER-COMMAND s740 MODIF ID r70,
  PUSHBUTTON 59(15) b_but741 USER-COMMAND s742 MODIF ID r70,
  PUSHBUTTON 77(36) b_but742 USER-COMMAND s742 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but744 USER-COMMAND s744 MODIF ID r70,
  PUSHBUTTON 59(15) b_but746 USER-COMMAND s746 MODIF ID r70.
SELECTION-SCREEN END OF BLOCK b740.

* - Workbooks
SELECTION-SCREEN BEGIN OF BLOCK b700 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t700 MODIF ID r70,
   /1(77) scr_t701 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but700 USER-COMMAND s700 MODIF ID r70,
  PUSHBUTTON 59(55) b_but702 USER-COMMAND s702 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but704 USER-COMMAND s704 MODIF ID r70.
SELECTION-SCREEN END OF BLOCK b700.

SELECTION-SCREEN END OF SCREEN 700.

*-----------------------------------------------------------------------

* BW Modeling Tools (MT)
SELECTION-SCREEN BEGIN OF SCREEN 850 AS SUBSCREEN.

* - BW Note Analyzer
SELECTION-SCREEN BEGIN OF BLOCK ba00 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_ta00 MODIF ID r74,
   /1(77) scr_ta01 MODIF ID r74,
   /1(77) scr_ta02 MODIF ID r74.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(36) b_buta00 USER-COMMAND sa00 MODIF ID r74.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(36) b_buta01 USER-COMMAND sa01 MODIF ID r74,
  PUSHBUTTON 39(36) b_buta02 USER-COMMAND sa02 MODIF ID r74,
  PUSHBUTTON 77(36) b_buta03 USER-COMMAND sa03 MODIF ID r74.
SELECTION-SCREEN END OF BLOCK ba00.

SELECTION-SCREEN END OF SCREEN 850.

*-----------------------------------------------------------------------

* Security
SELECTION-SCREEN BEGIN OF SCREEN 800 AS SUBSCREEN.

* - Authorizations
SELECTION-SCREEN BEGIN OF BLOCK b800 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t800 MODIF ID r70,
   /1(77) scr_t801 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but800 USER-COMMAND s800 MODIF ID r70,
  PUSHBUTTON 59(55) b_but802 USER-COMMAND s802 MODIF ID r70.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but804 USER-COMMAND s804 MODIF ID r70,
  PUSHBUTTON 59(55) b_but806 USER-COMMAND s806 MODIF ID r70.
SELECTION-SCREEN END OF BLOCK b800.

* - Roles
SELECTION-SCREEN BEGIN OF BLOCK b820 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t820,
   /1(77) scr_t821.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but820 USER-COMMAND s820,
  PUSHBUTTON 59(55) b_but822 USER-COMMAND s822.
SELECTION-SCREEN END OF BLOCK b820.

SELECTION-SCREEN END OF SCREEN 800.

*-----------------------------------------------------------------------

* Optimization
SELECTION-SCREEN BEGIN OF SCREEN 500 AS SUBSCREEN.

* - ABAP Analyzer
SELECTION-SCREEN BEGIN OF BLOCK b500 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t500,
   /1(77) scr_t501.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but500 USER-COMMAND s500,
  PUSHBUTTON 59(15) b_but501 USER-COMMAND s501,
  PUSHBUTTON 77(36) b_but502 USER-COMMAND s502.
SELECTION-SCREEN END OF BLOCK b500.

* - ABAP Test Cockpit
SELECTION-SCREEN BEGIN OF BLOCK b510 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t510 MODIF ID atc,
   /1(77) scr_t511 MODIF ID atc.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but510 USER-COMMAND s510 MODIF ID atc,
  PUSHBUTTON 59(55) b_but512 USER-COMMAND s512 MODIF ID atc.
SELECTION-SCREEN END OF BLOCK b510.

* - Code Inspector
SELECTION-SCREEN BEGIN OF BLOCK b520 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t520 MODIF ID sci,
   /1(77) scr_t521 MODIF ID sci.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but520 USER-COMMAND s520 MODIF ID sci,
  PUSHBUTTON 59(55) b_but522 USER-COMMAND s522 MODIF ID sci.
SELECTION-SCREEN END OF BLOCK b520.

* - SQL Monitor / Performance Tuning Worklist
SELECTION-SCREEN BEGIN OF BLOCK b540 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t540 MODIF ID sqx,
   /1(77) scr_t541 MODIF ID sqx.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but540 USER-COMMAND s540 MODIF ID sql,
  PUSHBUTTON 59(55) b_but542 USER-COMMAND s542 MODIF ID sql.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but544 USER-COMMAND s544 MODIF ID sql,
  PUSHBUTTON 59(55) b_but546 USER-COMMAND s546 MODIF ID swl.
SELECTION-SCREEN END OF BLOCK b540.

SELECTION-SCREEN END OF SCREEN 500.

*-----------------------------------------------------------------------

* Infos
SELECTION-SCREEN BEGIN OF SCREEN 950 AS SUBSCREEN.

* SCN
SELECTION-SCREEN BEGIN OF BLOCK b910 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t910.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but910 USER-COMMAND s910,
  PUSHBUTTON 59(55) b_but911 USER-COMMAND s911.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but912 USER-COMMAND s912,
  PUSHBUTTON 59(55) b_but913 USER-COMMAND s913.
SELECTION-SCREEN END OF BLOCK b910.

* Docu
SELECTION-SCREEN BEGIN OF BLOCK b920 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t920.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but920 USER-COMMAND s920 MODIF ID d20,
  PUSHBUTTON 59(55) b_but921 USER-COMMAND s921 MODIF ID d21.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but922 USER-COMMAND s922 MODIF ID d22,
  PUSHBUTTON 59(55) b_but923 USER-COMMAND s923 MODIF ID d23.
SELECTION-SCREEN END OF BLOCK b920.

* SMP
SELECTION-SCREEN BEGIN OF BLOCK b930 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t930.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but930 USER-COMMAND s930 MODIF ID d30,
  PUSHBUTTON 59(55) b_but931 USER-COMMAND s931 MODIF ID d31.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but932 USER-COMMAND s932 MODIF ID d32,
  PUSHBUTTON 59(55) b_but933 USER-COMMAND s933 MODIF ID d33.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but934 USER-COMMAND s934.
SELECTION-SCREEN END OF BLOCK b930.

* PAM
SELECTION-SCREEN BEGIN OF BLOCK b940 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t940.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but940 USER-COMMAND s940 MODIF ID d40,
  PUSHBUTTON 59(55) b_but941 USER-COMMAND s941 MODIF ID d41.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_but942 USER-COMMAND s942 MODIF ID d42,
  PUSHBUTTON 59(55) b_but943 USER-COMMAND s943 MODIF ID d43.
SELECTION-SCREEN END OF BLOCK b940.

SELECTION-SCREEN END OF SCREEN 950.

*-----------------------------------------------------------------------

* About
SELECTION-SCREEN BEGIN OF SCREEN 900 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b900 WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(70) scr_t900,
   77(15) scr_t902,
   /1(77) scr_t901.
SELECTION-SCREEN END OF BLOCK b900.

SELECTION-SCREEN BEGIN OF BLOCK b980 WITH FRAME.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_upda USER-COMMAND upda.
SELECTION-SCREEN END OF BLOCK b980.

SELECTION-SCREEN BEGIN OF BLOCK b990 WITH FRAME.
SELECTION-SCREEN:
  PUSHBUTTON /1(55) b_docu USER-COMMAND docu.
SELECTION-SCREEN END OF BLOCK b990.

SELECTION-SCREEN END OF SCREEN 900.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_035
*&---------------------------------------------------------------------*

* Header
SELECTION-SCREEN BEGIN OF BLOCK scr_header WITH FRAME.
SELECTION-SCREEN COMMENT:
   /1(77) scr_t000,
   /1(77) scr_t001.
SELECTION-SCREEN END OF BLOCK scr_header.

SELECTION-SCREEN BEGIN OF TABBED BLOCK scr_tab FOR 30 LINES.
SELECTION-SCREEN:
  TAB (20) scr_tab1 USER-COMMAND scr_push1 DEFAULT SCREEN 100, "Checks
  TAB (20) scr_tab2 USER-COMMAND scr_push2 DEFAULT SCREEN 200, "Sizing
  TAB (20) scr_tab6 USER-COMMAND scr_push6 DEFAULT SCREEN 600, "Housekeeping
  TAB (20) scr_tab3 USER-COMMAND scr_push3 DEFAULT SCREEN 300, "Migration
  TAB (20) scr_tabb USER-COMMAND scr_pushb DEFAULT SCREEN 350 MODIF ID hdb, "SAP HANA
  TAB (20) scr_tabc USER-COMMAND scr_pushc DEFAULT SCREEN 450 MODIF ID hdb, "Edition for HANA
  TAB (20) scr_tab4 USER-COMMAND scr_push4 DEFAULT SCREEN 400, "WHM
  TAB (20) scr_tab7 USER-COMMAND scr_push7 DEFAULT SCREEN 700, "BEx
  TAB (20) scr_taba USER-COMMAND scr_pusha DEFAULT SCREEN 850 MODIF ID hdb, "Modeling Tools
  TAB (20) scr_tab8 USER-COMMAND scr_push8 DEFAULT SCREEN 800, "Security
  TAB (20) scr_tab5 USER-COMMAND scr_push5 DEFAULT SCREEN 500, "Optimization
  TAB (20) scr_tabi USER-COMMAND scr_pushi DEFAULT SCREEN 950, "Infos
  TAB (20) scr_tab9 USER-COMMAND scr_push9 DEFAULT SCREEN 900. "About
SELECTION-SCREEN END OF BLOCK scr_tab.

*-----------------------------------------------------------------------

FORM modify_screen.

  DATA:
    l_show  TYPE abap_bool,
    l_debug TYPE c.

  GET PARAMETER ID 'RS_DEBUGLEVEL' FIELD l_debug.
  CHECK l_debug IS INITIAL.

  LOOP AT SCREEN.
    l_show = abap_true.
    CASE screen-group1.
*     Release 7.5 or higher
      WHEN 'R75'.
        IF sy-saprl < '750'.
          l_show = abap_false.
        ENDIF.
*     Release 7.4 or higher
      WHEN 'R74'.
        IF sy-saprl < '740'.
          l_show = abap_false.
        ENDIF.
*     Release 7.3 or higher
      WHEN 'R73'.
        IF sy-saprl < '730'.
          l_show = abap_false.
        ENDIF.
*     Release 7.0 or higher
      WHEN 'R70'.
        IF sy-saprl < '700'.
          l_show = abap_false.
        ENDIF.
*     SAP HANA only
      WHEN 'HDB'.
        IF sy-dbsys <> 'HDB'.
          l_show = abap_false.
        ENDIF.
*     SAP HANA only on Release 7.4 or higher
      WHEN 'H74'.
        IF sy-dbsys <> 'HDB' OR sy-saprl < '740'.
          l_show = abap_false.
        ENDIF.
*     Post-Copy Automation
      WHEN 'PCA'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'STC01'.                        "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
*     ABAP Test Cockpit
      WHEN 'ATC'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'ATC'.                          "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
*     ABAP Code Inspector
      WHEN 'SCI'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'SCI'.                          "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
*     SQL Monitor
      WHEN 'SQL'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'SQLM' OR tcode = '/SDF/SQLM'.  "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
*     SQL Tuning Worklist
      WHEN 'SWL'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'SWLT'.                         "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
      WHEN 'SQX'.
        SELECT SINGLE * FROM tstc
          WHERE tcode = 'SWLT' OR tcode = 'SQLM'
             OR tcode = '/SDF/SQLM'.                    "#EC CI_GENBUFF
        IF sy-subrc <> 0.
          l_show = abap_false.
        ENDIF.
    ENDCASE.

    IF l_show = abap_true.
      screen-active = '1'.
      screen-input = '1'.
    ELSE.
      screen-active = '0'.
      screen-input = '0'.
    ENDIF.

    MODIFY SCREEN.
  ENDLOOP.

ENDFORM.                    "modify_screen

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_040
*&---------------------------------------------------------------------*

TABLES:
  sscrfields.

DATA:
  g_info          TYPE string,
  gs_text         TYPE textpool,
  gt_text         TYPE TABLE OF textpool,
  gt_text2        TYPE TABLE OF textpool.

DEFINE macro_textpool_load.
  read textpool sy-repid into gt_text language sy-langu.
  gt_text2[] = gt_text[].
END-OF-DEFINITION.

DEFINE macro_textpool_save.
  if gt_text[] <> gt_text2[].
    insert textpool sy-repid from gt_text language sy-langu.
  endif.
END-OF-DEFINITION.

DEFINE macro_textpool.
  read table gt_text into gs_text with key id = &1 key = &2.
  if sy-subrc = 0.
    delete gt_text where id = &1 and key = &2.
  endif.
  clear gs_text.
  gs_text-id    = &1.
  gs_text-key   = &2.
  if &1 = 'S'.
    gs_text-entry+8 = &3.
  else.
    gs_text-entry = &3.
  endif.
  gs_text-length = strlen( gs_text-entry ).
  append gs_text to gt_text.
END-OF-DEFINITION.

DEFINE macro_tab_header.
  write &2 as icon to &1.
  &1+6 = &3.
END-OF-DEFINITION.

DEFINE macro_tab_icon.
  if &4 is initial.
    g_info = &3.
  else.
    g_info = &4.
  endif.

  call function 'ICON_CREATE'
    exporting
      name   = &2
      text   = &3
      info   = g_info
    importing
      result = &1.
END-OF-DEFINITION.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_050
*&---------------------------------------------------------------------*

INITIALIZATION.

  macro_textpool_load.

  macro_textpool 'R' '' 'SAP BW Migration Cockpit for SAP HANA'.

  macro_textpool_save.

*-----------------------------------------------------------------------

* Header
  scr_t000 = 'This cockpit combines several tools to make the migration of an existing'.
  scr_t001 = 'SAP BW deployment to SAP HANA a more beautiful experience.'.

*-----------------------------------------------------------------------

* Checks
  macro_tab_header scr_tab1 icon_check 'Checks'.

  scr_t180 = 'Upgrade Path Finder'.
  scr_t181 = 'Show recommended upgrade/migration path and tools'.

  macro_tab_icon b_but180 icon_execute_object 'Upgrade Paths' ''.
  macro_tab_icon b_but182 icon_information 'Documentation' 'SAP Note 2296693'.

  scr_t100 = 'Checklist Tool'.
  scr_t101 = 'Check best practice guidelines and pre-requisites for migration to SAP HANA'.

  macro_tab_icon b_but100 icon_execute_object 'Checklist Tool' ''.
  macro_tab_icon b_but101 icon_protocol 'Log' ''.
  macro_tab_icon b_but102 icon_information 'Documentation' 'SAP Note 1729988'.

  scr_t150 = 'BW Checks'.
  scr_t151 = 'Analyze and repair BW objects and query definitions'.

  macro_tab_icon b_but150 icon_execute_object 'BW Object Checks' ''.
  macro_tab_icon b_but152 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but154 icon_execute_object 'BEx Query Check' ''.
  macro_tab_icon b_but156 icon_information 'Documentation' 'SAP Note 792779'.

  scr_t160 = 'Planning Function Checks'.
  scr_t161 = 'Determine whether planning function are executed in ABAP or in SAP HANA'.

  macro_tab_icon b_but160 icon_execute_object 'Planning Function Check' ''.
  macro_tab_icon b_but162 icon_information 'Documentation' 'SAP Note 1824516'.

  macro_tab_icon b_but164 icon_execute_object 'SQLScript Check' ''.
  macro_tab_icon b_but166 icon_information 'Documentation' 'How-to Guide'.

*-----------------------------------------------------------------------

* Sizing
  macro_tab_header scr_tab2 icon_calculation 'Sizing'.

  scr_t200 = 'Sizing Tool'.
  scr_t201 = 'Determine size required for running system on SAP HANA'.

  macro_tab_icon b_but200 icon_execute_object 'Sizing Tool' ''.
  macro_tab_icon b_but201 icon_protocol 'Log' ''.
  macro_tab_icon b_but202 icon_information 'Documentation' 'SAP Note 1736976'.

  scr_t210 = 'Down-Sizing (Configuration)'.
  scr_t211 = 'Configure NLS connection and data archive processes'.

  macro_tab_icon b_but210 icon_configuration 'Near-line Storage' ''.
  macro_tab_icon b_but212 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but214 icon_configuration 'Data Archive Process' ''.
  macro_tab_icon b_but216 icon_information 'Documentation' 'SAP Help'.

  scr_t220 = 'Down-Sizing (Execution)'.
  scr_t221 = 'Execute archive processes to reduce system size or convert'.
  scr_t222 = 'PSA and write-optimized DSOs in SAP-HANA-extended tables'.

  macro_tab_icon b_but220 icon_execute_object 'Data Archiving (ADK)' ''.
  macro_tab_icon b_but222 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but224 icon_execute_object 'Move to Extended Tables' ''.
  macro_tab_icon b_but226 icon_information 'Documentation' 'SAP Note 2057636'.

*-----------------------------------------------------------------------

* Housekeeping
  macro_tab_header scr_tab6 icon_connection_object 'Housekeeping'.

  scr_t600 = 'Housekeeping Automation'.
  scr_t601 = 'Setup and execute a task list for regular housekeeping activities'.

  macro_tab_icon b_but600 icon_task 'Housekeeping Tasks' ''.
  macro_tab_icon b_but602 icon_information 'Documentation' 'SAP Note 1829728'.

  scr_t610 = 'Housekeeping Tasks'.
  scr_t611 = 'Most common housekeeping for administration and statistic data'.

  macro_tab_icon b_but610 icon_execute_object 'Application Log Deletion' ''.
  macro_tab_icon b_but611 icon_execute_object 'Job Log Deletion' ''.

  macro_tab_icon b_but612 icon_execute_object 'OLAP Statistic Deletion' ''.
  macro_tab_icon b_but613 icon_execute_object 'Planning Stat. Deletion' ''.

  macro_tab_icon b_but614 icon_execute_object 'IDoc Archiving' ''.
  macro_tab_icon b_but615 icon_execute_object 'Request Admin Archiving' ''.

  macro_tab_icon b_but616 icon_information 'Documentation' 'SAP Help'.
  macro_tab_icon b_but617 icon_information 'List of Large Tables' 'SAP Note 706478'.

*-----------------------------------------------------------------------

* Migration
  macro_tab_header scr_tab3 icon_move 'Migration'.

  scr_t300 = 'Pre Migration Tasks'.
  scr_t301 = 'Perform tasks before starting upgrade or migration to SAP HANA'.

  macro_tab_icon b_but300 icon_execute_object 'ASU Toolbox' ''.
  macro_tab_icon b_but301 icon_information 'ASU Documentation/Content' 'SAP Note 1000009'.

  macro_tab_icon b_but310 icon_execute_object 'SQL DDL Generation' ''.

  scr_t320 = 'Task Automation'.
  scr_t321 = 'Setup task lists for automated execution during upgrade or migration'.

  macro_tab_icon b_but320 icon_task 'Task Manager' ''.
  macro_tab_icon b_but321 icon_biw_monitor 'Task Monitor' ''.

  macro_tab_icon b_but322 icon_check 'Notes Analyzer' ''.
  macro_tab_icon b_but323 icon_xml_doc 'Basis XML' 'SAP Note 1614266'.
  macro_tab_icon b_but324 icon_xml_doc 'BW XML' 'SAP Note 1707321'.

  scr_t340 = 'Post Migration Tasks'.
  scr_t341 = 'Execute tasks after migration to SAP HANA'.

  macro_tab_icon b_but340 icon_execute_object 'BW Post-Migration Tasks' ''.
  macro_tab_icon b_but341 icon_protocol 'Log' ''.
*  macro_tab_icon b_but342 icon_information 'Documentation' 'SAP Help'.

  scr_t390 = 'Note on Database Migration Option (DMO):'.
  scr_t391 = 'The migration cockpit is a launch pad for many tools. Most are relevant'.
  scr_t392 = 'for any migration. However, when using DMO, you only need the "ASU Toolbox"'.
  scr_t393 = 'on this tab (using ASU_BW_70x_74x_DMO.zip from ASU Content).'.
  scr_t394 = 'The other tools on this tab are included in DMO.'.

*-----------------------------------------------------------------------

* SAP HANA
  macro_tab_header scr_tabb icon_database_table 'SAP HANA'.

  scr_tb00 = 'Database Checks'.
  scr_tb01 = 'Perform various SAP HANA related consistency checks'.

  macro_tab_icon b_butb00 icon_execute_object 'Table Consistency Check' ''.
  macro_tab_icon b_butb01 icon_information 'Documentation' 'SAP Note 1937062'.

  macro_tab_icon b_butb02 icon_execute_object 'PSA Consistency Check' ''.
  macro_tab_icon b_butb03 icon_information 'Documentation' 'SAP Note 1979876'.

  macro_tab_icon b_butb04 icon_execute_object 'Delta Merge Check' ''.
  macro_tab_icon b_butb05 icon_information 'Note' ''.       "1647717
  macro_tab_icon b_butb06 icon_information 'Documentation' 'How-to Guide'.

  macro_tab_icon b_butb07 icon_biw_monitor 'Monitor Non-Active Data' ''.
  macro_tab_icon b_butb08 icon_information 'Documentation' 'SAP Help'.

  scr_tb10 = 'External SAP HANA Views'.
  scr_tb11 = 'Manage and check SAP HANA views for BW objects'.

  macro_tab_icon b_butb10 icon_execute_object 'View Administration' ''.
  macro_tab_icon b_butb11 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_butb12 icon_execute_object 'View Consistency Check' ''.
  macro_tab_icon b_butb13 icon_execute_object 'Virtual/Query Provider' ''.

  scr_tb20 = 'BW Search on SAP HANA'.
  scr_tb21 = 'Search in metadata and where-used lists'.

  macro_tab_icon b_butb20 icon_search 'BW Search' ''.
  macro_tab_icon b_butb21 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_butb22 icon_execute_object 'BW Search Maintenance' ''.

*-----------------------------------------------------------------------

* BW, edition for SAP HANA
  macro_tab_header scr_tabc icon_system_favorites 'Edition (B4H)'.

  scr_tc00 = 'SAP BW, edition for SAP HANA'.
  scr_tc01 = 'Get more details about the latest BW solution'.

  macro_tab_icon b_butc00 icon_information 'General Infos' 'SAP Note 2246699'.
  macro_tab_icon b_butc01 icon_information 'Installable Add-Ons' 'SAP Note 2189708'.
  macro_tab_icon b_butc02 icon_information 'Ramp-Up' 'SCN.SAP.com'.

  scr_tc10 = 'Operating Mode'.
  scr_tc11 = 'Check system and switch to B4H mode'.

  macro_tab_icon b_butc10 icon_execute_object 'Switch Mode' ''.
  macro_tab_icon b_butc11 icon_information 'Documentation' 'SAP Help'.

  scr_tc20 = 'Object Compatibility'.
  scr_tc21 = 'Approving the export of unsupported objects'.

  macro_tab_icon b_butc20 icon_execute_object 'Maintain Whitelist' ''.
  macro_tab_icon b_butc21 icon_information 'Documentation' 'SAP Help'.

  scr_tc30 = 'Transfer Data Flows'.
  scr_tc31 = 'Convert existing data models to objects supported by B4H'.

  macro_tab_icon b_butc30 icon_execute_object 'Transfer Objects' ''.
  macro_tab_icon b_butc31 icon_information 'Note' ''.       "2238220
  macro_tab_icon b_butc32 icon_information 'Documentation' 'SAP Help'.

*-----------------------------------------------------------------------

* Data Warehouse Management (WHM)
  macro_tab_header scr_tab4 icon_adopt 'WHM'.

  scr_t400 = 'Data Flow Conversion'.
  scr_t401 = 'Convert data flows from 3.x to 7.x functionality'.

  macro_tab_icon b_but400 icon_execute_object 'Data Flow Conversion' ''.
  macro_tab_icon b_but401 icon_protocol 'Log' ''.
  macro_tab_icon b_but402 icon_information 'Documentation' 'SAP Help'.

  scr_t420 = 'InfoProvider Conversion'.
  scr_t421 = 'Convert InfoProviders to SAP HANA-optimized version'.

  macro_tab_icon b_but420 icon_execute_object 'InfoProvider Conversion' ''.
  macro_tab_icon b_but421 icon_protocol 'Log' ''.
  macro_tab_icon b_but422 icon_information 'Documentation' 'SAP Help'.

  scr_t430 = 'MultiProvider Conversion'.
  scr_t431 = 'Convert MultiProviders (and old Comp.Providers) to CompositeProviders'.

  macro_tab_icon b_but430 icon_execute_object 'MultiProvider Conversion' ''.
  macro_tab_icon b_but431 icon_protocol 'Log' ''.
  macro_tab_icon b_but432 icon_information 'Documentation' 'SAP Help'.

  scr_t440 = 'Transformation Finder'.
  scr_t441 = 'Find "1:1" or "n:1" transformations to potentially retire InfoProviders'.

  macro_tab_icon b_but440 icon_execute_object 'Transformation Finder' ''.
  macro_tab_icon b_but441 icon_protocol 'Log' ''.
  macro_tab_icon b_but442 icon_information 'Documentation' 'SAP Note 1908367'.

  scr_t410 = 'Object Activation'.
  scr_t411 = 'Activate a selection of BW objects (also check and repair options)'.

  macro_tab_icon b_but410 icon_activate 'Activate Objects' ''.

*-----------------------------------------------------------------------

* Business Explorer (BEx)
  macro_tab_header scr_tab7 icon_biw_report 'BEx'.

  scr_t720 = 'BEx Queries'.
  scr_t721 = 'Tools for maintaining and checking query definitions'.

  macro_tab_icon b_but720 icon_execute_object 'BEx Query Designer' ''.
  macro_tab_icon b_but722 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but724 icon_biw_monitor 'BEx Query Monitor' ''.
  macro_tab_icon b_but726 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but728 icon_display 'BEx Query Definition' ''.

  scr_t740 = 'BEx Web Templates'.
  scr_t741 = 'Convert 3.x to 7.x web items and web templates'.

  macro_tab_icon b_but740 icon_execute_object 'BEx Web Application Designer' ''.
  macro_tab_icon b_but741 icon_information 'Note' ''.       "832713
  macro_tab_icon b_but742 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but744 icon_execute_object 'Web Item Conversion' ''.
  macro_tab_icon b_but746 icon_information 'Note' ''.       "832712

  scr_t700 = 'BEx Workbooks'.
  scr_t701 = 'Convert 3.x to 7.x workbooks'.

  macro_tab_icon b_but700 icon_execute_object 'BEx Analyzer' ''.
  macro_tab_icon b_but702 icon_information 'Documentation' 'SAP Note 1901268'.

  macro_tab_icon b_but704 icon_execute_object 'Workbook Conversion' ''.

*-----------------------------------------------------------------------

* BW Modeling Tools (MT)
  macro_tab_header scr_taba icon_model 'Modeling Tools'.

  scr_ta00 = 'BW Modeling Tools'.
  scr_ta01 = 'Check corrections for BW Modeling Tools, HANA Analysis'.
  scr_ta02 = 'Processes/Transformations, and Query Designer'.

  macro_tab_icon b_buta00 icon_check 'Notes Analyzer' ''.
  macro_tab_icon b_buta01 icon_xml_doc 'BW-MT XML' 'SAP Note 2094475'.
  macro_tab_icon b_buta02 icon_xml_doc 'BW-HAP XML' 'SAP Note 2117312'.
  macro_tab_icon b_buta03 icon_xml_doc 'BWMT-ELEM XML' 'SAP Note 2222904'.

*-----------------------------------------------------------------------

* Security
  macro_tab_header scr_tab8 icon_locked 'Security'.

  scr_t800 = 'Authorizations'.
  scr_t801 = 'Convert 3.x reporting authorizations to 7.x analysis authorizations'.

  macro_tab_icon b_but800 icon_execute_object 'Maintenance' ''.
  macro_tab_icon b_but802 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but804 icon_execute_object 'Conversion' ''.
  macro_tab_icon b_but806 icon_information 'Documentation' 'SAP Help'.

  scr_t820 = 'Roles'.
  scr_t821 = 'Maintain roles and user assignment'.

  macro_tab_icon b_but820 icon_execute_object 'Roles' ''.
  macro_tab_icon b_but822 icon_information 'Documentation' 'SAP Help'.

*-----------------------------------------------------------------------

* Optimization
  macro_tab_header scr_tab5 icon_abap 'Optimization'.

  scr_t500 = 'ABAP Routine Analyzer'.
  scr_t501 = 'Scan custom ABAP routines used in data flows or business planning'.

  macro_tab_icon b_but500 icon_execute_object 'ABAP Routine Analyzer' ''.
  macro_tab_icon b_but501 icon_protocol 'Log' ''.
  macro_tab_icon b_but502 icon_information 'Documentation' 'SAP Note 1847431'.

  scr_t510 = 'ABAP Test Cockpit'.
  scr_t511 = 'Implement a best-practices recommendation for ABAP quality checking'.

  macro_tab_icon b_but510 icon_execute_object 'ABAP Test Cockpit' ''.
  macro_tab_icon b_but512 icon_information 'Documentation' 'SAP Help'.

  scr_t520 = 'ABAP Code Inspector'.
  scr_t521 = 'Analyze objects for performance, security, serviceability, etc.'.

  macro_tab_icon b_but520 icon_execute_object 'ABAP Code Inspector' ''.
  macro_tab_icon b_but522 icon_information 'Documentation' 'SAP Help'.

  scr_t540 = 'ABAP SQL Optimization'.
  scr_t541 = 'Configure system-wide monitoring, display results and work list'.

  macro_tab_icon b_but540 icon_database_table 'SQL Monitor Setup' ''.
  macro_tab_icon b_but542 icon_information 'Documentation' 'SAP Help'.

  macro_tab_icon b_but544 icon_database_table 'SQL Monitor Data Display' ''.
  macro_tab_icon b_but546 icon_working_plan 'SQL Tuning Worklist' ''.

*-----------------------------------------------------------------------

* Infos
  macro_tab_header scr_tabi icon_information 'Infos'.

  scr_t910 = 'SAP Community Network'.

  macro_tab_icon b_but910 icon_personal_help 'BW on HANA' 'SCN.SAP.com'.
  macro_tab_icon b_but911 icon_personal_help 'First Guidance' 'SCN.SAP.com'.
  macro_tab_icon b_but912 icon_personal_help 'Simplified Release Notes' 'SCN.SAP.com'.
  macro_tab_icon b_but913 icon_personal_help 'FAQ' 'SCN.SAP.com'.

  scr_t920 = 'SAP Product Documentation'.

  macro_tab_icon b_but920 icon_message_question_small 'BW 7.30' 'HELP.SAP.com'.
  macro_tab_icon b_but921 icon_message_question_small 'BW 7.31' 'HELP.SAP.com'.
  macro_tab_icon b_but922 icon_message_question_small 'BW 7.40' 'HELP.SAP.com'.
  macro_tab_icon b_but923 icon_message_question_small 'BW 7.50' 'HELP.SAP.com'.

  scr_t930 = 'SAP Service Marketplace (Login Required)'.

  macro_tab_icon b_but930 icon_sap 'Roadmaps' 'SERVICE.SAP.com'.
  macro_tab_icon b_but931 icon_sap 'Learning Map 7.3' 'SERVICE.SAP.com'.
  macro_tab_icon b_but932 icon_sap 'Learning Map 7.4' 'SERVICE.SAP.com'.
  macro_tab_icon b_but933 icon_sap 'Learning Map 7.5' 'SERVICE.SAP.com'.
  macro_tab_icon b_but934 icon_sap 'Learning Map DMO' 'SERVICE.SAP.com'.

  scr_t940 = 'SAP Product Availability Matrix'.

  macro_tab_icon b_but940 icon_businav_processmatrix 'NW 7.30' 'SERVICE.SAP.com'.
  macro_tab_icon b_but941 icon_businav_processmatrix 'NW 7.31' 'SERVICE.SAP.com'.
  macro_tab_icon b_but942 icon_businav_processmatrix 'NW 7.40' 'SERVICE.SAP.com'.
  macro_tab_icon b_but943 icon_businav_processmatrix 'NW 7.50' 'SERVICE.SAP.com'.

*-----------------------------------------------------------------------

* About
  macro_tab_header scr_tab9 icon_system_help 'About'.

  scr_t900 = 'Provided by Product Management SAP EDW (BW/HANA)'.
  scr_t901 = 'Making innovation adoption a beautiful experience for SAP customers'.
  CONCATENATE 'Version' c_version INTO scr_t902 SEPARATED BY space.

  macro_tab_icon b_upda icon_check 'Check for Updates' ''.
  macro_tab_icon b_docu icon_information 'Documentation' 'SAP Note 1909597'.

*-----------------------------------------------------------------------

* Adjust screen to release
  PERFORM modify_screen.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_100
*&---------------------------------------------------------------------*

AT SELECTION-SCREEN.

  PERFORM modify_screen.

  CHECK sy-dynnr <> '1000'.

  CASE sscrfields.

*-----------------------------------------------------------------------

*   Checks - Upgrade Path Finder
    WHEN 'S180'.
      PERFORM call_program
        USING 'ZBW_UPGRADE_PATHS' abap_true.
    WHEN 'S182'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2296693'.

*   Checks - Checklist Tool
    WHEN 'S100'.
      PERFORM call_program
        USING 'ZBW_HANA_CHECKLIST' abap_true.
    WHEN 'S101'.
      PERFORM bal_display_logs
        USING 'ZBW_HANA_CHECKLIST' '19000101' '99991231'.
    WHEN 'S102'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1729988'.

*   Checks - BW Objects
    WHEN 'S150'.
      PERFORM call_transaction
        USING 'RSRV'.
    WHEN 'S152'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/92/1d733b73a8f706e10000000a11402f/frameset.htm'.

*   Checks - BW Queries
    WHEN 'S154'.
      PERFORM call_program
        USING 'ANALYZE_RSZ_TABLES' abap_false.
    WHEN 'S156'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/792779'.

*   Checks - Planning Functions
    WHEN 'S160'.
      PERFORM call_program
        USING 'RSPLS_PLANNING_ON_HDB_ANALYSIS' abap_false.
    WHEN 'S162'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1824516'.

*   Checks - Planning SQLScript
    WHEN 'S164'.
      PERFORM call_program
        USING 'RSPLS_SQL_SCRIPT_TOOL' abap_false.
    WHEN 'S166'.
      PERFORM call_browser
        USING 'http://scn.sap.com/docs/DOC-53800'.

*-----------------------------------------------------------------------

*   Sizing
    WHEN 'S200'.
      IF sy-saprl < '700'.
        PERFORM call_program
          USING 'ZBW_HANA_SIZING' abap_true.
      ELSE.
        PERFORM call_program
          USING '/SDF/HANA_BW_SIZING' abap_false.
      ENDIF.
    WHEN 'S201'.
      PERFORM callback_log
        USING 'RSD' 'MIGRATION' '' abap_false.
    WHEN 'S202'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1736976'.

*-----------------------------------------------------------------------

*   Down-Sizing Configuration
    WHEN 'S210'.
      PERFORM call_transaction
        USING 'RSDANLCON'.
    WHEN 'S212'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/60/cf63e1bbbb49429ee6c35e6ad03a45/frameset.htm'.
    WHEN 'S214'.
      PERFORM call_transaction
        USING 'RSDAP'.
    WHEN 'S216'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/4a/2c7958e460351ce10000000a42189b/frameset.htm'.

*   Down-Sizing Execution
    WHEN 'S220'.
      PERFORM call_transaction
        USING 'SARA'.
    WHEN 'S222'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/4c/c97123f3f05dc5e10000000a42189c/frameset.htm'.
    WHEN 'S224'.
      PERFORM call_program
        USING 'RS_DYNTIER_CHANGE' abap_false.
    WHEN 'S226'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2057636'.

*-----------------------------------------------------------------------

*   Housekeeping - Tasks
    WHEN 'S600'.
      SELECT SINGLE * FROM tpara WHERE paramid = c_stc_scenario.
      IF sy-subrc = 0.
        SET PARAMETER ID c_stc_scenario FIELD 'SAP_BW_HOUSEKEEPING'.
      ENDIF.
      PERFORM call_transaction
        USING 'STC01'.
    WHEN 'S602'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1829728'.

*   Housekeeping - Application Log Deletion
    WHEN 'S610'.
      PERFORM call_transaction
        USING 'SLG2'.
*   Housekeeping - Job Log Deletion
    WHEN 'S611'.
      PERFORM call_program
        USING 'RSBTCDEL' abap_false.
*   Housekeeping - OLAP Statistic Deletion
    WHEN 'S612'.
      PERFORM call_program
        USING 'RSDDSTAT_DATA_DELETE' abap_false.
*   Housekeeping - Planning Statistic Deletion
    WHEN 'S613'.
      PERFORM call_transaction
        USING 'BPS_STAT0'.
*   Housekeeping - IDoc Archiving
    WHEN 'S614'.
      SET PARAMETER ID 'OBT' FIELD 'IDOC'.
      PERFORM call_transaction
        USING 'SARA'.
*   Housekeeping - Request Admin Archiving
    WHEN 'S615'.
      PERFORM call_transaction
        USING 'RSREQARCH'.
*   Housekeeping - Documentation
    WHEN 'S616'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/86/bd48813bba47ccbed3cd81c403a709/frameset.htm'.
    WHEN 'S617'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/706478'.

*-----------------------------------------------------------------------

*   Migration - ASU Toolbox
    WHEN 'S300'.
      PERFORM call_transaction
        USING '/ASU/START'.
    WHEN 'S301'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1000009'.

*   Migration - DDL Generation
    WHEN 'S310'.
      PERFORM call_smigr.

*   Migration - Post Copy Automation
    WHEN 'S320'.
      SELECT SINGLE * FROM tpara WHERE paramid = c_stc_scenario.
      IF sy-subrc = 0.
        SET PARAMETER ID c_stc_scenario FIELD 'SAP_BW*'.
      ENDIF.
      PERFORM call_transaction
        USING 'STC01'.
    WHEN 'S321'.
      SELECT SINGLE * FROM tpara WHERE paramid = c_stc_scenario.
      IF sy-subrc = 0.
        SET PARAMETER ID c_stc_scenario FIELD 'SAP_BW*'.
      ENDIF.
      PERFORM call_transaction
        USING 'STC02'.

    WHEN 'S322'.
      PERFORM call_program
        USING 'Z_SAP_NOTE_ANALYZER' abap_false.
    WHEN 'S323'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1614266'.
    WHEN 'S324'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1707321'.

*   Migration - Post-Migration
    WHEN 'S340'.
      PERFORM call_program
        USING 'RS_BW_POST_MIGRATION' abap_false.
    WHEN 'S341'.
      PERFORM bal_display_logs
        USING 'RS_BW_POST_MIGRATION' '19000101' '99991231'.
*      PERFORM callback_log
*        USING 'RSD' 'MIGRATION' 'RS_BW_POST_MIGRATION' abap_false.

*-----------------------------------------------------------------------

*   SAP HANA - Table Consistency
    WHEN 'SB00'.
      PERFORM call_program
        USING 'RSDU_TABLE_CONSISTENCY' abap_false.
    WHEN 'SB01'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1937062'.

*   SAP HANA - PSA Consistency
    WHEN 'SB02'.
      PERFORM call_program
        USING 'RSDU_PSA_PARTNO_CHECK' abap_false.
    WHEN 'SB03'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1979867 '.

*   SAP HANA - Delta Merge
    WHEN 'SB04'.
      PERFORM call_program
        USING 'RSHDB_CHECK_TABLES' abap_false.
    WHEN 'SB05'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1647717'.
    WHEN 'SB06'.
      PERFORM call_browser
        USING 'http://scn.sap.com/docs/DOC-27558'.

*   SAP HANA - Monitor Non-Active Data
    WHEN 'SB07'.
      PERFORM call_transaction
        USING 'RSHDBMON'.
    WHEN 'SB08'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/1a/c43532bb124b2fb62c3e5ad8b1b442/content.htm'.

*   SAP HANA - View Administration
    WHEN 'SB10'.
      PERFORM call_transaction
        USING 'RS2HANA_ADMIN'.
    WHEN 'SB11'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/66/33d851345c4770bd4e523701b9f5b0/content.htm'.

*   SAP HANA - View Consistency
    WHEN 'SB12'.
      PERFORM call_transaction
        USING 'RS2HANA_CHECK'.

*   SAP HANA - Virtual / Query as InfoProvider
    WHEN 'SB13'.
      PERFORM call_transaction
        USING 'RSDDB'.

*   SAP HANA - BW Search
    WHEN 'SB20'.
      PERFORM call_transaction
        USING 'RSOS_SEARCH'.
    WHEN 'SB21'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/1a/b179fdd69941db9cc71a337fd0281d/content.htm'.

*   SAP HANA - BW Search Maintenance
    WHEN 'SB22'.
      PERFORM call_transaction
        USING 'RSOSM'.

*-----------------------------------------------------------------------

*   B4H - General Info
    WHEN 'SC00'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2246699'.
    WHEN 'SC01'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2189708'.
    WHEN 'SC02'.
      PERFORM call_browser
        USING 'http://scn.sap.com/docs/DOC-66052'.

*   B4H - Operation Mode
    WHEN 'SC10'.
      PERFORM call_program
        USING 'RS_B4HANA_CHECK_ENABLE' abap_false.
    WHEN 'SC11'.
      PERFORM call_browser
        USING 'http://help.sap.com/hc/bw75_edition4hana'.

*   B4H - Maintain Whitelist
    WHEN 'SC20'.
      PERFORM call_program
        USING 'RS_B4HANA_WHITELIST_MAINTAIN' abap_false.
    WHEN 'SC21'.
      PERFORM call_browser
        USING 'http://help.sap.com/hc/bw75_edition4hana'.

*   B4H - Transfer Objects
    WHEN 'SC30'.
      PERFORM call_transaction
        USING 'RSB4HTRF'.
    WHEN 'SC31'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2238220'.
    WHEN 'SC32'.
      PERFORM call_browser
        USING 'http://help.sap.com/hc/bw75_edition4hana'.

*-----------------------------------------------------------------------

*   WHM - DataFlow Conversion
    WHEN 'S400'.
      PERFORM call_transaction
        USING 'RSMIGRATE'.
    WHEN 'S401'.
      PERFORM call_program
        USING 'RSMIGRATE_MON' abap_false.
    WHEN 'S402'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/4e/cf67e543403352e10000000a42189b/frameset.htm'.

*   WHM - InfoProvider Conversion
    WHEN 'S420'.
      PERFORM call_transaction
        USING 'RSMIGRHANADB'.
    WHEN 'S421'.
      PERFORM callback_log
        USING 'RSDRI' 'REFACTORING' '' abap_false.
    WHEN 'S422'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/5d/510e5c5a3c444785b5996af9d03341/frameset.htm'.

*   WHM - MultiProvider Conversion
    WHEN 'S430'.
      PERFORM call_program
        USING 'RSO_CONVERT_IPRO_TO_HCPR' abap_false.
    WHEN 'S431'.
      PERFORM callback_log
        USING 'RSD' 'HCPR_COPY' '' abap_false.
    WHEN 'S432'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2080851 '.

*   WHM - Transformation Finder
    WHEN 'S440'.
      PERFORM call_program
        USING 'ZBW_TRANSFORM_FINDER' abap_true.
    WHEN 'S441'.
      PERFORM bal_display_logs
        USING 'ZBW_TRANSFORM_FINDER' '19000101' '99991231'.
    WHEN 'S442'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1908367'.

*   WHM - Object Activation
    WHEN 'S410'.
      PERFORM launch_activation.

*-----------------------------------------------------------------------

*   BEx - Queries
    WHEN 'S720'.
      PERFORM launch_tool
        USING 'BExQueryDesignerStarter.exe'.
    WHEN 'S722'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/9d/76563cc368b60fe10000000a114084/frameset.htm'.

    WHEN 'S724'.
      PERFORM call_transaction
        USING 'RSRT'.
    WHEN 'S726'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/a0/2a183d30805c59e10000000a114084/frameset.htm'.

    WHEN 'S728'.
      PERFORM call_transaction
        USING 'RSRTQ'.

*   BEx - Web Templates
    WHEN 'S740'.
      PERFORM launch_tool
        USING 'BExWebApplicationDesigner.exe'.
    WHEN 'S741'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/832713'.
    WHEN 'S742'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/43/54e487c277321ae10000000a422035/frameset.htm'.

    WHEN 'S744'.
      PERFORM call_program
        USING 'RSZW_ITEM_MIGRATION_3X_TO_70' abap_false.
    WHEN 'S746'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/832712'.

*   BEx - Workbooks
    WHEN 'S700'.
      PERFORM launch_tool
        USING 'BExAnalyzer.exe'.
    WHEN 'S702'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1901268'.

    WHEN 'S704'.
      PERFORM call_program
        USING 'RSR_DB_WORKBOOK_UTILITY' abap_false.

*-----------------------------------------------------------------------

*   MT - BW Note Analyzer
    WHEN 'SA00'.
      PERFORM call_program
        USING 'Z_BW_NOTE_ANALYZER' abap_false.
    WHEN 'SA01'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2094475'.
    WHEN 'SA02'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2117312'.
    WHEN 'SA03'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/2222904'.

*-----------------------------------------------------------------------

*   Security - Authorizations
    WHEN 'S800'.
      PERFORM call_transaction
        USING 'RSECADMIN'.
    WHEN 'S802'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/4c/65fcd82f841f3ce10000000a42189c/frameset.htm'.

    WHEN 'S804'.
      PERFORM call_program
        USING 'RSEC_MIGRATION' abap_false.
    WHEN 'S806'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/ad/8f7842fdb70f53e10000000a155106/frameset.htm'.

*   Security - Authorizations
    WHEN 'S820'.
      PERFORM call_transaction
        USING 'PFCG'.
    WHEN 'S822'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/4c/5bdc2a97817511e10000000a42189b/frameset.htm'.

*-----------------------------------------------------------------------

*   Optimization - ABAP Analyzer
    WHEN 'S500'.
      PERFORM call_program
        USING 'ZBW_ABAP_ANALYZER' abap_true.
    WHEN 'S501'.
      PERFORM bal_display_logs
        USING 'ZBW_ABAP_ANALYZER' '19000101' '99991231'.
    WHEN 'S502'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1847431'.

*   Optimization - ABAP Test Cockpit
    WHEN 'S510'.
      PERFORM call_transaction
        USING 'ATC'.
    WHEN 'S512'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/62/c41ad841554516bb06fb3620540e47/frameset.htm'.

*   Optimization - ABAP Code Inspector
    WHEN 'S520'.
      PERFORM call_transaction
        USING 'SCI'.
    WHEN 'S522'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw73/helpdata/en/49/205531d0fc14cfe10000000a42189b/frameset.htm'.

*   Optimization - SQL Monitor / SQL Peformance Tuning Worklist
    WHEN 'S540'.
      SELECT SINGLE * FROM tstc WHERE tcode = 'SQLM'.
      IF sy-subrc = 0.
        PERFORM call_transaction
          USING 'SQLM'.
      ELSE.
        PERFORM call_transaction
          USING '/SDF/SQLM'.
      ENDIF.
    WHEN 'S542'.
      PERFORM call_browser
        USING 'http://help.sap.com/saphelp_nw74/helpdata/en/f1/be2e59f44d448180703d6a497ec1e2/frameset.htm'.
    WHEN 'S544'.
      SELECT SINGLE * FROM tstc WHERE tcode = 'SQLM'.
      IF sy-subrc = 0.
        PERFORM call_transaction
          USING 'SQLMD'.
      ELSE.
        PERFORM call_transaction
          USING '/SDF/SQL'.
      ENDIF.
    WHEN 'S546'.
      PERFORM call_transaction
        USING 'SWLT'.

*-----------------------------------------------------------------------

*   Infos - Additional Information
    WHEN 'S910'.
      PERFORM call_browser
        USING 'http://scn.sap.com/community/netweaver-bw-hana'.
    WHEN 'S911'.
      PERFORM call_browser
        USING 'http://scn.sap.com/docs/DOC-28467'.
    WHEN 'S912'.
      PERFORM call_browser
        USING 'http://scn.sap.com/community/data-warehousing/bw/blog/2015/02/20/simplified-sap-bw-74-release-notes'.
    WHEN 'S913'.
      PERFORM call_browser
        USING 'http://scn.sap.com/community/bw-hana/faq/'.

*   Infos - Product Documentation
    WHEN 'S920'.
      PERFORM call_browser
        USING 'http://help.sap.com/nw73'.
    WHEN 'S921'.
      PERFORM call_browser
        USING 'http://help.sap.com/nw731'.
    WHEN 'S922'.
      PERFORM call_browser
        USING 'http://help.sap.com/nw74'.
    WHEN 'S923'.
      PERFORM call_browser
        USING 'http://help.sap.com/nw75'.

*   Infos - Learning Map
    WHEN 'S930'.
      PERFORM call_browser
        USING 'http://service.sap.com/~form/sapnet?_SHORTKEY=01100035870000752360'.
    WHEN 'S931'.
      PERFORM call_browser
        USING 'http://service.sap.com/~form/sapnet?_SHORTKEY=01100035870000734511'.
    WHEN 'S932'.
      PERFORM call_browser
        USING 'http://service.sap.com/~form/sapnet?_SHORTKEY=01100035870000758478'.
    WHEN 'S933'.
      MESSAGE i799(rsm1)
        WITH 'Learning Map for SAP NetWeaver 7.5' 'is not available yet' '' ''.
*      PERFORM call_browser
*        USING 'http://service.sap.com/~form/sapnet?_SHORTKEY='.
    WHEN 'S934'.
      PERFORM call_browser
        USING 'http://service.sap.com/~form/sapnet?_SHORTKEY=01200252310000100297'.

*   Infos - Product Availability Matrix
    WHEN 'S940'.
      PERFORM call_browser
        USING 'https://apps.support.sap.com/sap/support/pam?hash=pvnr%3D01200314690900002540'.
    WHEN 'S941'.
      PERFORM call_browser
        USING 'https://apps.support.sap.com/sap/support/pam?hash=pvnr%3D01200615320900005175'.
    WHEN 'S942'.
      PERFORM call_browser
        USING 'https://apps.support.sap.com/sap/support/pam?hash=pvnr%3D67838200100900005868'.
    WHEN 'S943'.
      PERFORM call_browser
        USING 'https://apps.support.sap.com/sap/support/pam?hash=pvnr%3D73554900100900000414'.


*-----------------------------------------------------------------------

*   About
    WHEN 'UPDA'.
      PERFORM call_update.

    WHEN 'DOCU'.
      PERFORM call_browser
        USING 'http://service.sap.com/sap/support/notes/1909597'.

  ENDCASE.

*-----------------------------------------------------------------------

AT SELECTION-SCREEN OUTPUT.

  PERFORM modify_screen.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_150
*&---------------------------------------------------------------------*

START-OF-SELECTION.

  MESSAGE i799(rsm1) WITH 'Start the tools via the buttons below'.

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_200
*&---------------------------------------------------------------------*

*-----------------------------------------------------------------------

FORM call_browser USING i_url TYPE char255.

  CHECK NOT i_url IS INITIAL.

  CALL FUNCTION 'CALL_BROWSER'
    EXPORTING
      url    = i_url
    EXCEPTIONS
      OTHERS = 0.

ENDFORM.                    "call_browser

*-----------------------------------------------------------------------

FORM call_program
  USING i_repid  TYPE sy-repid
        i_suffix TYPE abap_bool.

  DATA:
    l_repid      TYPE sy-repid,
    lt_selection TYPE rsparams_tt.

  l_repid = i_repid.
  IF sy-saprl < '700' AND i_suffix = abap_true.
    CONCATENATE l_repid '_3X' INTO l_repid.
  ENDIF.

  PERFORM call_program_selection USING l_repid lt_selection.

ENDFORM.                    "call_program

*-----------------------------------------------------------------------

FORM call_program_selection
  USING i_repid      TYPE sy-repid
        it_selection TYPE rsparams_tt.

  DATA:
    l_repid TYPE sy-repid.

  CHECK NOT i_repid IS INITIAL.

  SELECT SINGLE name FROM trdir INTO l_repid WHERE name = i_repid.
  IF sy-subrc = 0.
    CALL FUNCTION 'SUBMIT_REPORT'
      EXPORTING
        report           = i_repid
        ret_via_leave    = space
      TABLES
        selection_table  = it_selection
      EXCEPTIONS
        just_via_variant = 1
        no_submit_auth   = 2
        OTHERS           = 3.
    IF sy-subrc = 2.
      MESSAGE i149(00) WITH i_repid.
    ENDIF.
  ELSE.
    MESSAGE i541(00) WITH i_repid.
  ENDIF.

ENDFORM.                    "call_program

*-----------------------------------------------------------------------

FORM call_transaction USING i_tcode TYPE sy-tcode.

  DATA: l_tcode TYPE sy-tcode.

  CHECK NOT i_tcode IS INITIAL.

  SELECT SINGLE tcode FROM tstc INTO l_tcode WHERE tcode = i_tcode.
  IF sy-subrc = 0.
    CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
      EXPORTING
        tcode  = i_tcode
      EXCEPTIONS
        ok     = 0
        not_ok = 2
        OTHERS = 3.
    IF sy-subrc = 0.
      CALL TRANSACTION i_tcode.                          "#EC CI_CALLTA
    ELSE.
      MESSAGE i172(00) WITH i_tcode.
    ENDIF.
  ELSE.
    MESSAGE i031(00) WITH i_tcode.
  ENDIF.

ENDFORM.                    "call_transaction

*-----------------------------------------------------------------------

FORM callback_log
  USING i_object          TYPE balobj_d
        i_subobject       TYPE balsubobj
        i_external_number TYPE balnrext
        i_suffix          TYPE abap_bool.

  DATA:
    l_external_number TYPE balnrext,
    l_s_prof          TYPE bal_s_prof.

  l_external_number = i_external_number.
  IF sy-saprl < '700' AND i_suffix = abap_true.
    CONCATENATE l_external_number '_3X' INTO l_external_number.
  ENDIF.

* Get standard application log configuration
  CALL FUNCTION 'BAL_DSP_PROFILE_STANDARD_GET'
    IMPORTING
      e_s_display_profile = l_s_prof.

* Set parameters
  l_s_prof-title             = sy-title.
  l_s_prof-disvariant-report = sy-repid.
  l_s_prof-disvariant-handle = 'LOG'.
  l_s_prof-use_grid          = abap_true.
  l_s_prof-mess_mark         = abap_true.
  l_s_prof-exp_level         = 3.
  l_s_prof-tree_size         = 25.
  l_s_prof-head_size         = 150.

  IF i_external_number IS INITIAL.
    SET PARAMETER ID 'BALEXT' FIELD i_external_number.
  ENDIF.

* Set output
  CALL FUNCTION 'APPL_LOG_DISPLAY'
    EXPORTING
      object                    = i_object
      subobject                 = i_subobject
      external_number           = l_external_number
      date_from                 = sy-datum
      time_from                 = '000000'
      date_to                   = sy-datum
      time_to                   = sy-uzeit
      suppress_selection_dialog = abap_false
      i_s_display_profile       = l_s_prof.

ENDFORM.                    "callback_log

*-----------------------------------------------------------------------

FORM callback_alv USING
  value(i_title) TYPE sy-title
  value(i_sort)  TYPE abap_bool
  it_data        TYPE ANY TABLE.

  DATA:
    l_r_data         TYPE REF TO data,
    l_tdescr         TYPE REF TO cl_abap_typedescr,
    l_sdescr         TYPE REF TO cl_abap_structdescr,
    l_t_fcat         TYPE slis_t_fieldcat_alv,
    l_s_fcat         TYPE slis_fieldcat_alv,
    l_t_components   TYPE abap_compdescr_tab,
    l_s_layout       TYPE slis_layout_alv.

  FIELD-SYMBOLS:
    <l_s_data>       TYPE any,
    <l_t_data>       TYPE STANDARD TABLE,
    <l_s_components> TYPE abap_compdescr.

  IF it_data IS INITIAL.

    MESSAGE i799(rsm1) WITH 'No data found'.

  ELSE.

    IF i_sort = abap_true.
      SORT it_data.
    ENDIF.

*   RSDU_CALL_ALV_TABLE does not exist in 3.x,
*   so do it the old fashion way
    LOOP AT it_data ASSIGNING <l_s_data>.
      EXIT.
    ENDLOOP.

    CREATE DATA l_r_data LIKE STANDARD TABLE OF <l_s_data>
      WITH DEFAULT KEY.

    ASSIGN l_r_data->* TO <l_t_data>.

    <l_t_data> = it_data.

    l_s_layout-colwidth_optimize = abap_true.
    l_s_layout-window_titlebar   = i_title.

    l_tdescr  = cl_abap_typedescr=>describe_by_data( <l_s_data> ).
    l_sdescr ?= l_tdescr.
    l_t_components = l_sdescr->components.

    LOOP AT l_t_components ASSIGNING <l_s_components>.
      CLEAR l_s_fcat.
      l_s_fcat-col_pos = sy-tabix.
      l_s_fcat-seltext_s  = <l_s_components>-name.
      l_s_fcat-seltext_m  = <l_s_components>-name.
      l_s_fcat-seltext_l  = <l_s_components>-name.
      l_s_fcat-fieldname = <l_s_components>-name.

      CASE <l_s_components>-name.
        WHEN 'SAP_NOTE'.
          l_s_fcat-hotspot = abap_true.
      ENDCASE.

      CASE <l_s_components>-type_kind.
        WHEN cl_abap_typedescr=>typekind_int.
          l_s_fcat-datatype  = 'INT4'.
          l_s_fcat-outputlen = 10.
        WHEN cl_abap_typedescr=>typekind_char.
          l_s_fcat-datatype  = 'CHAR'.
          l_s_fcat-outputlen = <l_s_components>-length /
            cl_abap_char_utilities=>charsize.
        WHEN cl_abap_typedescr=>typekind_num.
          l_s_fcat-datatype  = 'NUMC'.
          l_s_fcat-outputlen = <l_s_components>-length /
            cl_abap_char_utilities=>charsize.
        WHEN cl_abap_typedescr=>typekind_date.
          l_s_fcat-datatype  = 'DATS'.
        WHEN cl_abap_typedescr=>typekind_time.
          l_s_fcat-datatype  = 'TIMS'.
        WHEN cl_abap_typedescr=>typekind_float.
          l_s_fcat-datatype  = 'FLOAT'.
        WHEN cl_abap_typedescr=>typekind_packed.
          l_s_fcat-datatype  = 'DEC'.
        WHEN cl_abap_typedescr=>typekind_string.
          l_s_fcat-datatype  = 'STRING'.
        WHEN OTHERS.
          MESSAGE i799(rsm1) WITH 'Unknown data type'.
      ENDCASE.

      l_s_fcat-no_convext = abap_true.
      APPEND l_s_fcat TO l_t_fcat.
    ENDLOOP.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = sy-repid
        i_callback_user_command = 'CALLBACK_ALV_USER_COMMAND'
        it_fieldcat             = l_t_fcat
        is_layout               = l_s_layout
      TABLES
        t_outtab                = <l_t_data>
      EXCEPTIONS
        program_error           = 1
        OTHERS                  = 2.
    CHECK sy-subrc = 0.
  ENDIF.

ENDFORM.                    "callback_alv

*-----------------------------------------------------------------------

FORM callback_alv_user_command
  USING i_ucomm     TYPE sy-ucomm
        is_selfield TYPE slis_selfield.                     "#EC CALLED

  DATA: l_url TYPE char255.

  IF i_ucomm = '&IC1' AND is_selfield-fieldname = 'SAP_NOTE'.
    CONCATENATE 'http://service.sap.com/sap/support/notes/'
      is_selfield-value+9(*) INTO l_url.

    PERFORM call_browser USING l_url.
  ENDIF.

ENDFORM.                    "callback_alv_user_command

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_250
*&---------------------------------------------------------------------*

FORM call_smigr.

  DATA:
    ls_selection TYPE rsparams,
    lt_selection TYPE rsparams_tt.

  CLEAR ls_selection.
  ls_selection-kind    = 'P'.
  ls_selection-sign    = 'I'.
  ls_selection-option  = 'EQ'.
  ls_selection-selname = 'P_DB2'.
  ls_selection-low     = abap_false.
  APPEND ls_selection TO lt_selection.
  ls_selection-selname = 'P_HDB'.
  ls_selection-low     = abap_true.
  APPEND ls_selection TO lt_selection.
  ls_selection-selname = 'P_ISUNI'.
  ls_selection-low     = abap_true.
  APPEND ls_selection TO lt_selection.
  ls_selection-selname = 'P_TABCLS'.
  ls_selection-low     = abap_true.
  APPEND ls_selection TO lt_selection.
  ls_selection-selname = 'P_ROWCNT'.
  ls_selection-low     = abap_true.
  APPEND ls_selection TO lt_selection.

  PERFORM call_program_selection
    USING 'SMIGR_CREATE_DDL' lt_selection.

ENDFORM.                    "call_smigr

*-----------------------------------------------------------------------

FORM http_get_data
  USING    i_url  TYPE clike
  CHANGING e_data TYPE clike.

  DATA:
    lr_http_client TYPE REF TO if_http_client.

  CLEAR e_data.

  CALL METHOD cl_http_client=>create_by_url
    EXPORTING
      url                = i_url
      proxy_host         = c_proxy_host
      proxy_service      = c_proxy_port
    IMPORTING
      client             = lr_http_client
    EXCEPTIONS
      argument_not_found = 1
      plugin_not_active  = 2
      internal_error     = 3
      OTHERS             = 4.
  IF sy-subrc <> 0.
    MESSAGE w799(rsm1) WITH 'Error creating HTTP client'.
    EXIT.
  ENDIF.

  CALL METHOD lr_http_client->send
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2.
  IF sy-subrc <> 0.
    MESSAGE w799(rsm1) WITH 'Error sending HTTP request.'
      'Check proxy setting in program.'.
    EXIT.
  ENDIF.

  CALL METHOD lr_http_client->receive
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3.
  IF sy-subrc <> 0.
    MESSAGE w799(rsm1) WITH 'Error receiving HTTP request.'
      'Check proxy setting in program.'.
    EXIT.
  ENDIF.

  e_data = lr_http_client->response->get_cdata( ).

ENDFORM.                    "http_get_data

*-----------------------------------------------------------------------

FORM http_extract_data
  USING    i_start_tag TYPE clike
           i_end_tag   TYPE clike
  CHANGING c_data      TYPE clike.

  DATA:
    l_offset TYPE i.

  FIND i_start_tag IN c_data MATCH OFFSET l_offset.
  IF sy-subrc = 0.
    l_offset = l_offset + strlen( i_start_tag ).
    c_data = c_data+l_offset(*).
    FIND '>' IN c_data MATCH OFFSET l_offset.
    IF sy-subrc = 0.
      l_offset = l_offset + 1.
      c_data = c_data+l_offset(*).
      FIND i_end_tag IN c_data MATCH OFFSET l_offset.
      IF sy-subrc = 0.
        c_data = c_data(l_offset).
      ENDIF.
    ENDIF.
  ENDIF.

ENDFORM.                    "http_extract_data

*-----------------------------------------------------------------------

FORM http_extract_versions
  USING    i_data      TYPE clike
  CHANGING et_versions TYPE yt_versions.

  CONSTANTS:
    c_tag_end    TYPE string VALUE '>',
    c_row_start  TYPE string VALUE '<tr',
    c_row_end    TYPE string VALUE '</tr',
    c_cell_start TYPE string VALUE '<td',
    c_cell_end   TYPE string VALUE '</td',
    c_link_start TYPE string VALUE '<a',
    c_link_end   TYPE string VALUE '</a'.

  DATA:
    l_data       TYPE string,
    l_row        TYPE string,
    l_offset     TYPE i,
    ls_versions  TYPE ys_versions.

  FIELD-SYMBOLS:
    <f>          TYPE clike.

  l_data = i_data.

  DO.
    FIND c_row_start IN l_data MATCH OFFSET l_offset.
    IF sy-subrc = 0.
      l_offset = l_offset + strlen( c_row_start ).
      l_data = l_data+l_offset(*).
      FIND c_row_end IN l_data MATCH OFFSET l_offset.
      IF sy-subrc = 0.
        l_row = l_data(l_offset).
        l_offset = l_offset + strlen( c_row_end ).
        l_data = l_data+l_offset(*).

        DO 4 TIMES.
          ASSIGN COMPONENT sy-index OF STRUCTURE ls_versions TO <f>.
          ASSERT sy-subrc = 0.

          FIND c_cell_start IN l_row MATCH OFFSET l_offset.
          IF sy-subrc = 0.
            l_offset = l_offset + strlen( c_cell_start ).
            l_row = l_row+l_offset(*).
            FIND c_tag_end IN l_row MATCH OFFSET l_offset.
            IF sy-subrc = 0.
              l_offset = l_offset + 1.
              l_row = l_row+l_offset(*).
              FIND c_cell_end IN l_row MATCH OFFSET l_offset.
              IF sy-subrc = 0.
                <f> = l_row(l_offset).
                l_offset = l_offset + strlen( c_cell_end ).
                l_row = l_row+l_offset(*).
              ENDIF.
            ENDIF.
          ENDIF.
        ENDDO.

        PERFORM http_extract_data
          USING    c_link_start c_link_end
          CHANGING ls_versions-sap_note.

        APPEND ls_versions TO et_versions.
      ELSE.
        EXIT.
      ENDIF.
    ELSE.
      EXIT.
    ENDIF.
  ENDDO.

ENDFORM.                    "http_extract_data

*-----------------------------------------------------------------------

FORM call_update.

  CONSTANTS:
    c_body_start  TYPE string VALUE '<!-- [DocumentBodyStart',
    c_body_end    TYPE string VALUE '<!-- [DocumentBodyEnd',
    c_table_start TYPE string VALUE '<tbody',
    c_table_end   TYPE string VALUE '</tbody'.

  DATA:
    l_data        TYPE string,
    l_report      TYPE prgname,
    lt_versions   TYPE yt_versions,
    l_line        TYPE i,
    l_offset      TYPE i,
    l_found       TYPE abap_bool,
    l_code        TYPE string,
    lt_code       TYPE TABLE OF string.

  FIELD-SYMBOLS:
    <ls_versions> TYPE ys_versions.

* Get web page listing most current versions
  PERFORM http_get_data
    USING    c_check_vers
    CHANGING l_data.

* Extract body
  PERFORM http_extract_data
    USING    c_body_start c_body_end
    CHANGING l_data.

* Extract table
  PERFORM http_extract_data
    USING    c_table_start c_table_end
    CHANGING l_data.

* Extract version info
  PERFORM http_extract_versions
    USING    l_data
    CHANGING lt_versions.

  IF lt_versions IS INITIAL.
    RETURN.
  ENDIF.

* Check if all tools are up-to-date
  LOOP AT lt_versions ASSIGNING <ls_versions>.
    l_report = <ls_versions>-tool_name.

*   Adjustments because of BW release
    CASE l_report.
      WHEN 'ZBW_HANA_CHECKLIST'.
        IF sy-saprl < '700'.
          l_report = 'ZBW_HANA_CHECKLIST_3X'.
        ENDIF.
      WHEN 'ZBW_ABAP_ANALYZER'.
        IF sy-saprl < '700'.
          l_report = 'ZBW_ABAP_ANALYZER_3X'.
        ENDIF.
      WHEN 'ZBW_TRANSFORM_FINDER'.
        IF sy-saprl < '700'.
          l_report = 'ZBW_TRANSFORM_FINDER_3X'.
        ENDIF.
      WHEN 'ZBW_HANA_SIZING'.
        IF sy-saprl < '700'.
          l_report = 'ZBW_HANA_SIZING_3X'.
          <ls_versions>-sap_note = 'SAP Note 2021372'.
        ENDIF.
      WHEN 'Z_BW_NOTE_ANALYZER'.
        IF sy-saprl < '740'.
          <ls_versions>-status = 'Program requires BW 7.4 or higher'.
          <ls_versions>-icon   = icon_light_out.
          CONTINUE.
        ENDIF.
      WHEN 'Z_SAP_NOTE_ANALYZER'.
        IF sy-saprl < '700'.
          <ls_versions>-status = 'Program requires BW 7.0 or higher'.
          <ls_versions>-icon   = icon_light_out.
          CONTINUE.
        ENDIF.
    ENDCASE.

    READ REPORT l_report INTO lt_code.
    IF sy-subrc = 0.
*     FIND 'C_VERSION' IN TABLE lt_code MATCH LINE l_line IGNORING CASE.
      l_offset = 1.
      l_found = abap_false.
      DO.
        SEARCH lt_code FOR 'C_VERSION' STARTING AT l_offset.
        IF sy-subrc = 0.
          l_line = sy-tabix.
          READ TABLE lt_code INTO l_code INDEX l_line.
          ASSERT sy-subrc = 0.
          IF l_code(1) <> '*'.
            l_found = abap_true.
            EXIT.
          ELSE.
            l_offset = l_line + 1.
          ENDIF.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.

      IF l_found = abap_true.
        FIND '''' IN l_code MATCH OFFSET l_offset.
        IF sy-subrc = 0.
          l_offset = l_offset + 1.
          l_code = l_code+l_offset(*).
          FIND '''' IN l_code MATCH OFFSET l_offset.
          IF sy-subrc = 0.
            l_code = l_code(l_offset).
            <ls_versions>-installed_version = l_code.

            IF <ls_versions>-available_version = l_code.
              <ls_versions>-status = 'Program is up-to-date'.
              <ls_versions>-icon   = icon_green_light.
            ELSEIF <ls_versions>-available_version > l_code.
              <ls_versions>-status =
                'Newer version of program is available'.
              <ls_versions>-icon   = icon_yellow_light.
            ELSE.
              <ls_versions>-status =
                'Program is newer than recommended version'.
              <ls_versions>-icon   = icon_yellow_light.
            ENDIF.
          ELSE.
            <ls_versions>-status = 'Version info not found'.
            <ls_versions>-icon   = icon_red_light.
          ENDIF.
        ELSE.
          <ls_versions>-status = 'Version info not found'.
          <ls_versions>-icon   = icon_red_light.
        ENDIF.
      ELSE.
        <ls_versions>-status = 'Version info not found'.
        <ls_versions>-icon   = icon_red_light.
      ENDIF.
    ELSE.
      <ls_versions>-status = 'Program not found'.
      <ls_versions>-icon   = icon_light_out.
    ENDIF.
  ENDLOOP.

  PERFORM callback_alv
    USING 'Migration Cockpit - Version Status' abap_true lt_versions.

ENDFORM.                    "call_update

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_300
*&---------------------------------------------------------------------*

FORM launch_tool USING i_tool TYPE string.

  DATA:
    l_key  TYPE string,
    l_path TYPE string.

  l_key = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\'.

  CONCATENATE l_key i_tool INTO l_key.

* Previously used path
  CALL METHOD cl_gui_frontend_services=>registry_get_value
    EXPORTING
      root                 = cl_gui_frontend_services=>hkey_local_machine
      key                  = l_key
    IMPORTING
      reg_value            = l_path
    EXCEPTIONS
      get_regvalue_failed  = 1
      cntl_error           = 2
      error_no_gui         = 3
      not_supported_by_gui = 4
      OTHERS               = 5.
  IF sy-subrc <> 0.
*   32-bit installation path
    CALL METHOD cl_gui_frontend_services=>registry_get_value
      EXPORTING
        root                 = cl_gui_frontend_services=>hkey_local_machine
        key                  = 'SOFTWARE\SAP\SAP Shared\SAPBI'
        value                = 'SAPDestDir'
      IMPORTING
        reg_value            = l_path
      EXCEPTIONS
        get_regvalue_failed  = 1
        cntl_error           = 2
        error_no_gui         = 3
        not_supported_by_gui = 4
        OTHERS               = 5.
    IF sy-subrc <> 0.
*     64-bit installation path
      CALL METHOD cl_gui_frontend_services=>registry_get_value
        EXPORTING
          root                 = cl_gui_frontend_services=>hkey_local_machine
          key                  = 'SOFTWARE\Wow6432Node\SAP\SAP Shared\SAPBI'
          value                = 'SAPDestDir'
        IMPORTING
          reg_value            = l_path
        EXCEPTIONS
          get_regvalue_failed  = 1
          cntl_error           = 2
          error_no_gui         = 3
          not_supported_by_gui = 4
          OTHERS               = 5.
      IF sy-subrc <> 0.
*       Try to use default
        l_path = 'C:\Program Files (x86)\SAP\Business Explorer\BI'.
      ELSE.
        CONCATENATE l_path '\BI\' i_tool INTO l_path.
      ENDIF.
    ELSE.
      CONCATENATE l_path '\BI\' i_tool INTO l_path.
    ENDIF.
  ENDIF.

  CALL METHOD cl_gui_frontend_services=>execute
    EXPORTING
      application            = l_path
    EXCEPTIONS
      cntl_error             = 1
      error_no_gui           = 2
      bad_parameter          = 3
      file_not_found         = 4
      path_not_found         = 5
      file_extension_unknown = 6
      error_execute_failed   = 7
      synchronous_failed     = 8
      not_supported_by_gui   = 9
      OTHERS                 = 10.
  IF sy-subrc <> 0.
    MESSAGE w799(rsm1) WITH 'Error launching tool:' i_tool.
    EXIT.
  ENDIF.

ENDFORM.                    "launch_tool

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_350
*&---------------------------------------------------------------------*

FORM launch_activation.

  DATA:
    ls_list  TYPE spopli,
    lt_list  TYPE TABLE OF spopli,
    l_answer TYPE c LENGTH 2.

  CLEAR ls_list.
  ls_list-varoption = 'Logical Systems'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'InfoObjects'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'DataStore Objects'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'InfoCubes'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'HybridProviders'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'InfoSets'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'MultiProviders'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'DataSources'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'InfoSources'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'Transfer Rules'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'Update Rules'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'Transformations'.
  APPEND ls_list TO lt_list.
  ls_list-varoption = 'Data Transfer Processes'.
  APPEND ls_list TO lt_list.

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
      textline1          = 'Select type of BW objects'
      textline2          = 'you want to check or activate:'
      titel              = 'Object Activation'
      start_col          = 72
      start_row          = 11
    IMPORTING
      answer             = l_answer
    TABLES
      t_spopli           = lt_list
    EXCEPTIONS
      not_enough_answers = 1
      too_much_answers   = 2
      too_much_marks     = 3
      OTHERS             = 4.
  CHECK sy-subrc = 0.

  CASE l_answer.
    WHEN '1'.
      PERFORM call_program
        USING 'RS_LOGSYS_ACTIVATE' abap_false.
    WHEN '2'.
      PERFORM call_program
        USING 'RSDG_IOBJ_ACTIVATE' abap_false.
    WHEN '3'.
      PERFORM call_program
        USING 'RSDG_ODSO_ACTIVATE' abap_false.
    WHEN '4'.
      PERFORM call_program
        USING 'RSDG_CUBE_ACTIVATE' abap_false.
    WHEN '5'.
      PERFORM call_program
        USING 'RSDG_HYBR_ACTIVATE' abap_false.
    WHEN '6'.
      PERFORM call_program
        USING 'RSQ_ISET_MASS_OPERATIONS' abap_false.
    WHEN '7'.
      PERFORM call_program
        USING 'RSDG_MPRO_ACTIVATE' abap_false.
    WHEN '8'.
      PERFORM call_program
        USING 'RSDS_DATASOURCE_ACTIVATE_ALL' abap_false.
    WHEN '9'.
      PERFORM call_program
        USING 'RS_COMSTRU_ACTIVATE_ALL' abap_false.
    WHEN '10'.
      PERFORM call_program
        USING 'RS_TRANSTRU_ACTIVATE_ALL' abap_false.
    WHEN '11'.
      PERFORM call_program
        USING 'RSAU_UPDR_REACTIVATE_ALL' abap_false.
    WHEN '12'.
      PERFORM call_program
        USING 'RSDG_TRFN_ACTIVATE' abap_false.
    WHEN '13'.
      PERFORM call_program
        USING 'RSBKDTPREPAIR' abap_false.
  ENDCASE.

ENDFORM.                    "launch_activation

*&---------------------------------------------------------------------*
*&  Include           ZBW_HANA_MIGRATION_COCKPIT_400
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  bal_display_logs
*&---------------------------------------------------------------------*
FORM bal_display_logs
  USING i_extnumber TYPE balnrext
        i_date_from TYPE baldate
        i_date_to   TYPE baldate.

  DATA:
    l_count        TYPE i,
    l_t_log_handle TYPE bal_t_logh,
    l_s_fcat       TYPE bal_s_fcat,
    l_s_sort       TYPE bal_s_sort,
    l_s_profile    TYPE bal_s_prof.

  DEFINE macro_log_fcat.
    clear l_s_fcat.
    l_s_fcat-ref_table = 'BAL_S_SHOW'.
    l_s_fcat-ref_field = &2.
    if &3 > 0.
      l_s_fcat-outputlen = &3.
    endif.
    l_s_fcat-no_out    = &4.
    append l_s_fcat to l_s_profile-&1.
  END-OF-DEFINITION.

  DEFINE macro_log_sort.
    clear l_s_sort.
    l_s_sort-ref_table = 'BAL_S_SHOW'.
    l_s_sort-ref_field = &2.
    l_s_sort-up        = &3.
    append l_s_sort to l_s_profile-&1.
  END-OF-DEFINITION.

  PERFORM bal_get_logs
    USING    i_extnumber i_date_from i_date_to
    CHANGING l_t_log_handle.

  l_count = lines( l_t_log_handle ).

* Set display profile
  CALL FUNCTION 'BAL_DSP_PROFILE_DETLEVEL_GET'
    IMPORTING
      e_s_display_profile = l_s_profile
    EXCEPTIONS
      OTHERS              = 1.
  IF sy-subrc <> 0.
    MESSAGE i799(rsm1) WITH 'Error getting profile'.
    RETURN.
  ENDIF.

  l_s_profile-title             = sy-title.
  l_s_profile-disvariant-report = sy-repid.
  l_s_profile-disvariant-handle = 'LOG'.
  l_s_profile-use_grid          = abap_true.
  l_s_profile-mess_mark         = abap_true.
  l_s_profile-head_size         = 110.
  l_s_profile-tree_size         = 65.
  l_s_profile-tree_ontop        = abap_false.

  IF l_count = 1.
    l_s_profile-exp_level         = 2.
    l_s_profile-show_all          = abap_true.
  ELSEIF l_count <= 3.
    l_s_profile-exp_level         = 2.
    l_s_profile-show_all          = abap_false.
  ELSE.
    l_s_profile-exp_level         = 1.
    l_s_profile-show_all          = abap_false.
  ENDIF.

* Callbak
  l_s_profile-clbk_ucom-userexitt     = space.
  l_s_profile-clbk_ucom-userexitp     = sy-repid.
  l_s_profile-clbk_ucom-userexitf     = 'BAL_CALLBACK_UCOMM'.

* Additional features
  l_s_profile-ext_push1-active        = 'X'.
  l_s_profile-ext_push1-def-text      = 'Table'.
  l_s_profile-ext_push1-def-icon_id   = icon_table_settings.
  l_s_profile-ext_push1-def-icon_text = 'Display as Table'.
  l_s_profile-ext_push1-def-quickinfo = 'Display Log Messages as Table'.

  l_s_profile-ext_push2-active        = 'X'.
  l_s_profile-ext_push2-def-text      = 'List'.
  l_s_profile-ext_push2-def-icon_id   = icon_view_list.
  l_s_profile-ext_push2-def-icon_text = 'Display as List'.
  l_s_profile-ext_push2-def-quickinfo = 'Display Log Messages as List'.

* Messages
  CLEAR l_s_profile-mess_fcat.

  macro_log_fcat mess_fcat 'T_MSG' 95 ''.

* Level 1
  CLEAR l_s_profile-lev1_fcat.

  macro_log_fcat lev1_fcat 'ALDATE' 0 abap_false.
  macro_log_fcat lev1_fcat 'ALTIME' 0 abap_false.
  macro_log_fcat lev1_fcat 'EXTNUMBER' 40 abap_false.
  macro_log_fcat lev1_fcat 'LOG_HANDLE' 0 abap_true.

  macro_log_sort lev1_sort 'ALDATE' abap_true.
  macro_log_sort lev1_sort 'ALTIME' abap_true.
  macro_log_sort lev1_sort 'EXTNUMBER' abap_true.

  CALL FUNCTION 'BAL_DSP_LOG_DISPLAY'
    EXPORTING
      i_t_log_handle      = l_t_log_handle
      i_s_display_profile = l_s_profile
    EXCEPTIONS
      no_authority        = 1
      OTHERS              = 2.
  CASE sy-subrc.
    WHEN 1.
      MESSAGE i799(rsm1) WITH 'No authorization to display log'.
    WHEN 2.
      MESSAGE i799(rsm1) WITH 'Unknown error displaying log'.
  ENDCASE.

ENDFORM.                    "bal_display_logs

*&---------------------------------------------------------------------*
*&      Form  bal_get_logs
*&---------------------------------------------------------------------*
FORM bal_get_logs
  USING     i_extnumber    TYPE balnrext
            i_date_from    TYPE baldate
            i_date_to      TYPE baldate
   CHANGING e_t_log_handle TYPE bal_t_logh.

  DATA:
    l_extnumber    TYPE balnrext,
    l_s_log_filter TYPE bal_s_lfil,
    l_t_log_header TYPE balhdr_t.

  l_extnumber = i_extnumber.

  IF sy-saprl(1) = '3' AND NOT l_extnumber IS INITIAL.
    CONCATENATE l_extnumber '_3X' INTO l_extnumber.
  ENDIF.

  CALL FUNCTION 'BAL_FILTER_CREATE'
    EXPORTING
      i_object       = 'RSD'
      i_subobject    = 'MIGRATION'
      i_extnumber    = l_extnumber
      i_aldate_from  = i_date_from
      i_aldate_to    = i_date_to
    IMPORTING
      e_s_log_filter = l_s_log_filter
    EXCEPTIONS
      OTHERS         = 1.
  IF sy-subrc <> 0.
    MESSAGE i799(rsm1) WITH 'Error in filter definition'.
    RETURN.
  ENDIF.

* Find logs
  CALL FUNCTION 'BAL_DB_SEARCH'
    EXPORTING
      i_s_log_filter     = l_s_log_filter
    IMPORTING
      e_t_log_header     = l_t_log_header
    EXCEPTIONS
      log_not_found      = 1
      no_filter_criteria = 2
      OTHERS             = 3.
  IF sy-subrc <> 0 OR l_t_log_header IS INITIAL.
    MESSAGE i799(rsm1) WITH 'No logs found'.
    RETURN.
  ENDIF.

* Read logs
  CALL FUNCTION 'BAL_DB_LOAD'
    EXPORTING
      i_t_log_header     = l_t_log_header
    IMPORTING
      e_t_log_handle     = e_t_log_handle
    EXCEPTIONS
      no_logs_specified  = 1
      log_not_found      = 2
      log_already_loaded = 3
      OTHERS             = 4.
  IF sy-subrc <> 0 OR e_t_log_handle IS INITIAL.
    MESSAGE i799(rsm1) WITH 'No logs found'.
    RETURN.
  ENDIF.

ENDFORM.                    "bal_get_logs

*&---------------------------------------------------------------------*
*&      Form  bal_callback_ucomm
*&---------------------------------------------------------------------*
FORM bal_callback_ucomm
  CHANGING c_s_command TYPE bal_s_cbuc.                     "#EC CALLED

  DATA:
    l_s_path TYPE bal_s_path.

  CASE c_s_command-ucomm.
    WHEN '%EXT_PUSH1' OR '%EXT_PUSH2'.

      READ TABLE c_s_command-tree_path INTO l_s_path WITH KEY
        tree_level = '1'
        sel_table  = 'BAL_S_SHOW'
        sel_field  = 'LOG_HANDLE'.
      IF sy-subrc = 0.
        IF c_s_command-ucomm = '%EXT_PUSH1'.
          PERFORM bal_display_table USING l_s_path-sel_value.
        ELSE.
          PERFORM bal_display_list USING l_s_path-sel_value.
        ENDIF.
      ELSE.
        MESSAGE i799(rsm1) WITH 'Select a log first'.
      ENDIF.

      c_s_command-ucomm_exec = 'X'.

  ENDCASE.

ENDFORM.                    "bal_callback_ucomm

*&---------------------------------------------------------------------*
*&      Form  bal_display_table
*&---------------------------------------------------------------------*
FORM bal_display_table
  USING i_log_handle TYPE clike.

  DATA:
    l_t_msg       TYPE rs_t_msg,
    l_t_log_table TYPE TABLE OF ys_log_table.

  PERFORM bal_get_log_table
    USING    i_log_handle
    CHANGING l_t_log_table l_t_msg.

 PERFORM callback_alv
   USING 'Log as Table' abap_false l_t_log_table.

ENDFORM.                    "bal_display_table

*&---------------------------------------------------------------------*
*&      Form  bal_get_log_table
*&---------------------------------------------------------------------*
FORM bal_get_log_table
  USING    i_log_handle  TYPE clike
  CHANGING e_t_log_table TYPE yt_log_table
           e_t_msg       TYPE rs_t_msg.

  DATA:
    l_t_log_handle TYPE bal_t_logh,
    l_s_msg_handle TYPE balmsghndl,
    l_t_msg_handle TYPE bal_t_msgh,
    l_s_msg        TYPE bal_s_msg,
    l_text         TYPE char200,
    l_pos          TYPE i,
    l_s_log_table  TYPE ys_log_table.

  FIELD-SYMBOLS:
    <f>            TYPE any.

  APPEND i_log_handle TO l_t_log_handle.

  CALL FUNCTION 'BAL_GLB_SEARCH_MSG'
    EXPORTING
      i_t_log_handle = l_t_log_handle
    IMPORTING
      e_t_msg_handle = l_t_msg_handle
    EXCEPTIONS
      msg_not_found  = 1
      OTHERS         = 2.
  CHECK sy-subrc = 0.

  LOOP AT l_t_msg_handle INTO l_s_msg_handle.
    CALL FUNCTION 'BAL_LOG_MSG_READ'
      EXPORTING
        i_s_msg_handle = l_s_msg_handle
      IMPORTING
        e_s_msg        = l_s_msg
        e_txt_msg      = l_text
      EXCEPTIONS
        log_not_found  = 1
        msg_not_found  = 2
        OTHERS         = 3.
    CHECK sy-subrc = 0.

    IF l_s_msg-detlevel > 1.
      l_s_msg-detlevel = l_s_msg-detlevel - 1.
    ENDIF.
    l_pos = l_s_msg-detlevel.
    WHILE l_pos <= 9.
      ASSIGN COMPONENT l_pos OF STRUCTURE l_s_log_table TO <f>.
      ASSERT sy-subrc = 0.
      IF l_pos = l_s_msg-detlevel.
        <f> = l_text.
      ELSE.
        CLEAR <f>.
      ENDIF.
      l_pos = l_pos + 1.
    ENDWHILE.

    l_s_log_table-detlevel = l_s_msg-detlevel.
    APPEND l_s_log_table TO e_t_log_table.

    APPEND l_s_msg TO e_t_msg.
  ENDLOOP.

ENDFORM.                    "bal_get_log_table

*&---------------------------------------------------------------------*
*&      Form  bal_display_list
*&---------------------------------------------------------------------*
FORM bal_display_list
  USING i_log_handle TYPE clike.

  DATA:
    l_t_log_handle TYPE bal_t_logh,
    l_s_msg_handle TYPE balmsghndl,
    l_t_msg_handle TYPE bal_t_msgh,
    l_s_msg        TYPE bal_s_msg,
    l_text         TYPE char120,
    l_pos          TYPE i.

  APPEND i_log_handle TO l_t_log_handle.

  CALL FUNCTION 'BAL_GLB_SEARCH_MSG'
    EXPORTING
      i_t_log_handle = l_t_log_handle
    IMPORTING
      e_t_msg_handle = l_t_msg_handle
    EXCEPTIONS
      msg_not_found  = 1
      OTHERS         = 2.
  CHECK sy-subrc = 0.

  LOOP AT l_t_msg_handle INTO l_s_msg_handle.
    CALL FUNCTION 'BAL_LOG_MSG_READ'
      EXPORTING
        i_s_msg_handle = l_s_msg_handle
      IMPORTING
        e_s_msg        = l_s_msg
        e_txt_msg      = l_text
      EXCEPTIONS
        log_not_found  = 1
        msg_not_found  = 2
        OTHERS         = 3.
    CHECK sy-subrc = 0.

    IF l_s_msg-detlevel BETWEEN 2 AND 3.
      SKIP.
    ENDIF.

    IF l_s_msg-detlevel > 1.
      l_s_msg-detlevel = l_s_msg-detlevel - 1.
    ENDIF.
    l_pos = l_s_msg-detlevel * 3.

    CASE l_s_msg-msgty.
      WHEN 'S' OR 'I'.
        FORMAT COLOR COL_POSITIVE.
        WRITE: AT /l_pos icon_led_green AS ICON, l_text.
      WHEN 'W'.
        FORMAT COLOR COL_TOTAL.
        WRITE: AT /l_pos icon_led_yellow AS ICON, l_text.
      WHEN 'E' OR 'X' OR 'A'.
        FORMAT COLOR COL_NEGATIVE.
        WRITE: AT /l_pos icon_led_red AS ICON, l_text.
      WHEN OTHERS.
        FORMAT COLOR COL_NORMAL.
        WRITE: AT /l_pos icon_led_inactive AS ICON, l_text.
    ENDCASE.

    WRITE AT 150 space.

  ENDLOOP.

  SET PF-STATUS ''.

  LEAVE TO LIST-PROCESSING.

ENDFORM.                    "bal_display_list

 

'IT > SAP' 카테고리의 다른 글

Change SAP Web Logon images  (0) 2016.06.02
Delete RSECADMIN  (0) 2016.05.20
SAP Solution Manager SSO  (0) 2015.12.30
1911102 - Solution Manager application logs reorganization  (0) 2015.12.30
[SAP HANA] Row Store Table Ratio  (0) 2015.08.25