topic Re: tabstrip in main program(se38) in Application Development and Automation Discussions

tabstrip in main program(se38)

Former Member — Fri, 14 Mar 2008 04:25:41 GMT

hi all,

can any body tell me how to use tabstrip in a (se38 program ).

i have used selection screen in se38 program.

now i want to add tabstrip in that.

how to do that.

plz give example.

its very urgent.

eagarly waiting for reply.

regards,

sanjay

Re: tabstrip in main program(se38)

Former Member — Fri, 14 Mar 2008 04:30:53 GMT

Hi,

see this code.


*&---------------------------------------------------------------------*
*& Report  ZEXAMPLE1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZEXAMPLE1.

DATA flag(1) TYPE c.

* SUBSCREEN 1

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1(10) TYPE c,
            p2(10) TYPE c,
            p3(10) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 100.

* SUBSCREEN 2

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: q1(10) TYPE c OBLIGATORY,
            q2(10) TYPE c OBLIGATORY,
            q3(10) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.

* STANDARD SELECTION SCREEN

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
                  TAB (20) button1 USER-COMMAND push1,
                  TAB (20) button2 USER-COMMAND push2,
*                  TAB (20) button3 USER-COMMAND push3
*                                   DEFAULT SCREEN 300,
                  END OF BLOCK mytab.

INITIALIZATION.
  button1 = text-010.
  button2 = text-020.
*  button3 = text-030.
  mytab-prog = sy-repid.
  mytab-dynnr = 100.
  mytab-activetab = 'BUTTON1'.

AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'PUSH1'.
          mytab-dynnr = 100.
          mytab-activetab = 'BUTTON1'.
        WHEN 'PUSH2'.
          mytab-dynnr = 200.
          mytab-activetab = 'BUTTON2'.
      ENDCASE.
    WHEN 100.
      MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.
    WHEN 200.
      MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.
  ENDCASE.

MODULE init_0100 OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'MOD'.
      CASE flag.
        WHEN 'X'.
          screen-input = '1'.
        WHEN ' '.
          screen-input = '0'.
      ENDCASE.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDMODULE.

MODULE user_command_0100 INPUT.
  MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.
  CASE sy-ucomm.
    WHEN 'TOGGLE'.
      IF flag = ' '.
        flag = 'X'.
      ELSEIF flag = 'X'.
        flag = ' '.
      ENDIF.
  ENDCASE.
ENDMODULE.

START-OF-SELECTION.
  WRITE: / 'P1:', p1,'Q1:', q1,
         / 'P2:', p2,'Q2:', q2,
         / 'P3:', p3,'Q3:', q3.

rgds,

bharat.

Re: tabstrip in main program(se38)

Former Member — Fri, 14 Mar 2008 04:31:57 GMT

First Design two SUB-SCREEN's like this.

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.

......

SELECTION-SCREEN END OF SCREEN 101.

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.

......

SELECTION-SCREEN END OF SCREEN 102.

Then add them to TABBED block like given below.

SELECTION-SCREEN BEGIN OF TABBED BLOCK blockname.

SELECTION-SCREEN TAB (10) tabname1 USER-COMMAND ucomm1 DEFAULT SCREEN 101.

SELECTION-SCREEN TAB (10) tabname2 USER-COMMAND ucomm2 DEFAULT SCREEN 102.

SELECTION-SCREEN END OF BLOCK blockname.

Hope this helps.

Re: tabstrip in main program(se38)

dhruv_shah3 — Fri, 14 Mar 2008 04:33:21 GMT

Hi,

You have to use Module Pool programming, Design the Screen there

and then call it in to your report.

This is the Best way for this.

HTH

Regards,

Dhruv Shah

Re: tabstrip in main program(se38)

Former Member — Fri, 14 Mar 2008 04:39:34 GMT

Hi,

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.

PARAMETERS: p1 TYPE c LENGTH 10,

p2 TYPE c LENGTH 10,

p3 TYPE c LENGTH 10.

SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

PARAMETERS: q1 TYPE c LENGTH 10,

q2 TYPE c LENGTH 10,

q3 TYPE c LENGTH 10.

SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 30 LINES,

"syntax for tabsrip

TAB (20) button1 USER-COMMAND push1,

TAB (20) button2 USER-COMMAND push2,

END OF BLOCK mytab.

INITIALIZATION.

button1 = 'Selection Screen 1'.

button2 = 'Selection Screen 2'.

mytab-prog = sy-repid.

mytab-dynnr = 100.

mytab-activetab = 'PUSH1'.

AT SELECTION-SCREEN.

CASE sy-dynnr.

WHEN 1000.

CASE sy-ucomm.

WHEN 'PUSH1'.

mytab-dynnr = 100.

WHEN 'PUSH2'.

mytab-dynnr = 200.

WHEN OTHERS.

...

ENDCASE.

...

ENDCASE.

Regards,

Priya.