ck given code for logon screen using table control

[Former Member]

hi all,

here is a code for creating logon screen using table control.

but it is not working properly.plz help.

here screen is a structure but i do not no how to use is .what is screen-invisible,required.plz explain.

plz help. its a urgent.

&----

---

*& Module Pool SAPMZLOGON

*&

&----

---

*&

*&

&----

---

INCLUDE MZLOGONTOP . " global Data

• INCLUDE MZLOGONO01 . " PBO-Modules

• INCLUDE MZLOGONI01 . " PAI-Modules

• INCLUDE MZLOGONF01 . " FORM-Routines

&----

---

*& Module USER_COMMAND_1000 INPUT

&----

---

• text

----

---

module USER_COMMAND_1000 input.

case sy-ucomm.

WHEN 'LOGIN'.

CALL TRANSACTION 'SE38'.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

endmodule. " USER_COMMAND_1000 INPUT

&----

---

*& Module STATUS_1000 OUTPUT

&----

---

• text

----

---

module STATUS_1000 output.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

IF A = 0.

*MESSAGE S010(ZMSG).

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'GR1'.

SCREEN-REQUIRED = '1'.

ENDIF.

IF SCREEN-GROUP1 = 'GR2'.

SCREEN-INVISIBLE = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

A = 1.

ENDIF.

endmodule. " STATUS_1000 OUTPUT

[Former Member]

Hi Sanjay

Here Screen is a structure.

whenever U want to modify a screen U can loop this structure.even though this is a structure values will be passed to this structure during runtime.

it contans fields like Name, Group1, input , Active ,Invisible, Intensified requied etc.

in module pool if u wat to make a field invisible .

LOOP AT SCREEN.

IF SCREEN-name = 'field name'. Makes it mandatory

SCREEN-REQUIRED = '1'.

ENDIF.

IF SCREEN-name = 'field name'. Makes the field invisible

SCREEN-INVISIBLE = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.