BEGIN PGM READ_MP MM 
;+++Lesen von MPs aus Tabelle MPxxxx.MP ++++
DECLARE STRING QS1 = ""
;
FN 9: IF +Q0 EQU +7441 GOTO LBL 200
FN 9: IF +Q0 EQU +6585 GOTO LBL 201
FN 9: IF +Q0 EQU +6586 GOTO LBL 202
FN 9: IF +Q0 EQU +7475 GOTO LBL 203
FN 9: IF +Q0 EQU +6162 GOTO LBL 204
FN 9: IF +0 EQU +0 GOTO LBL 399
;
;
;+++Lesen von MP6162 aus Tabelle MPxxxx.MP ++++
LBL 204
QS1 = "MP6162"
CALL LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 398
;
;
;+++Lesen von MP7475 aus Tabelle MPxxxx.MP ++++
LBL 203
QS1 = "MP7475/Bit0"
CALL LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 398
;
;
;
;+++Lesen von MP6586 aus Tabelle MPxxxx.MP ++++
LBL 202
QS1 = "MP6586.5"
CALL LBL 100
Q985 = +Q980
QS1 = "MP6586.4"
CALL LBL 100
Q984 = +Q980
QS1 = "MP6586.3"
CALL LBL 100
Q983 = +Q980
QS1 = "MP6586.2"
CALL LBL 100
Q982 = +Q980
QS1 = "MP6586.1"
CALL LBL 100
Q981 = +Q980
QS1 = "MP6586.0"
CALL LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 398
;
;+++Lesen von MP6585 aus Tabelle MPxxxx.MP ++++
LBL 201
QS1 = "MP6585/Bit5"
CALL LBL 100
Q985 = +Q980
QS1 = "MP6585/Bit4"
CALL LBL 100
Q984 = +Q980
QS1 = "MP6585/Bit3"
CALL LBL 100
Q983 = +Q980
QS1 = "MP6585/Bit2"
CALL LBL 100
Q982 = +Q980
QS1 = "MP6585/Bit1"
CALL LBL 100
Q981 = +Q980
QS1 = "MP6585/Bit0"
CALL LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 398
;
;+++Lesen von MP7441 aus Tabelle MPxxxx.MP ++++
LBL 200
QS1 = "MP7441/Bit2"
CALL LBL 100
Q982 = +Q980
QS1 = "MP7441/Bit1"
CALL LBL 100
Q981 = +Q980
QS1 = "MP7441/Bit0"
CALL LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 398
;
;
LBL 100
SQL BIND Q980 "MPxxxx.VALUE"
SQL Q1 "SELECT VALUE FROM MPxxxx WHERE NAME LIKE ':'QS1''"
SQL FETCH Q0 HANDLE Q1
FN 10: IF +Q0 NE +0 GOTO LBL 399
SQL ROLLBACK Q0 HANDLE Q1
FN 10: IF +Q0 NE +0 GOTO LBL 399
SQL BIND Q980
LBL 0
;
LBL 399
FN 14: ERROR= 1004
LBL 398
END PGM READ_MP MM 
