Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata

************************************************************************

* 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