Using subscreen

[Former Member]

Hello,

Can any body tell me how to use a tab strip in user command..?I have to design like this.

If one of the buttons in main screen is pressed, my tab strip should load into the subscreen area provided in main screen.

Thanks in adv,

[Laxmana_Appana_]

Hi,

If you have given tab name as 'TAB1' , then you can capture with sy-ucomm EQ 'TAB1'.

i think you want to load tabstrip after button press .

then do like this first check invisible option of the tabstrip in screen painter.

if sy-ucomm eq 'BUTPRE' <- button 
LOOP AT SCREEN.
   IF screen-name = 'TAB1'.    
        screen-invisible = '0' .
        MODIFY SCREEN.
   ENDIF.
ENDLOOP.
ENDIF.

Regards

Appana

[Former Member]

Hi,

how can i pass the values from one subscreen to another subscreen, i know if it is a normal screen by using loop and endloop but subscreen is not accepting the same..

can any body throw the light...please..

thx

[Former Member]

Hi,

Check DEMO_DYNPRO_TABSTRIP_LOCAL & DEMO_DYNPRO_TABSTRIP_SERVER programs.

Regards,

Raghav

[Former Member]

thanks guys !!!

[RichHeilman]

Please make sure that you award points for these helpful answers. And make sure to mark you post as solved when solved completely. Thanks

Regards,

Rich Heilman

[Former Member]

Hii abaper,

chk this

PROGRAM  Z_TABSTRIP_   .
CONTROLS MYTAB TYPE TABSTRIP.
CONTROLS TC1 TYPE TABLEVIEW USING SCREEN 0100.

DATA: BEGIN OF IT_MARA OCCURS 0,
      MATNR LIKE MARA-MATNR,
      ERNAM LIKE MARA-ERNAM,
      END OF IT_MARA.
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.

START-OF-SELECTION.
  MYTAB-ACTIVETAB = 'PUSH2'.

  CALL SCREEN 1000.

MODULE USER_COMMAND_1000 INPUT.

  CLEAR: OK_CODE,
       SAVE_OK.
  OK_CODE = SY-UCOMM.
  SAVE_OK = OK_CODE.


  CASE SAVE_OK.
    WHEN 'BACK'.
      LEAVE TO SCREEN '0'.
    WHEN 'EXIT'.
      LEAVE TO SCREEN '0'.
    WHEN 'STOP'.
      LEAVE PROGRAM.
  ENDCASE.

  save_ok = ok_code.
  CLEAR ok_code.
  IF save_ok = 'OK'.
    MESSAGE i888(sabapdocu) WITH 'MYTAB-ACTIVETAB ='
                                  mytab-activetab.
  ELSE.
    mytab-activetab = save_ok.
*    CASE save_ok.
**      WHEN 'PUSH1'.
**        number = '0110'.
**      WHEN 'PUSH2'.
**        number = '0120'.
**      WHEN 'PUSH3'.
**        number = '0130'.
*    ENDCASE.
  ENDIF.


ENDMODULE.                 " USER_COMMAND_1000  INPUT

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.                 " CANCEL  INPUT
MODULE STATUS_1000 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.
ENDMODULE.                 " STATUS_1000  OUTPUT

MODULE STATUS_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
  REFRESH IT_MARA.
  SELECT MATNR
         ERNAM
         FROM MARA UP TO 5 ROWS
         INTO TABLE IT_MARA.

ENDMODULE.  

" STATUS_0100 OUTPUT

Regards

Naresh