REPORT why_you_should_choose_me NO STANDARD PAGE HEADING.
* Initial constants to be set
CONSTANTS: lc_lubos_adamka(12) TYPE c VALUE 'Lubos Adamka'.
* My Experience in ABAP coding
PARAMETERS: p_work_since TYPE sy-datum DEFAULT '20060216'.
* Experience in coding in ABAP since 16th Feb 2006
DO p_nr_working_days TIMES.
* getting new challenges from different customers
SELECT *
FROM daily_tasks
INTO lt_daily_task
WHERE developer EQ lc_lubos_adamka
AND date GE p_work_since.
* Check if there is something to do for today (most probably there is something)
CHECK sy-subrc = 0.
* Every single day helping clients to improve their business
IF lt_daily_tasks[] IS NOT INITIAL.
* Use my best ideas to solve problems and deliver best solutions
SELECT *
FROM my_brain AS brain
INNER JOIN plenty_of_experience AS my_experience
ON brain~is_best solution = my_experience~is_best_solution
INTO CORRESPONDING FIELDS OF TABLE right_and_best_solutions
FOR ALL ENTRIES IN lt_daily_tasks
WHERE solution EQ best_fit
AND task EQ daily_tasks-task.
* All deliverables should be provided in high quality and in given time frame
IF sy-subrc EQ 0.
LOOP AT right_and_best_solutions ASSIGNING <fs_right_solutions>.
PERFORM delivery TABLES lt_daily_tasks
right_and_best_solutions
USING lc_very_fast
CHANGING satisfaction.
* If the client is satisfied I am satisfied too
CHECK satisfaction EQ 'HIGH'.
* Output my happiness
WRITE: /n 'This is the reason why I am doing this job and why you should choose me ;)'.
ENDLOOP.
ENDIF.
ENDIF.
ENDDO.