Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

c weather the my code is right regarding screen programming

Former Member

‎2008 Jun 04 10:36 AM

0 Likes
352

&----

*& Module Pool ZTIMSINVOICEM

*&

&----

*&

*&

&----

include ztop.

DATA: ok_code(4). " like sy-ucomm.

DATA: rb1,rb2,rb3. " three radio buttons.

*DATA: V_MODE(10) VALUE 'LEO_NO'.

&----

*& Module USER_COMMAND_0100 INPUT

&----

  • text.****PF STATUS FOR SCREEN 100.

----

MODULE USER_COMMAND_0100 INPUT.

case sy-ucomm.

when 'BACK'.

CLEAR OK_CODE.

LEAVE TO SCREEN 99.

when 'EXIT'.

CLEAR OK_CODE.

LEAVE TO SCREEN 0.

when 'CANCEL'.

CLEAR OK_CODE.

LEAVE TO SCREEN 0.

endcase.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module STATUS_0100 OUTPUT

&----

  • text****PF STATUS FOR SCREEN 100.

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'ZPFSTATUS'.

SET TITLEBAR 'ZTL'.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0099 INPUT

&----

  • text

----

MODULE USER_COMMAND_0099 INPUT.

    • SET PF-STATUS 'ZPFSTATUS1'.

*if ok_code = 'EXE'.

  • if rb1 = 'X'.

  • call screen 100.

    • LOOP AT SCREEN.

    • IF SCREEN-NAME = LEO_N0.

    • SCREEN-INPUT = 2.

    • SCREEN-ACTIVE = 2.

    • ENDIF.

    • MODIFY SCREEN.

    • ENDLOOP.

*

  • elseif rb2 = 'X'.

  • call screen 100.

  • elseif rb3 = 'X'.

  • call screen 100.

  • endif.

*endif.

SET PF-STATUS 'ZPFSTATUS1'.

SET TITLEBAR 'ZTL1'.

case sy-ucomm.

when 'EXE'.

call screen 100.

when 'BACK'.

CLEAR SY-UCOMM.

leave to SCREEN 0.

when 'EXIT'.

CLEAR SY-UCOMM.

LEAVE TO SCREEN 0.

when 'CANCEL'.

CLEAR SY-UCOMM.

LEAVE TO SCREEN 0.

endcase.

  • IF OK_CODE = 'TOGL'.

  • IF V_MODE = 'LEO_NO'.

  • V_MODE = 'SB_NO'.

  • ELSEIF V_MODE = 'SB_NO'.

  • V_MODE = 'LEO_NO'.

  • ENDIF.

  • ENDIF.

ENDMODULE. " USER_COMMAND_0099 INPUT

&----

*& Module STATUS_0099 OUTPUT

&----

  • text

----

MODULE STATUS_0099 OUTPUT.

SET TITLEBAR 'ZTL1'.

SET PF-STATUS 'ZPFSTATUS1'.

ENDMODULE. " STATUS_0099 OUTPUT

*

&----

*& Module MODIFY_SCREEN_99 OUTPUT

&----

  • text

----

MODULE MODIFY_SCREEN_99 OUTPUT.

**if ok_code = 'EXE'.

    • if rb1 = 'X'.

    • call screen 100.

  • LOOP AT SCREEN.

  • CASE 'X'.

  • WHEN rb1.

  • CASE SCREEN-NAME.

  • WHEN 'LEO_N0'.

    • SCREEN-INPUT = 0.

  • SCREEN-INVISIBLE = 0.

*

  • MODIFY SCREEN.

  • ENDCASE.

  • ENDCASE.

  • ENDLOOP.

*

    • elseif rb2 = 'X'.

    • call screen 100.

    • elseif rb3 = 'X'.

    • call screen 100.

    • endif.

**endif.

          • case V_MODE.

            • wHEN RB1.

            • case screen-group1.

          • when 'LEO_NO'.

          • LOOP AT SCREEN.

          • IF SCREEN-NAME = 'LEO_NO'.

          • SCREEN-INVISIBLE = 2.

          • MODIFY SCREEN.

          • ENDIF.

          • ENDLOOP.

          • ENDCASE.

  • MODIFY SCREEN.

LOOP AT SCREEN.

CASE 'X'.

WHEN rb1.

CASE SCREEN-NAME.

WHEN 'LEO_N0'.

SCREEN-INPUT = 0.

SCREEN-INVISIBLE = 0.

MODIFY SCREEN.

ENDCASE.

ENDCASE.

ENDLOOP.

.

ENDMODULE. " MODIFY_SCREEN_99 OUTPUT

&----

*& Module MODIFY_SCREEN_100 OUTPUT

&----

  • text

----

MODULE MODIFY_SCREEN_100 OUTPUT.

LOOP AT SCREEN.

CASE 'X'.

WHEN rb1.

CASE screen-NAME.

WHEN 'LEO_N0'.

SCREEN-INPUT = 0.

  • SCREEN-INVISIBLE = 0.

MODIFY SCREEN.

ENDCASE.

ENDCASE.

ENDLOOP.

&----

*& Module Pool ZTIMSINVOICEM

*&

&----

*&

*&

&----

include ztop.

DATA: ok_code(4). " like sy-ucomm.

DATA: rb1,rb2,rb3. " three radio buttons.

*DATA: V_MODE(10) VALUE 'LEO_NO'.

&----

*& Module USER_COMMAND_0100 INPUT

&----

  • text.****PF STATUS FOR SCREEN 100.

