************************************************************************
* Program Name : ZSROSI00_NEW *
* Object ID : ZSROSI00_NEW *
* Title : Upgrade Evaluator - Main Program
* Author : *
* Country : *
* Creation Date : *
* Logical DB : *
* Reference : *
* Scheduling : *
* Description : *
************************************************************************
* INPUTS : *
* Variants : *
* Input file name : *
************************************************************************
* OUTPUTS : *
* Files : *
* Errors : *
************************************************************************REPORT ZSROSI00_NEW NO STANDARD PAGE HEADING
LINE-SIZE 132 LINE-COUNT 65
MESSAGE-ID ZX.
TABLES: SEUCOMM,
SNODETEXT.
INCLUDE <SYMBOL>.
TYPES: BEGIN OF TY_KNOTENDEF.
INCLUDE STRUCTURE SNODETEXT. "#EC *
TYPES: END OF TY_KNOTENDEF.
DATA: KNOTENDEF TYPE STANDARD TABLE OF TY_KNOTENDEF.
DATA: WA_KNOTENDEF TYPE TY_KNOTENDEF.
TYPES: BEGIN OF TY_TREELAYOUT.
INCLUDE STRUCTURE SEUTEXPAND. "#EC *
TYPES: END OF TY_TREELAYOUT.
DATA: TREELAYOUT TYPE STANDARD TABLE OF TY_TREELAYOUT. "#EC *
DATA: WA_TREELAYOUT TYPE TY_TREELAYOUT. "#EC *
TYPES:BEGIN OF TY_SELECT1, "#EC *
KEY1(30),
END OF TY_SELECT1.
DATA: I_SELECT1 TYPE STANDARD TABLE OF TY_SELECT1. "#EC *
DATA: WA_SELECT1 TYPE TY_SELECT1. "#EC *
TYPES: BEGIN OF TY_SELECT2, "#EC *
KEY1(30),
KEY2(30),
END OF TY_SELECT2.
DATA: I_SELECT2 TYPE STANDARD TABLE OF TY_SELECT2. "#EC *
DATA: WA_SELECT2 TYPE TY_SELECT2. "#EC *
AT LINE-SELECTION.
SY-LSIND = SY-LSIND - 1.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN ''.
ENDCASE.
START-OF-SELECTION.
SET PF-STATUS 'STANDARD'.
SET TITLEBAR '001'.
PERFORM BUILD_TREE_STRUCTURE.
CALL FUNCTION 'RS_TREE_CONSTRUCT' "#EC *
TABLES
NODETAB = KNOTENDEF
EXCEPTIONS
TREE_FAILURE = 01
ID_NOT_FOUND = 02
WRONG_RELATIONSHIP = 03
OTHERS = 04.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
CALLBACK_PROGRAM = 'ZUPGRADE00'
CALLBACK_USER_COMMAND = 'HANDLE_USER_COMMAND'
CALLBACK_COLOR_DISPLAY = ' '
CHECK_DUPLICATE_NAME = '1'
COLOR_OF_LINK = '1'
COLOR_OF_NODE = '4'
LOWER_CASE_SENSITIVE = ' '
MODIFICATION_LOG = ' '
NODE_LENGTH = 30
TEXT_LENGTH = 75
TEXT_LENGTH1 = 0
TEXT_LENGTH2 = 0
RETURN_MARKED_SUBTREE = ' '
SCREEN_START_COLUMN = 0
SCREEN_START_LINE = 0
SCREEN_END_COLUMN = 0
SCREEN_END_LINE = 0
SUPPRESS_NODE_OUTPUT = ' '.
*&---------------------------------------------------------------------*
*& Form handle_user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM HANDLE_USER_COMMAND "#EC CALLED
TABLES AT_NODETAB STRUCTURE SEUCOMM"#EC *
USING AT_UCOMM "#EC *
CHANGING AT_EXIT "#EC *
AT_LIST_REFRESH. "#EC *
SEUCOMM = AT_NODETAB.
MOVE-CORRESPONDING SEUCOMM TO SNODETEXT.
CASE SNODETEXT-NAME.
WHEN 'Collector'.
SUBMIT ZUPGRADE01 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Synthesizer'.
SUBMIT ZUPGRADE02 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Interfacer'.
SUBMIT ZUPGRADE03 VIA SELECTION-SCREEN AND RETURN.
WHEN 'DNA Sequencer'.
SUBMIT ZUPGRADE04 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Tables'.
SUBMIT ZUPGRADE05 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Transactions'.
SUBMIT ZUPGRADE06 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Programs/Functions'.
SUBMIT ZUPGRADE07 VIA SELECTION-SCREEN AND RETURN.
WHEN 'Compiler'.
SUBMIT ZUPGRADE08 VIA SELECTION-SCREEN AND RETURN.
WHEN 'TREP'.
CALL FUNCTION 'RS_TREE_EXPAND'
EXPORTING
NODE_ID = AT_NODETAB-ID
LIST_SCROLL = 'X'
EXCEPTIONS
NOT_FOUND = 01.
WHEN OTHERS.
MESSAGE I009.
ENDCASE.
ENDFORM. " handle_user_command
*&---------------------------------------------------------------------*
*& Form build_tree_structure
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM BUILD_TREE_STRUCTURE.
CLEAR KNOTENDEF.
WA_KNOTENDEF-ID = 1.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'OSI Upgrade Evaluator'(001).
WA_KNOTENDEF-TEXT = 'OSI Upgrate Evaluator'(002).
WA_KNOTENDEF-TLEVEL = 1.
WA_KNOTENDEF-TLENGTH = 30.
WA_KNOTENDEF-TCOLOR = 1.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 3.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Collector'(008).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 4.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Synthesizer'(009).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 5.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Interfacer'(010).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 6.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'DNA Sequencer'(011).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 7.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Navigator'(003).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 9.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Tables'(004).
WA_KNOTENDEF-TLEVEL = 3.
WA_KNOTENDEF-TEXT1 = 'Tables'(004).
WA_KNOTENDEF-TLENGTH1 = 30.
WA_KNOTENDEF-TCOLOR1 = 3.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 10.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Transactions'(005).
WA_KNOTENDEF-TLEVEL = 3.
WA_KNOTENDEF-TEXT1 = 'Transactions'(005).
WA_KNOTENDEF-TLENGTH1 = 30.
WA_KNOTENDEF-TCOLOR1 = 3.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 11.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Programs/Functions'(006).
WA_KNOTENDEF-TLEVEL = 3.
WA_KNOTENDEF-TEXT1 = 'Programs/Functions'(006).
WA_KNOTENDEF-TLENGTH1 = 30.
WA_KNOTENDEF-TCOLOR1 = 3.
APPEND WA_KNOTENDEF TO KNOTENDEF.
CLEAR: WA_KNOTENDEF.
WA_KNOTENDEF-ID = 8.
WA_KNOTENDEF-TYPE = 'M'.
WA_KNOTENDEF-NAME = 'Compiler'(007).
WA_KNOTENDEF-TLEVEL = 2.
APPEND WA_KNOTENDEF TO KNOTENDEF.
ENDFORM. " build_tree_structure
*GUI Texts
*----------------------------------------------------------
* 001 --> OSI Upgrade Evaluator
*Text elements
*----------------------------------------------------------
* 001 Upgrade Evaluator
* 002 Upgrate Evaluator
* 003 Navigator
* 004 Tables
* 005 Transactions
* 006 Programs/Functions
* 007 Compiler
* 008 Collector
* 009 Synthesizer
* 010 Interfacer
* 011 DNA Sequencer
*Messages
*----------------------------------------------------------
*
* Message class: ZX
*009 Function not available