REPORT ZSOURCE1504.
* Work areas
TABLES BOOKINGS.
* Reading data
GET BOOKINGS.
WRITE / BOOKINGS-FLDATE.
REPORT ZSOURCE1503.
* Work area
TABLES BOOKINGS.
* Initial processing
START-OF-SELECTION.
WRITE / ‘Start’.
* Reading data
GET BOOKINGS.
WRITE: AT /3 BOOKINGS-FLDATE.
* Final processing
END-OF-SELECTION.
WRITE / ‘Finished’.
REPORT ZSOURCE1502.
* Work areas
TABLES: CUSTOMERS, BOOKINGS.
* Reading data
GET CUSTOMERS.
WRITE / CUSTOMERS-NAME.
GET BOOKINGS.
WRITE: AT /3 BOOKINGS-FLDATE.
REPORT ZSOURCE1501.
* Work areas
TABLES: CUSTOMERS, BOOKINGS.
* Reading data
SELECT * FROM CUSTOMERS.
WRITE / CUSTOMERS-NAME.
SELECT * FROM BOOKINGS
WHERE CUSTOMID = CUSTOMERS-ID
AND FLDATE > ’19990501′
AND ORDER_DATE = ’19990101′.
WRITE: AT /3 BOOKINGS-FLDATE.
ENDSELECT.
ENDSELECT.
