2008 May 12 6:34 AM
Hello Experts,
i created 2 screen,
first screen i called like
CALL SCREEN '1000' STARTING AT 10 10
ENDING AT 70 15.
in that based on logic i display the 2nd screen.
actually i need disable the first screen and call the second screen.
so i call leave to screen 2000.
But i am getting screen size of second screen is same as the size of first screen .
but the requirement is the second screen size may be big.So how can i call the second screen.
If i call : CALL SCREEN '2000' STARTING AT 12 12
ENDING AT 80 25.
The First Screen(1000) is not disabled.
Any one help me how to call second screen.
Thanks,
A.Sri.
Hello Experts,
i created 2 screen,
first screen i called like
CALL SCREEN '1000' STARTING AT 10 10
ENDING AT 70 15.
in that based on logic i display the 2nd screen.
actually i need disable the first screen and call the second screen.
so i call leave to screen 2000.
But i am getting screen size of second screen is same as the size of first screen .
but the requirement is the second screen size may be big.So how can i call the second screen.
If i call : CALL SCREEN '2000' STARTING AT 12 12
ENDING AT 80 25.
The First Screen(1000) is not disabled.
Any one help me how to call second screen.
Thanks,
A.Sri.
2008 May 12 6:53 AM
Hi
&----
*& Form GRID_DISPLAY_ALV
&----
form for display the data
----
FORM GRID_DISPLAY_ALV .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE1'
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'AT_USER_COMMAND'
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
I_SAVE = ' '
TABLES
T_OUTTAB = IT_ITAB[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " GRID_DISPLAY_ALV
&----
*& form set_pf_status
&----
*& Form for pf-status event
&----
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'CHAITHU'.
"Copy of 'STANDARD' pf_status from fgroup SALV
ENDFORM. "set_pf_status
&----
*& form at_user_command
&----
*& Form for at user-command event.
&----
FORM AT_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN 'CHAITU'.
IF RS_SELFIELD-FIELDNAME EQ 'KUNNR'.
READ TABLE IT_ITAB INDEX RS_SELFIELD-TABINDEX.
ENDIF.
CALL SCREEN '0200'.
message i002.
WHEN 'CREATE'.
CALL SCREEN '0100' STARTING AT 10 10 ENDING AT 80 30. message i000.
ENDCASE.
ENDFORM. "at_user_command
chaitu and create are the two push buttons.
| User | Count |
|---|---|
| 6 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |