My Life in ABAP

Types : Begin of office_life,
              Coffe_break,
              Rest_in_restroom,
              Work,
            End    of office_life.

Types : Begin of small_happiness,
              chat,
              movie,
              gossip,
            End   of  small_happiness. 

Types : Begin of boredom,
              wake_up,
              wash_off,
              meals,
              work         Type Office_life,
              break        Type Small_happiness,
              work_out,
              sleep.
            End   of  boredom. 
          
Data : Present_life  Type          Boredom Occurs 0 with Header line,

         Another_day  Type          Boredom,
         Office           Type          Office_life,

         Rest             Type          Small_happiness,
          Gut              Type          Unknown.

Data : Illness         Type Ref to Dillusion,
         Jack_pot      Type Ref to Dillusion,
         Disaster       Type Ref to Dillusion.

   

Check illness     is initial.         "Usually never happens, Can't help being healthy..
Check Jack_pot  is initial.         "Should buy Lotto first..    
Check Disaster   is initial.         "Always happens in wrong places..

Loop at Present_life into Another_day.
 If not Gut is initial.
  Exit.
 Else.

   Move-corresponding Present_life-work  into Office. 

   Move-corresponding Present_life-break into Rest.
  Append Another_day to Present life.
 Endif.
Endloop.

   

결과는 언제나 무한 Loop...