 Classical Reports are reports which contain both selection-screen and output

screen.
 SAP ABAP is an event driven programming language, ABAP programs executed
based on events not line-by-line.

Events in Classical Reports

Below are the list and sequence of events available under classical reports, each event
has it`s own importance .
Load-of-praogram
This event is used to load program into memory for execution and this is the first event in
execution sequence.
Initialization
This event is used to initialize variables, screen default values and other default actions.
At Selection-Screen output
By using this event we can manipulate dynamic selection-screen changes.
At Selection-Screen on field
This event is used to validate a single selection-screen input parameter.

Syntax: AT SELECTION-SCREEN ON <parameter name>. "Validate a input parameter

At Selection-Screen on value request

This event is used to provide value help ( field help ) for a input field.

Syntax: AT SELECTION-SCREEN ON VALUE REQUEST FOR <parameter name>. "Input search h

elp for a input parameters

At Selection-Screen on help request

By using this event we can provide F1 help for a input field.

Syntax: AT SELECTION-SCREEN ON HELP REQUEST FOR <parameter name>. "Input (F1) help
for a input parameters

At Selection-Screen
This event is used to validate multiple input fields

Syntax: AT SELECTION-SCREEN . "used to validate multiple input fields

Start-of-Selection
This is default event which is used to write actual business logic.

Syntax: START-OF-SELECTION. "Default event

End-of-Selection
We can use this event just to state that start-of-selection is ended, this event is used with
logical databases, logical databases are in HR ABAP only. In normal ABAP we don`t
have much importance .

Syntax: END-OF-SELECTION . "Start of selection is ended

Top-of-Page
This event prints constant heading for all pages.

Syntax: TOP-OF-PAGE."Page heading

End-of-Page
This event prints constant footer for all pages.
Before using this event, we need to reserve some lines for displaying footer.

Syntax: END-OF-PAGE . "Page footer

Example: REPORT ZPROGRAM LINE-COUNT 27(3). " Here we reserve 3 lines for footer

REPORT ZSAPN_CLASSICAL_REPORT LINE-COUNT 34(2). "34 lines are for report space an
d 2 lines are for footer space
TABLES : MARA.
TYPES: BEGIN OF TY_MARA,
MATNR TYPE MARA-MATNR,
ERSDA TYPE MARA-ERSDA,
MTART TYPE MARA-MTART,
MBRSH TYPE MARA-MBRSH,
MATKL TYPE MARA-MATKL,
MEINS TYPE MARA-MEINS,
END OF TY_MARA.
DATA: IT_MARA TYPE TABLE OF TY_MARA. "material out put internal table
DATA: WA_MARA TYPE TY_MARA. " work area

DATA: LV_MTART TYPE MARA-MTART.

DATA: LV_START_TIME TYPE SY-UZEIT.
DATA: LV_END_TIME TYPE SY-UZEIT.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. "designs a block jus
t for design double click on TEXT-001 to add text

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR. " Material range input

PARAMETERS: P_MTART TYPE MARA-MTART. "material type input

SELECTION-SCREEN END OF BLOCK B1.

PARAMETERS P_DLOAD AS CHECKBOX USER-COMMAND UC1.
PARAMETERS P_FILE TYPE RLGRAP-FILENAME MODIF ID DLD.
PARAMETERS P_LIMIT TYPE I. "Limit no of rows to display to avoid the burden on dat
abase

LOAD-OF-PROGRAM. "loads program into memory

LV_START_TIME = SY-UZEIT. " see system variables www.sapnuts.com/resourse/system
-variable.html

INITIALIZATION. "triggers second

P_MTART = 'FERT'. "MATERIAL TYPE DEFAULT VALUE
P_LIMIT = '50'. "Limit rows to 50

AT SELECTION-SCREEN OUTPUT. "For dynamic modifications

IF P_DLOAD IS INITIAL.
LOOP AT SCREEN.
CHECK SCREEN-GROUP1 = 'DLD'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.

AT SELECTION-SCREEN ON P_MTART. " Validate single input field at selection-screen

is an alternative and good see http://www.sapnuts.com/courses/core-abap/classical-
reports/selection-screen-event.html

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MTART. "This event is not required here

will use in the next lesson
PERFORM MTART_VALUE_HELP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

PERFORM FILE_VALUE_HELP.

AT SELECTION-SCREEN ON HELP-REQUEST FOR P_MTART. " Provide help request F1 help.

PERFORM MTART_HELP.
AT SELECTION-SCREEN.
PERFORM VALIDATE_INPUTS.

START-OF-SELECTION.
PERFORM GET_MATERIALS.

END-OF-SELECTION.
LV_END_TIME = SY-UZEIT.
PERFORM DISPLAY_OUTPUT.
IF P_DLOAD = 'X'.
PERFORM DOWNLOAD_DATA.
ENDIF.

TOP-OF-PAGE.
WRITE: 'Material Details ' COLOR 2.

