Listing 5.4  Quelltext des Includes LZPTB00_OBJ_BTAO01
*&----------------------------------------------------*
*&  Include           LZPTB00_OBJ_BTAO01               
*&----------------------------------------------------*

*&SPWIZARD: OUTPUT MODULE FOR TC 'POSITION_TABLE'. DO 
* NOT CHANGE THIS LINE
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE POSITION_TABLE_INIT OUTPUT.
  FIELD-SYMBOLS:
    <g_str_item> TYPE ZPTB00_BTAITEM.
  IF G_POSITION_TABLE_COPIED IS INITIAL.
    LOOP AT g_str_bta-tab_item ASSIGNING <g_str_item>.
      MOVE-CORRESPONDING <g_str_item> TO 
      g_position_table_wa.
      APPEND g_position_table_wa TO 
      g_position_table_itab.
    ENDLOOP.
*&SPWIZARD: COPY DDIC-TABLE 'ZPTB00_BTAITEM'
*&SPWIZARD: INTO INTERNAL TABLE 'g_POSITION_TABLE_itab'
*    SELECT * FROM ZPTB00_BTAITEM
*       INTO CORRESPONDING FIELDS
*       OF TABLE G_POSITION_TABLE_ITAB.
    G_POSITION_TABLE_COPIED = 'X'.
    REFRESH CONTROL 'POSITION_TABLE' FROM SCREEN 
   '0100'.
  ENDIF.
ENDMODULE.                 "POSITION_TABLE_INIT OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'POSITION_TABLE'. 
*DO NOT CHANGE THIS LINE
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE POSITION_TABLE_MOVE OUTPUT.
  MOVE-CORRESPONDING G_POSITION_TABLE_WA TO 
  ZPTB00_BTAITEM.
ENDMODULE.                  "POSITION_TABLE_MOVE OUTPUT

*&SPWIZARD: OUTPUT MODULE FOR TC 'POSITION_TABLE'. 
*DO NOT CHANGE THIS LI
*&SPWIZARD: GET LINES OF TABLECONTROL
MODULE POSITION_TABLE_GET_LINES OUTPUT.
  G_POSITION_TABLE_LINES = SY-LOOPC.
ENDMODULE.             "POSITION_TABLE_GET_LINES OUTPUT

*&----------------------------------------------------	*
*&      Module  STATUS_0100  OUTPUT                   	*
*&----------------------------------------------------	*
* Setting of GUI-Status, titlebar and initialization  	*
* of header data.                                     	*
*-----------------------------------------------------	*
MODULE STATUS_0100 OUTPUT.
  DATA:
    g_header_copied TYPE c.

  SET PF-STATUS 'ZPTB00_OBJ_BTA_STD'.
  SET TITLEBAR 'ZPTB00_OBJ_BTA_STD'.

  IF g_header_copied IS INITIAL.
* assign header data to appropriate controls
    zptb00_str_bta-bp_id = g_str_bta-bp_id.
    zptb00_str_bta-bttype = g_str_bta-bttype.
    zptb00_str_bta-btdate = g_str_bta-btdate.
    g_header_copied = 'X'.
  ENDIF.
ENDMODULE.                 " STATUS_0100 OUTPUT