SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Demo: Activation of the Cluster Editor (Enhanced Version)



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Dialog Programming -> Graphics
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Mon Nov 05, 2007 2:40 pm    Post subject: Demo: Activation of the Cluster Editor (Enhanced Version) Reply with quote

Code:

REPORT grcnetc2 MESSAGE-ID cg.

INCLUDE lcnetdat.                      "allg. Datendeklarationen
INCLUDE lcnetcon.                      "Konstanten
INCLUDE sgrccnst.                      "Allgemeine Konstanten

DATA: BEGIN OF all_boxes OCCURS 0.
        INCLUDE STRUCTURE net_boxes.
DATA: END OF all_boxes.

DATA: BEGIN OF all_frames OCCURS 0.
        INCLUDE STRUCTURE net_frames.
DATA: END OF all_frames.

DATA: BEGIN OF all_bvals OCCURS 0.
        INCLUDE STRUCTURE net_nvals.
DATA: END OF all_bvals.

DATA: BEGIN OF all_fvals OCCURS 0.
        INCLUDE STRUCTURE net_cvals.
DATA: END OF all_fvals.

DATA: BEGIN OF scroll_tab OCCURS 0,
        flag(1) TYPE c,
      END OF scroll_tab.

DATA: count        TYPE i,
      entry_act    TYPE i,
      entry_to     TYPE i,
      entry_new    TYPE i,
      line_count   TYPE i         VALUE 4,
      line_count_1 TYPE i         VALUE 10,
      ok-code(4)   TYPE c,
      anz_f        LIKE sy-tabix,
      anz_b        LIKE sy-tabix,
      anzahl       LIKE sy-tabix.

PARAMETER: prf_grup  LIKE tcngt-prf_gruppe  DEFAULT 'DEMO',
           prf_name  LIKE tcngt-prf_name    DEFAULT '000000000001',
           prf_indx  LIKE tcngt-prf_index   DEFAULT '1'.

profile-gruppe = prf_grup.
profile-name   = prf_name.
profile-index  = prf_indx.


* Erzeugen der INODES
* PERFORM make_inodes TABLES inodes_tab
*                            nvals_tab.

* Erzeugen der Boxen
PERFORM make_boxes TABLES boxes_tab
                          bvals_tab.

* Erzeugen der Frames
PERFORM make_frames TABLES frames_tab
                           fvals_tab.

* Erzeugen der Feldpositionen
PERFORM make_area_positions TABLES area_pos_tab.

* Erweitern der CUA-Oberflдche
PERFORM set_cua_status.

* Sichern Anfangszustand
PERFORM cluster_logic USING abap_cmd.

CALL FUNCTION 'CNET_SET_OPTIONS'
  EXPORTING
    laystyle  = '4'
    layorder  = '1'
    buttonpos = '2'.

DO.
* Aufrufen Clustereditor
  CALL FUNCTION 'CNET_GRAPHIC_CLUSTER'
    EXPORTING
      abap_cmd          = abap_cmd
      profile           = profile
      stat              = stat
      confirm           = net_const-confirm_yes
    IMPORTING
      gr_mes            = gr_mes
      m_typ             = m_typ
    TABLES
      area_positions    = area_pos_tab
      boxes             = boxes_tab
      bvals             = bvals_tab
      deletions         = delete_tab
      frames            = frames_tab
      fvals             = fvals_tab
      inodes            = inodes_tab
      nvals             = nvals_tab
    EXCEPTIONS
      err_in_profile    = 01
      inv_profile       = 02
      inv_winid         = 03
      no_batch          = 04
      frontend_error    = 05
      inv_communication = 06.

  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

  CASE m_typ.
    WHEN net_const-m_typ_d.            "Graphic Window has been closed
      EXIT.

    WHEN net_const-m_typ_i.            "Message recieved
      stat = net_const-stat_4.         "wait for input
      CLEAR abap_cmd.

      CASE gr_mes.
*----------------------------------------------------------------------*
        WHEN net_const-doubleclicked.
          abap_cmd = net_const-ask_for_modify.

*         Doppelklick auf eine Box
          DESCRIBE TABLE boxes_tab LINES anzahl.
          IF anzahl <> 0.
            PERFORM init_0100.
            CALL SCREEN 100 STARTING AT 10 10 ENDING AT 56 29.
            CLEAR boxes_tab.
            REFRESH boxes_tab.
          ENDIF.                       "if ANZAHL is initial

