corrade-nucleus-nucleons – Blame information for rev 20

Subversion Repositories:
Rev:
Rev Author Line No. Line
20 office 1 ***************************************
2 ** Program: EXAMPLE **
3 ** Author: Joe Byte, 07-Jul-2007 **
4 ***************************************
5  
6 REPORT BOOKINGS.
7  
8 * Read flight bookings from the database
9 SELECT * FROM FLIGHTINFO
10 WHERE CLASS = 'Y' "Y = economy
11 OR CLASS = 'C'. "C = business
12 (...)
13  
14 REPORT TEST.
15 WRITE 'Hello World'.
16  
17 USERPROMPT = 'Please double-click on a line in the output list ' &
18 'to see the complete details of the transaction.'.
19  
20  
21 DATA LAST_EOM TYPE D. "last end-of-month date
22  
23 * Start from today's date
24 LAST_EOM = SY-DATUM.
25 * Set characters 6 and 7 (0-relative) of the YYYYMMDD string to "01",
26 * giving the first day of the current month
27 LAST_EOM+6(2) = '01'.
28 * Subtract one day
29 LAST_EOM = LAST_EOM - 1.
30  
31 WRITE: 'Last day of previous month was', LAST_EOM.
32  
33 DATA : BEGIN OF I_VBRK OCCURS 0,
34 VBELN LIKE VBRK-VBELN,
35 ZUONR LIKE VBRK-ZUONR,
36 END OF I_VBRK.
37  
38 SORT i_vbrk BY vbeln ASCENDING.
39 SORT i_vbrk BY vbeln DESCENDING.
40  
41 RETURN.