corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
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. |