*         Doppelklick auf einen Frame
          DESCRIBE TABLE frames_tab LINES anzahl.
          IF anzahl <> 0.
            PERFORM init_0200.
            CALL SCREEN 200 STARTING AT 10 10 ENDING AT 57 29.
            CLEAR frames_tab.
            REFRESH frames_tab.
          ENDIF.                       "if ANZAHL is initial

*         Speichertabellen fьr den Grafikinhalt updaten
          PERFORM cluster_logic USING abap_cmd.

*----------------------------------------------------------------------*
        WHEN net_const-ask_for_visible.
          abap_cmd = gr_mes.

*----------------------------------------------------------------------*
        WHEN net_const-ask_for_invisible.
          abap_cmd = gr_mes.

*----------------------------------------------------------------------*
        WHEN 'XBO1'.                   "Selektionen ermitteln
          abap_cmd = net_const-get_selection.

*----------------------------------------------------------------------*
        WHEN net_const-get_selection.  "Selected objects
          DESCRIBE TABLE boxes_tab  LINES anz_b.
          DESCRIBE TABLE frames_tab LINES anz_f.
*         Maximale Anzahl der selektierten Objekte bestimmen
          anzahl = anz_b.
          IF anzahl < anz_f.
            anzahl = anz_f.
          ENDIF.
*         Falls kein Objekt selektiert wurde
          IF anzahl = 0.
            status_text = text-011.
          ELSE.    "Es wurde mindestens ein Objekt selektiert
            CLEAR scroll_tab.
            REFRESH scroll_tab.
*           Fьllen der Hilfstabelle fьr das Scrollen
            DO anzahl TIMES.
              APPEND scroll_tab.
            ENDDO.
*           Id's der Cluster und Boxen werden sortiert ausgegeben
            SORT frames_tab BY id.
            SORT boxes_tab BY id.
            entry_act = 1.
            CALL SCREEN 102 STARTING AT 10 10 ENDING AT 37 23.
            REFRESH frames_tab.
            REFRESH boxes_tab.
          ENDIF.                       "if ANZAHL = 0

*----------------------------------------------------------------------*
        WHEN net_const-ask_for_back.
          abap_cmd = gr_mes.

*----------------------------------------------------------------------*
        WHEN net_const-ask_for_exit.
          abap_cmd = gr_mes.

*----------------------------------------------------------------------*
        WHEN net_const-ask_for_quit.
          abap_cmd = gr_mes.

*----------------------------------------------------------------------*
      ENDCASE.                         "case GR_MES
  ENDCASE.                             "case M_TYP
ENDDO.


*&---------------------------------------------------------------------*
*&      Form  MAKE_AREA_POSITIONS
*&---------------------------------------------------------------------*
*       Erzeugen der Feldpositionen                                    *
*----------------------------------------------------------------------*
*  <->  AREA_POS
*----------------------------------------------------------------------*
FORM make_area_positions TABLES area_pos STRUCTURE net_arpos.

*..... Positionierung der Boxen im Clustereditor
  area_pos-id     = 'B2'.
  area_pos-x_min  = 2.
  area_pos-y_min  = 3.
  area_pos-x_max  = 2.
  area_pos-y_max  = 3.
  APPEND area_pos.

  area_pos-id     = 'B3'.
  area_pos-x_min  = 3.
  area_pos-y_min  = 4.
  area_pos-x_max  = 3.
  area_pos-y_max  = 4.
  APPEND area_pos.

  area_pos-id     = 'B4'.
  area_pos-x_min  = 2.
  area_pos-y_min  = 15.
  area_pos-x_max  = 2.
  area_pos-y_max  = 15.
  APPEND area_pos.

  area_pos-id     = 'B5'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 10.
  area_pos-x_max  = 1.
  area_pos-y_max  = 10.
  APPEND area_pos.

  area_pos-id     = 'B6'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 2.
  area_pos-x_max  = 2.
  area_pos-y_max  = 2.
  APPEND area_pos.

