Listing 5.3  Quelltext der Dynpro-0100-Ablauflogik
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL *&'POSITION_TABLE'
  MODULE POSITION_TABLE_INIT.
*&SPWIZARD: MODULE POSITION_TABLE_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE POSITION_TABLE_CHANGE_COL_ATTR.
  LOOP AT   G_POSITION_TABLE_ITAB
       INTO G_POSITION_TABLE_WA
       WITH CONTROL POSITION_TABLE
       CURSOR POSITION_TABLE-CURRENT_LINE.
*&SPWIZARD:   MODULE POSITION_TABLE_CHANGE_FIELD_ATTR
    MODULE POSITION_TABLE_MOVE.
    MODULE POSITION_TABLE_GET_LINES.
  ENDLOOP.

  MODULE status_0100.

PROCESS AFTER INPUT.
  module user_exit_0100 at exit-command.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 
*'POSITION_TABLE'
  LOOP AT G_POSITION_TABLE_ITAB.
    CHAIN.
      FIELD ZPTB00_BTAITEM-PR_ID.
      FIELD ZPTB00_BTAITEM-PSTYPE.
      FIELD ZPTB00_BTAITEM-WH_ID.
      FIELD ZPTB00_BTAITEM-AMOUNT.
      FIELD ZPTB00_BTAITEM-CURRENCY.
      FIELD ZPTB00_BTAITEM-QUANTITY.
      FIELD ZPTB00_BTAITEM-UNIT.
      FIELD ZPTB00_BTAITEM-MARK
      MODULE POSITION_TABLE_MODIFY ON CHAIN-REQUEST.
    ENDCHAIN.
    FIELD ZPTB00_BTAITEM-MARK
    MODULE POSITION_TABLE_MARK ON REQUEST.
  ENDLOOP.
  MODULE POSITION_TABLE_USER_COMMAND.
*&SPWIZARD: MODULE POSITION_TABLE_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE POSITION_TABLE_CHANGE_COL_ATTR.

  MODULE user_command_0100.