ck given code for logon screen using table control

Former Member — Wed, 12 Mar 2008 11:15:51 GMT

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

Re: ck given code for logon screen using table control

Former Member — Wed, 12 Mar 2008 11:26:04 GMT

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.

topic ck given code for logon screen using table control in Application Development and Automation Discussions

ck given code for logon screen using table control

Re: ck given code for logon screen using table control