3 Answers
-
Former MemberPosted on Jan 01, 2008 at 01:15 PMHi,
u have to use color in PBO process before output flow logic. This properties r not inherite. u may use seperate for every selection screen. plse check it out , 4 futher info plse mail me periyasamy_2k@yahoo.com...
Add a comment
-
Former MemberPosted on Jan 09, 2008 at 11:28 AM
HI,
check this code,
PROGRAM YMPSKEL MESSAGE-ID YL.
*----
DESCRIPTION
written by !
*----
TABLES:
DATA: OK_CODE(4), " ok code - screen 1
OK_CODE2(4).
DATA C LIKE SY-INDEX. " Index for screen loop
&----
*& Module USER_COMMAND_0100 INPUT
&----
process after input for screen 0100 *
----
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'SAVE'.
*
WHEN 'DISP'.
*
WHEN 'LIST'.
C = 0. "reset loop control
*
WHEN OTHERS.
*
ENDCASE.
CLEAR OK_CODE.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Module STATUS_0100 OUTPUT
&----
process before output for screen 0100 *
----
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'AMEND'. " set gui status
SET TITLEBAR '100'. " set title
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Form SAVE data
&----
Save screen details
&----
FORM SAVE.
*
CLEAR OK_CODE.
ENDFORM.
&----
*& Form DISPLAY
&----
----
FORM DISPLAY.
*
*
ENDFORM.
&----
*& Module EXIT_COMMAND INPUT
&----
exit commands are processed before validation *
defined by E against function in menu painter(function list)
----
MODULE EXIT_COMMAND INPUT.
CASE OK_CODE.
WHEN 'EXIT'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
WHEN 'CANC'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
WHEN 'BACK'. CLEAR OK_CODE. SET SCREEN 0. LEAVE SCREEN.
ENDCASE.
ENDMODULE. " EXIT_COMMAND INPUT
&----
*& Form list
&----
text *
----
FORM LIST.
CLEAR OK_CODE. SET SCREEN 200. LEAVE SCREEN.
ENDFORM. " LIST
&----
*& Module EXIT_COMMAND_200 INPUT
&----
exit command processing for screen 200 *
defined by E against function in menu painter(function list)
----
MODULE EXIT_COMMAND_200 INPUT.
CASE OK_CODE2.
WHEN 'EXIT'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
WHEN 'CANC'. CLEAR OK_CODE2. SET SCREEN 0. LEAVE SCREEN.
WHEN 'BACK'. CLEAR OK_CODE2. SET SCREEN 100. LEAVE SCREEN.
ENDCASE.
ENDMODULE. " EXIT_COMMAND_200 INPUT
&----
*& Module STATUS_0200 OUTPUT
&----
process before output for screen 200 *
----
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'POPUP'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0200 OUTPUT
with regards,
sowjanya.gosala.
Add a comment
Add a comment