GRID TEMPLETE 2022/01/09 #3. PBO / PAI

SCREEN 100 FLOW

PROCESS BEFORE OUTPUT.
 MODULE STATUS_0100.
 MODULE SETTING_ALV.

PROCESS AFTER INPUT.
 MODULE USER_EXIT_0100 AT EXIT-COMMAND.
 MODULE USER_COMMAND_0100.

INCLUDE PBO

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.

  SET PF-STATUS 'S100'.
  SET TITLEBAR 'T100'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  SETTING_ALV  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE SETTING_ALV OUTPUT.

  PERFORM SETTING_ALV_0100..

ENDMODULE.                 " SETTING_ALV  OUTPUT

INCLUDE PAI

*&---------------------------------------------------------------------*
*&      Module  USER_EXIT_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_EXIT_0100 INPUT.

CASE OK_CODE.
  WHEN 'BACK'.
    LEAVE TO SCREEN 0.
  WHEN 'EXIT'.
    LEAVE PROGRAM.
  WHEN 'CANC'.
    LEAVE PROGRAM.
ENDCASE.

ENDMODULE.                 " USER_EXIT_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

  CASE OK_CODE.

  ENDCASE.


ENDMODULE.                 " USER_COMMAND_0100  INPUT