END-OF-PAGE.
WRITE:'The above materials are active materials available in database' COLOR 3.
WRITE: 'Start time'.
WRITE: LV_START_TIME.
WRITE: 'End time'.
WRITE: LV_END_TIME.

FORM VALIDATE_INPUTS.
IF S_MATNR IS INITIAL OR P_MTART IS INITIAL.

MESSAGE 'Please enter required inputs' TYPE 'E'.

ELSE.

***Validate material type is valid or not

SELECT MTART FROM MARA INTO LV_MTART
UP TO 1 ROWS WHERE MTART = P_MTART.
 ENDSELECT.
IF LV_MTART IS INITIAL.
MESSAGE 'Material type is not available in MARA' TYPE 'E'.
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_INPUTS

FORM GET_MATERIALS.
SELECT MATNR ERSDA MTART MBRSH MATKL MEINS FROM MARA
INTO TABLE IT_MARA
UP TO P_LIMIT ROWS
WHERE MATNR IN S_MATNR AND MTART = P_MTART.

ENDFORM. " GET_MATERIALS

FORM DISPLAY_OUTPUT .
IF IT_MARA IS NOT INITIAL.
LOOP AT IT_MARA INTO WA_MARA.

WRITE :/ WA_MARA-MATNR, WA_MARA-ERSDA, WA_MARA-MTART, WA_MARA-MBRSH, WA_MARA

-MATKL, WA_MARA-MEINS .

ENDLOOP.
ELSE.
WRITE :'No Data Found for your Query'.
ENDIF.
ENDFORM. " DISPLAY_OUTPUT

FORM MTART_HELP.
MESSAGE 'Enter a Material Type ' TYPE 'I'.
ENDFORM. " MTART_HELP

FORM MTART_VALUE_HELP.
MESSAGE 'Material type input ex: FERT' TYPE 'I'.
ENDFORM. " MTART_VSLUE_HELP
FORM DOWNLOAD_DATA .
DATA : LV_FILE TYPE STRING .
LV_FILE = P_FILE .
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
FILENAME = LV_FILE
FILETYPE = 'ASC'
* APPEND = ' '
WRITE_FIELD_SEPARATOR = 'X'
* HEADER = '00'
* TRUNC_TRAILING_BLANKS = ' '
* WRITE_LF = 'X'
* COL_SELECT = ' '
* COL_SELECT_MASK = ' '
* DAT_MODE = ' '
* CONFIRM_OVERWRITE = ' '
* NO_AUTH_CHECK = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* WRITE_BOM = ' '
* TRUNC_TRAILING_BLANKS_EOL = 'X'
* WK1_N_FORMAT = ' '
* WK1_N_SIZE = ' '
* WK1_T_FORMAT = ' '
* WK1_T_SIZE = ' '
* WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE
* SHOW_TRANSFER_STATUS = ABAP_TRUE
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = IT_MARA
* FIELDNAMES =
* EXCEPTIONS
* FILE_WRITE_ERROR = 1
* NO_BATCH = 2
* GUI_REFUSE_FILETRANSFER = 3
* INVALID_TYPE = 4
* NO_AUTHORITY = 5
* UNKNOWN_ERROR = 6
* HEADER_NOT_ALLOWED = 7
* SEPARATOR_NOT_ALLOWED = 8
* FILESIZE_NOT_ALLOWED = 9
* HEADER_TOO_LONG = 10
* DP_ERROR_CREATE = 11
* DP_ERROR_SEND = 12
* DP_ERROR_WRITE = 13
* UNKNOWN_DP_ERROR = 14
* ACCESS_DENIED = 15
* DP_OUT_OF_MEMORY = 16
* DISK_FULL = 17
* DP_TIMEOUT = 18
* FILE_NOT_FOUND = 19
* DATAPROVIDER_EXCEPTION = 20
* CONTROL_FLUSH_ERROR = 21
* OTHERS = 22
.
IF SY-SUBRC = 0.
WRITE :/ 'Data downloaded to'.
WRITE:P_FILE.
ENDIF.

ENDFORM. " DOWNLOAD_DATA

FORM FILE_VALUE_HELP.

CALL FUNCTION 'F4_FILENAME'

EXPORTING
FIELD_NAME = 'P_FILE'
IMPORTING
FILE_NAME = P_FILE.
ENDFORM. " FILE_VALUE_HELP

At Selection Screen output is a selection-screen event, which is used to manipulate

dynamic changes on selection-screen.
Loop At Screen. Screen is structure with Name, Group1, Group2, Group3, Group4,
invisible, active, intensified etc fields, this holds the screen information at run time, Loop
at Screen...Endloop. is used to loop through screen elements, and based on the values
in above structure (SCREEN) we can manipulate changes.
MODIF ID : MODIF ID is a three character id (without quotes), we can process a screen
elements group using this MODIF ID, this will be stored in SCREEN-GROUP1.
All Screen modifications should be done under AT SELECTION-SCREEN OUTPUT event only.
MODIFY SCREEN is keyword which is used to apply screen modification.
The below is the sample code for dynamic screen modification .

