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
Go to SE38 T-code.
Create a Z program.

 

Error rendering macro 'code': Invalid value specified for parameter 'lang'
REPORT  ZTABSTRIP.
CONTROLS TABSTRIP TYPE TABSTRIP.
************************************************************************
*DATA DECLARATION
************************************************************************
DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.DATA : NUMBER1 TYPE I,
       NUMBER2 TYPE I,
       RESULT TYPE I,
       RESULT2 TYPE I,
       N1 TYPE I,
       N2 TYPE I.
TABSTRIP-ACTIVETAB = 'TAB1'.
*CALLING SCREENS
CALL SCREEN 100.
CALL SCREEN 110.
CALL SCREEN 120.
CALL SCREEN 130.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
CASE OK_CODE.
WHEN 'TAB1'.
TABSTRIP-ACTIVETAB = 'TAB1'.
WHEN 'TAB2'.
TABSTRIP-ACTIVETAB = 'TAB2'.
WHEN 'TAB3'.
TABSTRIP-ACTIVETAB = 'TAB3'.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
endmodule.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.
  SET PF-STATUS 'SCREEN_100'.
endmodule.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0110  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0110 input.
*For entering values in TAB1
N1 = NUMBER1.
N2 = NUMBER2.
endmodule.                 " USER_COMMAND_0110  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0120  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0120 input.
*Addition Result in TAB2
RESULT = NUMBER1 + NUMBER2.
endmodule.                 " USER_COMMAND_0120  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0130  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0130 input.
*  Multiplication Result in TAB3
RESULT2 = NUMBER1 * NUMBER2.
endmodule.                 " USER_COMMAND_0130  INPUT

Double Click on "call screen 100". 
Enter Short descriptions.
Come to Flow logic.
 
Click on Layout Button.   
Create Tab Strip and Sub screens and place Sub screen in the corresponding tab strip. 
 
Enter the name of the created TABSTRIP and sub SCREEN. 
 
Enter the required Name, Text, Function code.
Enter the OK_CODE. 
 
Double click on CALL SCREEN 110.
Give the short description.
 
Click on Flow logic and come to layout.
Create 2 Input fields. Enter the name description and Format. 
 
Double click on CALL SCREEN 120.
 
Create a text for Result. 
 
Repeat the same for  screen 130
EXECUTE.  
  • No labels