*&---------------------------------------------------------------------* *& Report ZASG_YOURNAME_DP * *& * *&---------------------------------------------------------------------* *& * *& * *&---------------------------------------------------------------------* REPORT ZASG_YOURNAME_DP MESSAGE-ID Z_MESSAGE_YOURNAME . TABLES ZASG_YOURNAME. SELECTION-SCREEN BEGIN OF BLOCK OPTIONS WITH FRAME TITLE OP1. PARAMETERS R1 RADIOBUTTON GROUP FLAG. PARAMETERS R2 RADIOBUTTON GROUP FLAG DEFAULT 'X'. PARAMETERS S_CURREY TYPE ZASG_YOURNAME-CURRENCY DEFAULT 'USD'. SELECT-OPTIONS S_HKEARN FOR ZASG_YOURNAME-HKEARNING DEFAULT '1.00' TO '9999.90'. SELECT-OPTIONS S_CARRID FOR ZASG_YOURNAME-CARRID DEFAULT 'AA' TO 'UA' . SELECT-OPTIONS S_PLTYPE FOR ZASG_YOURNAME-PLANETYPE DEFAULT '747-400' . SELECTION-SCREEN END OF BLOCK OPTIONS. TYPES: BEGIN OF RESULT, PLANETYPE TYPE ZASG_YOURNAME-PLANETYPE, FLTIME TYPE ZASG_YOURNAME-FLTIME, CARRNAME TYPE ZASG_YOURNAME-CARRNAME, CONNID TYPE ZASG_YOURNAME-CONNID, CUSTOMID TYPE ZASG_YOURNAME-CUSTOMID, HKEARNING TYPE ZASG_YOURNAME-HKEARNING, END OF RESULT. DATA CHKFLAG TYPE ZASG_YOURNAME-H_FLAG. DATA ITAB TYPE TABLE OF RESULT. DATA WA TYPE RESULT. if r1 = 'X'. CHKFLAG = 'X'. WRITE: / 'Report on ZASG_YOURNAME FOR H_Flag set'. ELSE. CHKFLAG = ''. WRITE: / 'Report on ZASG_YOURNAME FOR H_Flag not set'. ENDIF. SELECT PLANETYPE FLTIME CARRNAME CONNID CUSTOMID HKEARNING INTO TABLE ITAB FROM ZASG_YOURNAME WHERE ZASG_YOURNAME~H_FLAG = CHKFLAG AND ZASG_YOURNAME~CURRENCY = S_CURREY AND ZASG_YOURNAME~HKEARNING IN S_HKEARN AND ZASG_YOURNAME~CARRID IN S_CARRID AND ZASG_YOURNAME~PLANETYPE IN S_PLTYPE. IF SY-SUBRC = 4. MESSAGE i001 WITH 'ZASG_YOURNAME'. ELSEIF SY-SUBRC <> 0. MESSAGE i000. ELSE. SORT ITAB BY CONNID ASCENDING CUSTOMID ASCENDING HKEARNING DESCENDING FLTIME ASCENDING . LOOP AT ITAB INTO WA. ULINE. WRITE: / 'Plane Type:', 14(10) WA-PLANETYPE. WRITE: / 'Flight Time:', 16(10) WA-FLTIME. WRITE: / 'Airline:', 10(20) WA-CARRNAME. WRITE: / 'Flight No.:', 13(8) WA-CONNID. WRITE: / 'Customer Number:', 16(8) WA-CUSTOMID NO-ZERO. WRITE: / 'Earning in HK$:', 22(15) WA-HKEARNING. ENDLOOP. ENDIF. ULINE. WRITE 'End of Report'. INITIALIZATION. OP1 = 'Select Option'.