Water Puzzle in SAP

...Previous

STEP8
How it works (Code Snippet)
Some of the conditions below may not trigger at all. But I have taken all the probabilities and included the same. 
This logic can be written in a different way too and here I have explained it in a simplest way.

*&---------------------------------------------------------------------*
*& Module Pool       ZTH_GLASS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM  zth_glass.
DATA : glass8(12) TYPE c,
       glass5(12) TYPE c,
       glass3(12) TYPE c.
DATA : ok_code TYPE sy-ucomm,
       flag TYPE c.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS'.
  IF flag IS INITIAL.
    glass8 = '8'.
  ENDIF.
  SET TITLEBAR 'WATER'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  flag = 'X'.
  CASE ok_code.
    WHEN 'MO85'.
      IF glass8 EQ 8.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 5.
          glass8 = glass8 - 5.
        ENDIF.
      ELSEIF glass8 EQ 7.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 5.
          glass8 = glass8 - 5.
        ENDIF.
      ELSEIF glass8 EQ 6.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 5.
          glass8 = glass8 - 5.
        ENDIF.
      ELSEIF glass8 EQ 5.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 5.
          glass8 = glass8 - 5.
        ENDIF.
      ELSEIF glass8 EQ 4.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 4.
          glass8 = glass8 - 4.
        ENDIF.
      ELSEIF glass8 EQ 3.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 2.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 2.
          glass8 = glass8 - 2.
        ENDIF.
      ELSEIF glass8 EQ 1.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 1.
          glass8 = glass8 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO83'.
      IF glass8 EQ 8.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 7.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 6.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 5.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 4.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 3.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass8 = glass8 - 3.
        ENDIF.
      ELSEIF glass8 EQ 2.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 2.
          glass8 = glass8 - 2.
        ENDIF.
      ELSEIF glass8 EQ 1.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 1.
          glass8 = glass8 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO53'.
      IF glass5 EQ 5.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass5 = glass5 - 3.
        ENDIF.
      ELSEIF glass5 EQ 4.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass5 = glass5 - 5.
        ENDIF.
      ELSEIF glass5 EQ 3.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 3.
          glass5 = glass5 - 3.
        ENDIF.
      ELSEIF glass5 EQ 2.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 2.
          glass5 = glass5 - 2.
        ENDIF.
      ELSEIF glass5 EQ 1.
        IF glass3 EQ 3.
        ELSEIF glass3 EQ 2.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 1.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass3 EQ 0.
          glass3 = glass3 + 1.
          glass5 = glass5 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO58'.
      IF glass5 EQ 5.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 5.
          glass5 = glass5 - 5.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 5.
          glass5 = glass5 - 5.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 5.
          glass5 = glass5 - 5.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 5.
          glass5 = glass5 - 5.
        ENDIF.
      ELSEIF glass5 EQ 4.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 4.
          glass5 = glass5 - 4.
        ENDIF.
      ELSEIF glass5 EQ 3.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 3.
          glass5 = glass5 - 3.
        ENDIF.
      ELSEIF glass5 EQ 2.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 2.
          glass5 = glass5 - 2.
        ENDIF.
      ELSEIF glass5 EQ 1.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 1.
          glass5 = glass5 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO35'.
      IF glass3 EQ 3.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ENDIF.
      ELSEIF glass3 EQ 2.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ENDIF.
      ELSEIF glass3 EQ 1.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO38'.
      IF glass3 EQ 3.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 3.
          glass3 = glass3 - 3.
        ENDIF.
      ELSEIF glass3 EQ 2.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 2.
          glass3 = glass3 - 2.
        ENDIF.
      ELSEIF glass3 EQ 1.
        IF glass8 EQ 8.
        ELSEIF glass8 EQ 7.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 6.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 5.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 4.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 3.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 2.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 1.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass8 EQ 0.
          glass8 = glass8 + 1.
          glass3 = glass3 - 1.
        ENDIF.
      ENDIF.
    WHEN 'MO35'.
      IF glass3 EQ 3.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 3.
          glass3 = glass3 - 3.
        ENDIF.
      ELSEIF glass3 EQ 2.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 2.
          glass3 = glass3 - 2.
        ENDIF.
      ELSEIF glass3 EQ 1.
        IF glass5 EQ 5.
        ELSEIF glass5 EQ 4.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 3.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 2.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 1.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ELSEIF glass5 EQ 0.
          glass5 = glass5 + 1.
          glass3 = glass3 - 1.
        ENDIF.
      ENDIF.
    WHEN 'CLER'.
      glass5 = 0.
      glass3 = 0.
      glass8 = 8.
    WHEN 'BACK'.
      SET SCREEN 0.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT.

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image