----

MODULE USER_COMMAND_0100 INPUT.

case sy-ucomm.

when 'BACK'.

CLEAR OK_CODE.

LEAVE TO SCREEN 99.

when 'EXIT'.

CLEAR OK_CODE.

LEAVE TO SCREEN 0.

when 'CANCEL'.

CLEAR OK_CODE.

LEAVE TO SCREEN 0.

endcase.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Module STATUS_0100 OUTPUT

&----

  • text****PF STATUS FOR SCREEN 100.

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'ZPFSTATUS'.

SET TITLEBAR 'ZTL'.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0099 INPUT

&----

  • text

----

MODULE USER_COMMAND_0099 INPUT.

    • SET PF-STATUS 'ZPFSTATUS1'.

*if ok_code = 'EXE'.

  • if rb1 = 'X'.

  • call screen 100.

    • LOOP AT SCREEN.

    • IF SCREEN-NAME = LEO_N0.

    • SCREEN-INPUT = 2.

    • SCREEN-ACTIVE = 2.

    • ENDIF.

    • MODIFY SCREEN.

    • ENDLOOP.

*

  • elseif rb2 = 'X'.

  • call screen 100.

  • elseif rb3 = 'X'.

  • call screen 100.

  • endif.

*endif.

SET PF-STATUS 'ZPFSTATUS1'.

SET TITLEBAR 'ZTL1'.

case sy-ucomm.

when 'EXE'.

call screen 100.

when 'BACK'.

CLEAR SY-UCOMM.

leave to SCREEN 0.

when 'EXIT'.

CLEAR SY-UCOMM.

LEAVE TO SCREEN 0.

when 'CANCEL'.

CLEAR SY-UCOMM.

LEAVE TO SCREEN 0.

endcase.

  • IF OK_CODE = 'TOGL'.

  • IF V_MODE = 'LEO_NO'.

  • V_MODE = 'SB_NO'.

  • ELSEIF V_MODE = 'SB_NO'.

  • V_MODE = 'LEO_NO'.

  • ENDIF.

  • ENDIF.

ENDMODULE. " USER_COMMAND_0099 INPUT

&----

*& Module STATUS_0099 OUTPUT

&----

  • text

----

MODULE STATUS_0099 OUTPUT.

SET TITLEBAR 'ZTL1'.

SET PF-STATUS 'ZPFSTATUS1'.

ENDMODULE. " STATUS_0099 OUTPUT

*

&----

*& Module MODIFY_SCREEN_99 OUTPUT

&----

  • text

----

MODULE MODIFY_SCREEN_99 OUTPUT.

**if ok_code = 'EXE'.

    • if rb1 = 'X'.

    • call screen 100.

  • LOOP AT SCREEN.

  • CASE 'X'.

  • WHEN rb1.

  • CASE SCREEN-NAME.

  • WHEN 'LEO_N0'.

    • SCREEN-INPUT = 0.

  • SCREEN-INVISIBLE = 0.

*

  • MODIFY SCREEN.

  • ENDCASE.

  • ENDCASE.

  • ENDLOOP.

*

    • elseif rb2 = 'X'.

    • call screen 100.

    • elseif rb3 = 'X'.

    • call screen 100.

    • endif.

**endif.

          • case V_MODE.

            • wHEN RB1.

            • case screen-group1.

          • when 'LEO_NO'.

          • LOOP AT SCREEN.

          • IF SCREEN-NAME = 'LEO_NO'.

          • SCREEN-INVISIBLE = 2.

          • MODIFY SCREEN.

          • ENDIF.

          • ENDLOOP.

          • ENDCASE.

  • MODIFY SCREEN.

LOOP AT SCREEN.

CASE 'X'.

WHEN rb1.

CASE SCREEN-NAME.

WHEN 'LEO_N0'.

SCREEN-INPUT = 0.

SCREEN-INVISIBLE = 0.

MODIFY SCREEN.

ENDCASE.

ENDCASE.

ENDLOOP.

.

ENDMODULE. " MODIFY_SCREEN_99 OUTPUT

&----

*& Module MODIFY_SCREEN_100 OUTPUT

&----

  • text

----

MODULE MODIFY_SCREEN_100 OUTPUT.

LOOP AT SCREEN.

CASE 'X'.

WHEN rb1.

CASE screen-NAME.

WHEN 'LEO_N0'.

SCREEN-INPUT = 0.

  • SCREEN-INVISIBLE = 0.

MODIFY SCREEN.

ENDCASE.

ENDCASE.

ENDLOOP.

Reply
1 REPLY 1
Read only

Former Member

‎2008 Jun 04 12:44 PM

0 Likes
332

hi,

there are number of codes which you was wrote in your module pool is meaning less.

here i am going to explain one of that.

if you want to any operation according than it will be in PAI for certain tasks.

you cannot set any status bar and gui title for ur screen in PAI.

it is meaning less.

there is another code :

*

o LOOP AT SCREEN.

o IF SCREEN-NAME = LEO_N0.

o SCREEN-INPUT = 2.

o SCREEN-ACTIVE = 2.

o ENDIF.

o MODIFY SCREEN.

o ENDLOOP.

*

you can't assign value screen-input = 2

there is only 0 and 1.

screen-input = 0 for disable field

screen-input = 1 for enable field

and same for screen-active , you can use only value 0 and 1.

Still any help require than reply me.

regards,

Vipul.

Edited by: VipulKumar Darji on Jun 4, 2008 5:16 PM