*&---------------------------------------------------------------------*
*& 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.
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.
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.
ENDIF.
ELSEIF glass8 EQ 1.
IF glass5 EQ 5.
ELSEIF glass5 EQ 4.
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.
ENDIF.
ELSEIF glass8 EQ 1.
IF glass3 EQ 3.
ELSEIF glass3 EQ 2.
glass3 = glass3 + 1.
glass8 = glass8 - 1.
ENDIF.
ENDIF.
WHEN 'MO53'.
IF glass5 EQ 5.
IF glass3 GE 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 GE 3.
ELSEIF glass3 EQ 2.
glass3 = glass3 + 1.
glass5 = glass5 - 1.
ELSEIF glass3 EQ 1.
glass3 = glass3 + 2.
glass5 = glass5 - 2.
ENDIF.
ELSEIF glass5 EQ 3.
IF glass3 GE 3.
ELSEIF glass3 EQ 2.
glass3 = glass3 + 1.
glass5 = glass5 - 1.
ELSEIF glass3 EQ 1.
glass3 = glass3 + 2.
glass5 = glass5 - 2.
ENDIF.
ELSEIF glass5 EQ 2.
ELSEIF glass5 EQ 1.
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
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
4 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
1 | |
1 | |
1 |