Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report Z_SUBSCR_TEST *
*& *
*&---------------------------------------------------
*& *
*& *
*&---------------------------------------------------
REPORT z_subscr_test.
*----------------------------------------------------
* SUBSCREEN 2
*----------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 1111 AS SUBSCREEN.
SELECTION-SCREEN SKIP. "für die leerzeile am screen
PARAMETERS test TYPE i DEFAULT '1' obligatory.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF SCREEN 1111.
START-OF-SELECTION.
*---Aufruf des Ausgabescreens-----------------------------------------*
CALL SCREEN 0100.
*---------------------------------------------------------------------*
* MODULE status_0100 OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
CALL SUBSCREEN SUBSCR INCLUDING '1111'.
ENDMODULE. "status_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
IF sy-ucomm = 'BACK' OR
sy-ucomm = 'EXIT' OR
sy-ucomm = 'CANCEL'.
LEAVE PROGRAM.
ENDIF.
CALL SUBSCREEN SUBSCR.
ENDMODULE. " USER_COMMAND_0100 INPUT
Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SUBSCR INCLUDING z_subscr_test '1111'.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
CALL SUBSCREEN SUBSCR.
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report Z_SUBSCR_TEST *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT z_subscr_test.
TABLES: nbew.
*---------------------------------------------------------------
* SUBSCREEN 2
*---------------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 1111 AS SUBSCREEN.
SELECTION-SCREEN SKIP. "für die leerzeile am screen
SELECT-OPTIONS datum FOR nbew-bwidt obligatory. "von bis feld für datum
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF SCREEN 1111.
START-OF-SELECTION.
*---Aufruf des Ausgabescreens-----------------------------------------*
CALL SCREEN 0100.
*---------------------------------------------------------------------*
* MODULE status_0100 OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
ENDMODULE. "status_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
IF sy-ucomm = 'BACK' OR
sy-ucomm = 'EXIT' OR
sy-ucomm = 'CANCEL'.
LEAVE PROGRAM.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
Wenn dein PBOabap-strizi hat geschrieben:ok danke das habe ich jetzt geschafft.
Nun habe ich allerdings noch eine frage:
der eigentliche sinn warum ich einen subscreen einfügen will ist, dass ich in einen mit dem screepainter gezeichneten dynpro einen subscreen einfüge in dem ich zB: ein select-options einbaue!
Code: Alles auswählen.
*&---------------------------------------------------------------------* *& Report Z_SUBSCR_TEST * *& * *&---------------------------------------------------------------------* *& * *& * *&---------------------------------------------------------------------* REPORT z_subscr_test. TABLES: nbew. *--------------------------------------------------------------- * SUBSCREEN 2 *--------------------------------------------------------------- SELECTION-SCREEN BEGIN OF SCREEN 1111 AS SUBSCREEN. SELECTION-SCREEN SKIP. "für die leerzeile am screen SELECT-OPTIONS datum FOR nbew-bwidt obligatory. "von bis feld für datum SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF SCREEN 1111. START-OF-SELECTION. *---Aufruf des Ausgabescreens-----------------------------------------* CALL SCREEN 0100. *---------------------------------------------------------------------* * MODULE status_0100 OUTPUT *---------------------------------------------------------------------* * *---------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'SCREEN_100'. ENDMODULE. "status_0100 OUTPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* MODULE USER_COMMAND_0100 INPUT. IF sy-ucomm = 'BACK' OR sy-ucomm = 'EXIT' OR sy-ucomm = 'CANCEL'. LEAVE PROGRAM. ENDIF. ENDMODULE. " USER_COMMAND_0100 INPUT
Bekomme beim aktivieren immer die fehlermeldung:
Fehler beim Generieren des Selektionsbilds "1111" des Reports "Z_SUBSCR_TEST"
Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SUBSCR INCLUDING z_subscr_test '1111'.
Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN SUBSCR INCLUDING 'Z_SUBSCR_TEST' '1111'.
Code: Alles auswählen.
data z_subscr_test type sy-repid.
Code: Alles auswählen.
z_subscr_test = sy-repid.
Code: Alles auswählen.
Der Include-Block ist nicht angegeben oder nicht definiert oder falsche Schreibweise.
Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF SCREEN 1111 AS SUBSCREEN.
SELECT-OPTIONS: datum FOR nbew-bwidt.
SELECTION-SCREEN END OF SCREEN 1111.
Die Fehlermeldung könnte darauf hindeuten, dass du vergessen hast den Subscreenbereich auf deinem Dynpro anzulegen.ereglam hat geschrieben:Hallo Jupp,
das war eigentlich auch mein Ansatz zur Korrektur.
Merkwürdigerweise scheint das aber nicht das eigentliche Problem zu sein.
Ich habe mir mal erlaubt, das Programm von Strizi bei mir im System anzulegen und bekomme auch eine Fehlermeldung beim Generieren des Dynpro:Dabei bin ich mir ziemlich sicher, genau dieses Konstrukt schon selbst bei einem Kunden verwendet zu haben...Code: Alles auswählen.
Der Include-Block ist nicht angegeben oder nicht definiert oder falsche Schreibweise.