*..... Positionierung der Rahmen im Clustereditor
  area_pos-id     = 'F1'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 2.
  area_pos-x_max  = 2.
  area_pos-y_max  = 3.
  APPEND area_pos.

  area_pos-id     = 'F2'.
  area_pos-x_min  = 3.
  area_pos-y_min  = 2.
  area_pos-x_max  = 4.
  area_pos-y_max  = 14.
  APPEND area_pos.

  area_pos-id     = 'F3'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 6.
  area_pos-x_max  = 1.
  area_pos-y_max  = 18.
  APPEND area_pos.

  area_pos-id     = 'F4'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 4.
  area_pos-x_max  = 1.
  area_pos-y_max  = 9.
  APPEND area_pos.

  area_pos-id     = 'F5'.
  area_pos-x_min  = 1.
  area_pos-y_min  = 14.
  area_pos-x_max  = 2.
  area_pos-y_max  = 18.
  APPEND area_pos.

  area_pos-id     = 'F6'.
  area_pos-x_min  = 3.
  area_pos-y_min  = 8.
  area_pos-x_max  = 4.
  area_pos-y_max  = 16.
  APPEND area_pos.

ENDFORM.                               " MAKE_AREA_POSITIONS


*&---------------------------------------------------------------------*
*&      Form  MAKE_BOXES
*&---------------------------------------------------------------------*
*       Erzeugen der Boxen                                             *
*----------------------------------------------------------------------*
*  <->  BOXES
*  <->  BVALS
*----------------------------------------------------------------------*
FORM make_boxes TABLES boxes STRUCTURE net_boxes
                       bvals STRUCTURE net_nvals.

* Titelbox
  boxes-id       = 'B1'.
  boxes-box_type = net_const-borderbox.
  boxes-type     = net_const-type_2.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-003.                                     "Box 1
  APPEND bvals.
  bvals-fl  = net_const-box_position.  "Position der Titelbox
  bvals-val = net_const-top_box.       "'t' Titelbox oben
  APPEND bvals.

  CALL FUNCTION 'CNET_MAKE_BOXES'
    TABLES
      boxes = boxes
      bvals = bvals.

  CLEAR:   boxes, bvals.
  REFRESH: boxes, bvals.

* Weitere Boxen
  boxes-id       = 'B2'.
  boxes-box_type = net_const-rowbox.
  boxes-type     = net_const-type_1.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-box_color.     "Backgroundcolor
  bvals-val = sgrc_const-red.
  APPEND bvals.
  bvals-fl  = net_const-box_linecolor. "Linecolor
  bvals-val = sgrc_const-black.
  APPEND bvals.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-004.                                     "Box 2
  APPEND bvals.

  boxes-id       = 'B3'.
  boxes-box_type = net_const-rowbox.
  boxes-type     = net_const-type_1.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-box_color.     "Backgroundcolor
  bvals-val = sgrc_const-blue.
  APPEND bvals.
  bvals-fl  = net_const-box_linecolor. "Linecolor
  bvals-val = sgrc_const-black.
  APPEND bvals.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-005.                                     "Box 3
  APPEND bvals.

  boxes-id       = 'B4'.
  boxes-box_type = net_const-rowbox.
  boxes-type     = net_const-type_1.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-box_color.     "Backgroundcolor
  bvals-val = sgrc_const-magenta.
  APPEND bvals.
  bvals-fl  = net_const-box_linecolor. "Linecolor
  bvals-val = sgrc_const-black.
  APPEND bvals.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-006.                                     "Box 4
  APPEND bvals.
  bvals-fl  = net_const-priority.
  bvals-val = '5'.
  APPEND bvals.

  boxes-id       = 'B5'.
  boxes-box_type = net_const-rowbox.
  boxes-type     = net_const-type_1.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-box_color.     "Backgroundcolor
  bvals-val = sgrc_const-red.
  APPEND bvals.
  bvals-fl  = net_const-box_linecolor. "Linecolor
  bvals-val = sgrc_const-black.
  APPEND bvals.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-007.                                     "Box 5
  APPEND bvals.

  boxes-id       = 'B6'.
  boxes-box_type = net_const-rowbox.
  boxes-type     = net_const-type_1.
  APPEND boxes.
  bvals-id  = boxes-id.
  bvals-fl  = net_const-box_color.     "Backgroundcolor
  bvals-val = sgrc_const-cyan.
  APPEND bvals.
  bvals-fl  = net_const-box_linecolor. "Linecolor
  bvals-val = sgrc_const-black.
  APPEND bvals.
  bvals-fl  = net_const-text_index_0.
  bvals-val = text-008.                                     "Box 6
  APPEND bvals.

