ABAP Report - Program Structure or Template

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

************************************************************************ * Program Name: * Author: * Creation Date: * Description: * Quality check: *----------------------------------------------------------------------* *======================================================================* * Change History Log *----------------------------------------------------------------------* * Date | Change ID | Name | Description | Initials *----------------------------------------------------------------------* * ************************************************************************   REPORT   *----------------------------------------------------------------------- * TABLE DEFINITIONS *----------------------------------------------------------------------- * TABLES: example.   *----------------------------------------------------------------------- * TYPES DEFINITIONS *----------------------------------------------------------------------- * TYPES: BEGIN OF texample, * example TYPE c, * END OF texample.   *----------------------------------------------------------------------- * TABLE TYPE DEFINITIONS *----------------------------------------------------------------------- * TYPES: ttexample TYPE STANDARD TABLE OF texample.   *----------------------------------------------------------------------- * DATA - WORKING FIELDS *----------------------------------------------------------------------- * DATA: example TYPE c.   *----------------------------------------------------------------------- * DATA - CONSTANTS *----------------------------------------------------------------------- * CONSTANTS:   *----------------------------------------------------------------------- * SELECTION SCREEN *----------------------------------------------------------------------- * SELECTION-SCREEN BEGIN OF BLOCK SCR WITH FRAME. * PARAMETERS: p_example TYPE CHAR255. * SELECTION-SCREEN END OF BLOCK SCR.   ************************************************************************ ************************** MAIN PROGRAM ******************************** ************************************************************************   *----------------------------------------------------------------------- * INITIALIZATION. *-----------------------------------------------------------------------   *----------------------------------------------------------------------- * AT SELECTION-SCREEN. *-----------------------------------------------------------------------   *----------------------------------------------------------------------- * AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_example. *-----------------------------------------------------------------------   *----------------------------------------------------------------------- * START-OF-SELECTION. *-----------------------------------------------------------------------   *----------------------------------------------------------------------- * END-OF-SELECTION. *-----------------------------------------------------------------------   ************************************************************************ ************************** SUBROUTINES ********************************* ************************************************************************

Read Dynamic Table using Fields Symbols

Below is the code snippet.

PARAMETERS p_bukrs TYPE bukrs.

DATA: dref TYPE REF TO data.

AT SELECTION-SCREEN ON p_bukrs.
  FIELD-SYMBOLS:
   TYPE STANDARD TABLE,
   TYPE ANY.

  CREATE DATA dref TYPE STANDARD TABLE OF t001.
  ASSIGN dref->* TO .

  SELECT * FROM t001 INTO TABLE .
  IF sy-subrc = 0.
    SORT  BY ('BUKRS').
    READ TABLE  ASSIGNING 
    WITH KEY ('BUKRS') = p_bukrs.
    IF sy-subrc <> 0.
      MESSAGE 'Invalid Comp. Code' TYPE 'E'.
    ENDIF.
  ENDIF.