2.
INTERACTIVE REPORT (DRILL-DOWN REPORT
==================================================
events :
1.at line-selection : user clicks on the line of the report
2.at pf<key> : at the press of function keys (f1 to f12)
user executes the report
3.at user-command: the user gives the command to execute the
report
SY-LSIND : SYSTEM LIST INDEX : IT IS USED TO NAVIGATE
IN A INTERACTIVE REPORT
IF SY-LSIND = 0 IT IS FIRST REPORT KNOWN AS BASIC LIST.
IF SY-LSIND = 1 IT IS SECOND REPORT GENERATED FROM FRIST
IT IS KNOWN AS SECONDARY LIST NO 1
...
IF SY-LSIND = 20 (MAX LIST NO)
note: if user clicks on 20th secondary list it will go to
runtime error
HOTSPOT-ON : KEYWORD TO DISPLAY HAND ICON AS MOUSE POINTER.
HIDE<FIELD NAME> : IT IS USED TO PASS THE INPUT TO THE
NEXT REPORT IN THE INTERACTIVE REPORT.
==============================================
1.AT-LINE-SELECTION
*PROGRAM USING AT LINE-SELECTION
TABLES: LFA1, EKKO, EKPO. "LFA1: VENDOR TABLE, EKKO: PURCHASE ORDER TABLE, EKPO:
ITEMS TABLE
WRITE:/ 'VENDOR INFORMATION REPORT' COLOR 4.
ULINE.
SELECT * FROM LFA1.
WRITE:/ LFA1-LIFNR HOTSPOT ON, 20 LFA1-NAME1, 60 LFA1-LAND1.
HIDE LFA1-LIFNR.
ENDSELECT.
START-OF-SELECTION.
AT LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
WRITE:/ 'PURCHASE ORDER INFORMATION' COLOR 4.
ULINE.
SELECT * FROM EKKO WHERE LIFNR = LFA1-LIFNR.
WRITE:/ EKKO-EBELN HOTSPOT ON, 40 EKKO-AEDAT HOTSPOT ON.
HIDE EKKO-EBELN.
ENDSELECT.
WHEN 2.
WRITE:/ 'ITEMS DETAILS INFORMATION' COLOR 5.
ULINE.
SELECT * FROM EKPO WHERE EBELN = EKKO-EBELN.
WRITE:/ EKPO-EBELP, EKPO-MATNR.
ENDSELECT.
ENDCASE.
END-OF-SELECTION.
================================================================
*PROGRAM FOR AT PF-KEY
TABLES: KNA1, LFA1, MARA.
WRITE:/ 'F4: CUSTOMER INFO, F5: VENDOR INFO, F6: MATERIAL INFO, F13: EXIT'.
*F13: SHIFT+ F1
START-OF-SELECTION.
AT PF4.
WRITE:/ 'CUSTOMER INFORMATION REPORT' COLOR 6.
ULINE.
SELECT * FROM KNA1.
WRITE:/ KNA1-KUNNR, 20 KNA1-NAME1, 40 KNA1-LAND1.
ENDSELECT.
AT PF5.
WRITE:/ 'VENDOR INFORMATION REPORT' COLOR 4.
ULINE.
SELECT * FROM LFA1.
WRITE:/ LFA1-LIFNR, 20 LFA1-NAME1, 40 LFA1-LAND1.
ENDSELECT.
AT PF6.
WRITE:/ 'MATERIAL INFORMATION REPORT' COLOR 7.
ULINE.
SELECT * FROM MARA.
WRITE:/ MARA-MATNR.
ENDSELECT.
AT PF13.
LEAVE PROGRAM.
END-OF-SELECTION.
====================================================================
*PROGRAM FOR AT USER-COMMAND
TABLES: KNA1, LFA1, MARA.
WRITE:/ 'C01: CUSTOMER INFO, V01: VENDOR INFO, M01: MATERIAL INFO, EXI: EXIT'.
START-OF-SELECTION.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'C01'.
WRITE:/ 'CUSTOMER INFORMATION REPORT' COLOR 6.
ULINE.
SELECT * FROM KNA1.
WRITE:/ KNA1-KUNNR, 20 KNA1-NAME1, 40 KNA1-LAND1.
ENDSELECT.
WHEN 'V01'.
WRITE:/ 'VENDOR INFORMATION REPORT' COLOR 4.
ULINE.
SELECT * FROM LFA1.
WRITE:/ LFA1-LIFNR, 20 LFA1-NAME1, 40 LFA1-LAND1.
ENDSELECT.
WHEN 'M01'.
WRITE:/ 'MATERIAL INFORMATION REPORT' COLOR 7.
ULINE.
SELECT * FROM MARA.
WRITE:/ MARA-MATNR.
ENDSELECT.
WHEN 'EXI'.
LEAVE PROGRAM.
WHEN OTHERS.
WRITE:/ 'INVALID COMMAND EXECUTED'.
ENDCASE.
END-OF-SELECTION.
===========================================================
SY-UCOMM: SYSTEM IS CAPTURING THE COMMAND GIVEN BY THE USER
============================================================
(NOTE: 17TH,18TH 19TH CLASSES RECORDING IN DROPBOX)
==============================================================
NEXT CLASS : MENU PAINTER
============================================================