ENDFORM.                               " MAKE_BOXES


*&---------------------------------------------------------------------*
*&      Form  MAKE_FRAMES
*&---------------------------------------------------------------------*
*       Erzeugen der Frames                                            *
*----------------------------------------------------------------------*
*  <->  FRAMES
*  <FVALS>  ABAP_CMD                                                      *
*---------------------------------------------------------------------*
FORM cluster_logic USING abap_cmd LIKE net_graph-abap_cmd.

  CASE abap_cmd.
    WHEN space.                        "Neuladen
      REFRESH: all_boxes, all_bvals, all_frames, all_fvals.

      LOOP AT boxes_tab.
        MOVE-CORRESPONDING boxes_tab TO all_boxes.
        APPEND all_boxes.
      ENDLOOP.

      LOOP AT bvals_tab.
        MOVE-CORRESPONDING bvals_tab TO all_bvals.
        APPEND all_bvals.
      ENDLOOP.

      LOOP AT frames_tab.
        MOVE-CORRESPONDING frames_tab TO all_frames.
        APPEND all_frames.
      ENDLOOP.

      LOOP AT fvals_tab.
        MOVE-CORRESPONDING fvals_tab TO all_fvals.
        APPEND all_fvals.
      ENDLOOP.

    WHEN net_const-ask_for_modify.     "Modifizieren
      LOOP AT bvals_tab.
        LOOP AT all_bvals WHERE id = bvals_tab-id
                            AND fl = bvals_tab-fl.
          MOVE-CORRESPONDING bvals_tab TO all_bvals.
          MODIFY all_bvals.
          EXIT.
        ENDLOOP.
        IF NOT sy-subrc IS INITIAL.
          MOVE-CORRESPONDING bvals_tab TO all_bvals.
          APPEND all_bvals.
        ENDIF.
      ENDLOOP.

      LOOP AT fvals_tab.
        LOOP AT all_fvals WHERE id = fvals_tab-id
                            AND fl = fvals_tab-fl.
          MOVE-CORRESPONDING fvals_tab TO all_fvals.
          MODIFY all_fvals.
          EXIT.
        ENDLOOP.                       "loop at ALL_FVALS
        IF NOT sy-subrc IS INITIAL.
          MOVE-CORRESPONDING fvals_tab TO all_fvals.
          APPEND all_fvals.
        ENDIF.
      ENDLOOP.                         "loop at FVALS_TAB
  ENDCASE.

ENDFORM.                               "form CLUSTER_LOGIC


*----------------------------------------------------------------------*
* Form  INIT_0100                                                      *
*----------------------------------------------------------------------*
* Initialisierung der Tabellen BOXES_TAB und BVALS_TAB fьr die Anzeige *
* der Inhalte der Box, die per Doppelklick selektiert wurde.           *
*----------------------------------------------------------------------*
FORM init_0100.

  entry_act = 1.

  READ TABLE boxes_tab INDEX 1.
  LOOP AT all_boxes WHERE id = boxes_tab-id.
    MOVE-CORRESPONDING  all_boxes TO boxes_tab.
    MODIFY boxes_tab INDEX 1.
    EXIT.
  ENDLOOP.

  LOOP AT all_bvals WHERE id = boxes_tab-id.
    MOVE-CORRESPONDING all_bvals TO bvals_tab.
    APPEND bvals_tab.
  ENDLOOP.
  SORT bvals_tab.

ENDFORM.                                                    " INIT_0100


*----------------------------------------------------------------------*
* Form  INIT_0200                                                      *
*----------------------------------------------------------------------*
* Initialisierung der Tabellen FRAMES_TAB und FVALS_TAB fьr die        *
* Anzeige der Inhalte des Frame, der per Doppelklick selektiert wurde. *
*----------------------------------------------------------------------*
FORM init_0200.

  entry_act = 1.

  READ TABLE frames_tab INDEX 1.
  LOOP AT all_frames WHERE id = frames_tab-id.
    MOVE-CORRESPONDING  all_frames TO frames_tab.
    MODIFY frames_tab INDEX 1.
    EXIT.
  ENDLOOP.

  LOOP AT all_fvals WHERE id = frames_tab-id.
    MOVE-CORRESPONDING all_fvals TO fvals_tab.
    APPEND fvals_tab.
  ENDLOOP.
  SORT fvals_tab.

