PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
  MODULE tabstrip_active_tab_set.
  CALL SUBSCREEN:
       9001_sca INCLUDING g_tabstrip-prog '9001',
       9002_sca INCLUDING g_tabstrip-prog '9002',
       9003_sca INCLUDING g_tabstrip-prog '9003'.
*       9004_sca INCLUDING g_tabstrip-prog '9004'.
  MODULE cont0.
  MODULE status_9000.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
  CALL SUBSCREEN:
       9001_sca,
       9002_sca,
       9003_sca.

  MODULE user_command_9000.
  MODULE tabstrip_active_tab_get.