Calling Sub screen

Question

Hi all,
      Iam getting a problem in calling a sub screen.
Iam getting error as below:
<b>"." or "ID .....FIELD..." expected after "SUBSCREEN".</b>
Please go through this code and suggest me
*& Module pool       Y_MP_SUB_03
PROGRAM  Y_MP_SUB_03.
tables : kna1.
data : begin of itab occurs 0,
        name1 like kna1-name1,
        land1 like kna1-land1,
       end of itab.
CALL SCREEN 100.
*&      Module  USER_COMMAND_0100  INPUT
      text
module STATUS_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'TT'.
CALL SUBSCREEN SUB 'Y_MP_SUB_03' '110' .
endmodule.                 " STATUS_0100  OUTPUT
module USER_COMMAND_0100 input.
  case sy-ucomm.
       when 'DISP'.
          SELECT NAME1 LAND1 FROM KNA1 INTO ITAB WHERE
           KUNNR = KNA1-KUNNR.
           APPEND ITAB.
          ENDSELECT.
      WHEN 'EXIT'.
         LEAVE PROGRAM.
  ENDCASE.
endmodule.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0100  OUTPUT
      text

Answer 1

HI,
u shouldn't use that in module.u have to call that in flow logic.
PROGRAM ZBHTSTRIP.
DATA:OKCODE LIKE SY-UCOMM.
DATA: N1 TYPE I, N2 TYPE I, R1 TYPE I, R2 TYPE I.
DATA SCRNO(4) TYPE N VALUE 2001.
CONTROLS TABS TYPE TABSTRIP.
MODULE USER_COMMAND_1001 INPUT.
   CASE OKCODE.
     WHEN 'ADD'.
       R1 = N1 + N2.
       SCRNO = 2001.
       TABS-ACTIVETAB = OKCODE.
     WHEN 'MUL'.
       R2 = N1 * N2.
       SCRNO = 2002.
       TABS-ACTIVETAB = OKCODE.
     WHEN 'BACK'.
       SET SCREEN 0.
     WHEN 'CLEA'.
       CLEAR: N1,N2.
   ENDCASE.
ENDMODULE.                 " USER_COMMAND_1001  INPUT
FORM ON_CTMENU_FORM1 USING MENU1 TYPE REF TO CL_CTMENU.
  CALL METHOD MENU1->LOAD_GUI_STATUS
    EXPORTING
      PROGRAM = 'ZBHTSTRIP'
      STATUS = 'MENU1'
      MENU = MENU1.
  CALL METHOD MENU1->ADD_FUNCTION
    EXPORTING
       FCODE = 'EXIT'
       TEXT = 'EXIT'.
ENDFORM.
MODULE STATUS_1001 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
  SET TITLEBAR 'TIT1001'.
ENDMODULE.                 " STATUS_1001  OUTPUT
FLOW LOGIC:
PROCESS BEFORE OUTPUT.
MODULE STATUS_1001.
<b>CALL SUBSCREEN SUBA INCLUDING 'ZBHTSTRIP' SCRNO.</b>
PROCESS AFTER INPUT.
MODULE USER_COMMAND_1001.
CALL SUBSCREEN SUBA.
PROCESS BEFORE OUTPUT.
MODULE STATUS_2001.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_2001.
PROCESS BEFORE OUTPUT.
MODULE STATUS_2002.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_2002.
rgds,
bharat.