ENDFORM.                                                    " INIT_0200


*&---------------------------------------------------------------------*
*&      Form  SET_CUA_STATUS
*&---------------------------------------------------------------------*
*       Setzen der CUA-Oberflдche                                     *
*----------------------------------------------------------------------*
FORM set_cua_status.

  DATA: BEGIN OF excluding_tab OCCURS 0.
          INCLUDE STRUCTURE sgrcexclud.
  DATA: END OF excluding_tab.

  DATA: prog LIKE sy-repid.

  prog = sy-repid.

* CUA-Status
  CALL FUNCTION 'GRAPH_SET_CUA_STATUS'
    EXPORTING
      program      = prog
      status       = 'GRAFIK'
    TABLES
      excluding    = excluding_tab
    EXCEPTIONS
      inv_cua_info = 1.

  FREE excluding_tab.

* Fenstertitel
  SET TITLEBAR '003'.

ENDFORM.                               " SET_CUA_STATUS


*&---------------------------------------------------------------------*
*&      Module  MODIFY_TAB_0100  INPUT
*&---------------------------------------------------------------------*
*       text                                                           *
*----------------------------------------------------------------------*
MODULE modify_tab_0100 INPUT.

  MODIFY bvals_tab INDEX entry_act.

ENDMODULE.                             " MODIFY_TAB_0100  INPUT


*&---------------------------------------------------------------------*
*&      Module  MODIFY_TAB_0200  INPUT
*&---------------------------------------------------------------------*
*       text                                                           *
*----------------------------------------------------------------------*
MODULE modify_tab_0200 INPUT.

  MODIFY fvals_tab INDEX entry_act.

ENDMODULE.                             " MODIFY_TAB_0200  INPUT


*---------------------------------------------------------------------*
*       MODULE OK_CODE_0100 INPUT                                     *
*---------------------------------------------------------------------*
*       OK-Code-Verarbeitung                                          *
*---------------------------------------------------------------------*
MODULE ok_code_0100 INPUT.

  DATA: save_ok-code(4) TYPE c.

  save_ok-code = ok-code.
  CLEAR ok-code.

  CASE save_ok-code.

    WHEN 'ABBR'.
      CLEAR:   bvals_tab, fvals_tab.
      REFRESH: bvals_tab, fvals_tab.

      SET SCREEN 0.
      LEAVE SCREEN.

    WHEN 'UPDA'.
      SET SCREEN 0.
      LEAVE SCREEN.

    WHEN OTHERS.
      DESCRIBE TABLE bvals_tab LINES entry_to.
      IF entry_to = 0.
        DESCRIBE TABLE fvals_tab LINES entry_to.
      ENDIF.                           "if ENTRY_TO = 0
      IF entry_to <> 0.
        CALL FUNCTION 'SCROLLING_IN_TABLE'
          EXPORTING
            entry_act             = entry_act
            entry_to              = entry_to
            last_page_full        = space
            loops                 = line_count
            ok_code               = save_ok-code
          IMPORTING
            entry_new             = entry_new
          EXCEPTIONS
            no_entry_or_page_act  = 01
            no_entry_to           = 02
            no_ok_code_or_page_go = 03.

        IF sy-subrc <> 3.
          entry_act = entry_new.
        ENDIF.                         "if not SY-SUBRC = 3
      ENDIF.                           "if ENTRY_TO <> 0

  ENDCASE.

ENDMODULE.                             "OK_CODE_0100 INPUT.


*---------------------------------------------------------------------*
*       MODULE OK_CODE_0102 INPUT                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
MODULE ok_code_0102 INPUT.

  save_ok-code = ok-code.
  CLEAR ok-code.

  CASE save_ok-code.

    WHEN 'ENTR'.
      SET SCREEN 0.
      LEAVE SCREEN.

    WHEN 'ABBR'.
      SET SCREEN 0.
      LEAVE SCREEN.

    WHEN OTHERS.
      DESCRIBE TABLE scroll_tab LINES entry_to.

      CALL FUNCTION 'SCROLLING_IN_TABLE'
        EXPORTING
          entry_act             = entry_act
          entry_to              = entry_to
          last_page_full        = space
          loops                 = line_count_1
          ok_code               = save_ok-code
        IMPORTING
          entry_new             = entry_new
        EXCEPTIONS
          no_entry_or_page_act  = 01
          no_entry_to           = 02
          no_ok_code_or_page_go = 03.

      IF sy-subrc <> 3.
        entry_act = entry_new.
      ENDIF.
  ENDCASE.                             "case SAVE_OK-CODE

