Calling Sub screen

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

----