When ever we check enable input field check box, one input field will be enabled.

REPORT ZSPN_SELECTION_SCREEN_OUTPUT.
PARAMETERS P_ENABLE AS CHECKBOX USER-COMMAND UC1.
PARAMETERS: INPUT(5) TYPE C MODIF ID IN1 . "Based on modif id we will perform dyna
mic operations

AT SELECTION-SCREEN OUTPUT.
 LOOP AT SCREEN.
IF P_ENABLE = 'X' . " If check box is selected
IF SCREEN-GROUP1 = 'IN1' .
SCREEN-ACTIVE = 1.
MODIFY SCREEN.
ENDIF.
ELSE.
IF SCREEN-GROUP1 = 'IN1' .
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.

At selection screen on the field and at selection screen are selection-screen events
which are used for input validations in SAP report programming.

At Selection Scteen on Field At Selection Screen

This event is used to validate a single input field. This event is used to validate multiple input

If we this event, if any, error the error field will be By using this event, the error field is heighte
highlighted and the remaining fields will be disabled. all the remaining fields will be enabled.

Example to explain At Selection-Screen on the field and At Selection-Screen

difference.
In the below example we are going to validate two input fields and we will see the
difference in screen behavior.
At Selection Screen At Selection S

REPORT ZSPN_SELECTION_SCREEN_EVENT. REPORT ZSPN_S

PARAMETERS P_FIELD1 TYPE CHAR10 . PARAMETERS P_F
PARAMETERS P_FIELD2 TYPE CHAR10. PARAMETERS P_F

AT SELECTION-SCREEN. AT SELECTION-S
IF P_FIELD1 IS INITIAL. IF P_FIELD1
MESSAGE 'Please enter field1' TYPE 'E'. MESSAGE 'P
ENDIF. ENDIF.
IF P_FIELD2 IS INITIAL. AT SELECTION-S
MESSAGE 'Please enter field2' TYPE 'E'. IF P_FIELD2
ENDIF. MESSAGE 'P
ENDIF.

After error message both input fields are enabled for input. After error mes
heightened .
Most of the times in real-time business requirements we need to set default values on
selection-screen elements like input fields, check boxes, select-options, radio buttons
etc. We use the initialization event to set default values on selection screen.

REPORT ZSAPN_INITIALIZATION.
TABLES: MARA. "tables decleration for select-options
PARAMETERS : P_INPUT TYPE CHAR20. "Inputfied with 20 character length.

SELECT-OPTIONS: S_SO FOR MARA-MATNR. "select-options

PARAMETERS P_CHK AS CHECKBOX. "check box

PARAMETERS P_RAD1 RADIOBUTTON GROUP RB1.

PARAMETERS P_RAD2 RADIOBUTTON GROUP RB1.

By using the above code we can display the below screen.

But we need to set default values to the input field, select-options(High, low), check
box(default select), select radio button default.

Set Default values for parameters using INITIALIZATION

The below example explains you how to set default values using INITIALIZATION event
to set default values on selection screen.

INITIALIZATION. "This event will trigger first

P_INPUT = 'SAPNuts'.

Set default values for Select-Options using  initialization event

Technically select-options are nothing but internal tables with four fields, the four fields
are SIGN(Stores I - Inclusive of Defined Values/Range and E - Exclusive of Defined
Values/Range, OPTION(Stores EQ - Equal, NE- Not Equal, LT - Lower Than, LE -
Lower Equal, GT - Greater Than, GE - Greater Equal, BT - Between, CP - Covers
Pattern and NP - Does Not Cover Pattern,LOW(Stores low value), HIGH(Stores high
value), the below code is used to set default values for select-options.

INITIALIZATION.
S_SO-LOW = '1'.
S_SO-OPTION = 'BT'.
S_SO-SIGN = 'I'.
S_SO-HIGH = '100'.
APPEND S_SO. " append select-options to screen

Set Default values for check box and radio buttons group
Check box and radio buttons store either X or space, X means selected, space means
not selected, use the below code to default check box and radio buttons.

INITIALIZATION.
P_CHK = 'X'.
P_RAD2 = 'X'.

The final code will be

REPORT ZSAPN_INITIALIZATION.
TABLES : MARA. "tables decleration for select-options
PARAMETERS: P_INPUT TYPE CHAR20. "Input fied with 20 character length.

SELECT-OPTIONS: S_SO FOR MARA-MATNR. "select-options

PARAMETERS P_CHK AS CHECKBOX. "check box

PARAMETERS P_RAD1 RADIOBUTTON GROUP RB1.

PARAMETERS P_RAD2 RADIOBUTTON GROUP RB1.

INITIALIZATION.

P_INPUT = 'SAPNuts'.
S_SO-LOW = '1'.
S_SO-OPTION = 'BT'.
S_SO-SIGN = 'I'.
S_SO-HIGH = '100'.
APPEND S_SO.
P_CHK = 'X'.