ENDMODULE.                             "module  OK_CODE_0102 INPUT.


*---------------------------------------------------------------------*
*       MODULE SET_PFSTATUS_MOD0100 OUTPUT                            *
*---------------------------------------------------------------------*
*       Modifikation der Boxattribute                                 *
*---------------------------------------------------------------------*
MODULE set_pfstatus_mod0100 OUTPUT.

  SET PF-STATUS 'MODIFY'.
  SET TITLEBAR '001'.

ENDMODULE.                    "set_pfstatus_mod0100 OUTPUT


*---------------------------------------------------------------------*
*       MODULE SET_PFSTATUS_MOD0200 OUTPUT                            *
*---------------------------------------------------------------------*
*       Modifikation der Clusterattribute                             *
*---------------------------------------------------------------------*
MODULE set_pfstatus_mod0200 OUTPUT.

  SET PF-STATUS 'MODIFY'.
  SET TITLEBAR '002'.

ENDMODULE.                    "set_pfstatus_mod0200 OUTPUT


*---------------------------------------------------------------------*
*       MODULE SET_PFSTATUS_ANZ0102 OUTPUT                            *
*---------------------------------------------------------------------*
*       Anzeige der selektierten Boxen und Cluster                    *
*---------------------------------------------------------------------*
MODULE set_pfstatus_anz0102 OUTPUT.

  SET PF-STATUS 'ANZEIGE'.
  SET TITLEBAR '004'.

ENDMODULE.                    "set_pfstatus_anz0102 OUTPUT

*Text elements
*----------------------------------------------------------
* 003 Box 1
* 004 Box 2
* 005 Box 3
* 006 Box 4
* 007 Box 5
* 008 Box
* 009 Cluster
* 010 Box
* 011 You have not selected an object


*Selection texts
*----------------------------------------------------------
* PRF_GRUP         Graphic profile group
* PRF_INDX         Graphic profile name
* PRF_NAME         Graphic profile index

****************************************************************
* This file was generated by Direct Download Enterprise. *
* Please do not change it manually. *
****************************************************************
%_DYNPRO
GRCNETC2
0100
620
40
%_HEADER
GRCNETC2 0100M0100 18 46192 0 0 0 19 46 0GXD 19960520135612
%_DESCRIPTION
Display and modification of boxes in cluster editor
%_FIELDS
BOXEN CHAR 46 00 00 00 30 00 1 2 0 0 0 5 R 0 0 101 Boxes
BOXID CHAR 6 00 00 00 30 00 2 3 0 0 0 0 0 0 ID
BOXES_TAB-ID CHAR 10 80 00 80 70 00 2 13 0 0 0 0 0 0 __________
BOXTYP CHAR 3 00 00 00 30 00 3 3 0 0 0 0 0 0 Typ
BOXES_TAB-BOX_TYPE CHAR 1 80 00 80 70 00 3 13 0 0 0 0 0 0 _
BOXESTYPE CHAR 9 00 00 00 30 00 4 3 0 0 0 0 0 0 Obj. type
BOXES_TAB-TYPE CHAR 1 80 00 80 70 00 4 13 0 0 0 0 0 0 _
ATTRIBUTE CHAR 46 00 00 00 30 00 6 2 0 0 0 13 R 0 0 103 Attributes
TYP CHAR 3 00 00 00 30 00 7 3 0 0 0 0 0 0 Typ
WERT CHAR 4 00 00 00 30 00 7 7 0 0 0 0 0 0 Val.
BVALS_TAB-FL CHAR 2 80 02 88 40 00 8 3 L 102 1 10 0 0 0 __
BVALS_TAB-VAL CHAR 40 80 02 88 40 00 8 7 L 102 1 10 0 0 0 ________________________________________
OK-CODE CHAR 4 80 10 00 40 00 255 255 O 0 0 0 0 0 0 ____
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE SET_PFSTATUS_MOD0100.

LOOP AT BVALS_TAB CURSOR ENTRY_ACT.
ENDLOOP.

*
PROCESS AFTER INPUT.

LOOP AT BVALS_TAB.
CHAIN.
FIELD BVALS_TAB-FL.
FIELD BVALS_TAB-VAL.
MODULE MODIFY_TAB_0100 ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.

MODULE OK_CODE_0100.

****************************************************************
* This file was generated by Direct Download Enterprise. *
* Please do not change it manually. *
****************************************************************
%_DYNPRO
GRCNETC2
0102
620
40
%_HEADER
GRCNETC2 0102M0102 13 27 0 0 0 0 13 27 0GXD 19941013100653
%_DESCRIPTION
Display selected objects
%_FIELDS
KNOTENTEXT CHAR 12 00 00 00 30 00 1 4 0 0 0 13 R 0 0 105 Boxes
CLUTERTEXT CHAR 12 00 00 00 30 00 1 17 0 0 0 13 R 0 0 104 Frame
IDKNOTEN CHAR 2 00 00 00 30 00 2 5 0 0 0 0 0 0 ID
IDRAHMEN CHAR 2 00 00 00 30 00 2 18 0 0 0 0 0 0 ID
SCROLL_TAB-FLAG CHAR 1 80 00 80 74 00 3 2 L 101 1 10 0 0 0 0 _
BOXES_TAB-ID CHAR 10 80 00 80 30 00 3 5 L 102 1 10 0 0 0 __________
FRAMES_TAB-ID CHAR 10 80 00 80 30 00 3 18 L 103 1 10 0 0 0 __________
OK-CODE CHAR 5 80 10 00 40 00 64 5 O 0 0 0 0 0 0 _____
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.

MODULE SET_PFSTATUS_ANZ0102.

LOOP AT SCROLL_TAB CURSOR ENTRY_ACT.
ENDLOOP.

LOOP AT BOXES_TAB CURSOR ENTRY_ACT.
ENDLOOP.

LOOP AT FRAMES_TAB CURSOR ENTRY_ACT.
ENDLOOP.

*
PROCESS AFTER INPUT.

LOOP AT SCROLL_TAB.
ENDLOOP.

LOOP AT BOXES_TAB.
ENDLOOP.

LOOP AT FRAMES_TAB.
ENDLOOP.

MODULE OK_CODE_0102.

****************************************************************
* This file was generated by Direct Download Enterprise. *
* Please do not change it manually. *
****************************************************************
%_DYNPRO
GRCNETC2
0200
620
40
%_HEADER
GRCNETC2 0200M0200 16 47192 34 0 0 21 48 0GXD 19970925163526
%_DESCRIPTION
Display and modifications of frames in the cluster editor
%_FIELDS
FRAMES CHAR 47 00 00 00 30 00 1 2 0 0 0 4 R 0 0 103 Frames
FRAMESID CHAR 6 00 00 00 30 00 2 3 0 0 0 0 0 0 ID
FRAMES_TAB-ID CHAR 10 80 00 80 70 00 2 10 0 0 0 0 0 0 __________
FRAMESTYP CHAR 3 00 00 00 30 00 3 3 0 0 0 0 0 0 Typ
FRAMES_TAB-TYPE CHAR 1 80 00 80 70 00 3 10 0 0 0 0 0 0 _
ATTRIBUTE CHAR 47 00 00 00 30 00 5 2 0 0 0 12 R 0 0 102 Attributes
TYP CHAR 3 00 00 00 30 00 6 3 0 0 0 0 0 0 Typ
WERT CHAR 4 00 00 00 30 00 6 7 0 0 0 0 0 0 Val.
FVALS_TAB-FL CHAR 2 80 02 88 40 00 7 3 L 101 1 9 0 0 0 __
FVALS_TAB-VAL CHAR 40 80 02 88 40 00 7 7 L 101 1 9 0 0 0 ________________________________________
OK-CODE CHAR 20 80 10 00 40 00 255 1 O 0 0 0 0 0 0 ____________________
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
MODULE SET_PFSTATUS_MOD0200.

LOOP AT FVALS_TAB CURSOR ENTRY_ACT.
ENDLOOP.
*
PROCESS AFTER INPUT.
LOOP AT FVALS_TAB.
CHAIN.
FIELD: FVALS_TAB-FL.
FIELD: FVALS_TAB-VAL.
MODULE MODIFY_TAB_0200 ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.

MODULE OK_CODE_0100.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Dialog Programming -> Graphics All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.