Step 7 10 Werte ins DB eintragen

Hallo miteinander,

ich habe eine Anzeige mit dem KTP 600 projektiert bei der eine Zahl zwischen 1-10 eingegeben werden kann, durch drücken eines Buttons ( "db_hmi".Wert.uebernehmen ) , der zugewiesene Wert ausgegeben wird.
Die 10 Werte werden in einen Datenbaustein eingetragen.

Zum Beispiel: Wert 1
U "db_zahlen".zahl_5 // Taste 5
SPBN _005
L 5
T "db_hmi".ea_feld.eingabe // Eingabefeld
SET
R "db_zahlen".zahl_5
_005: NOP 0
//---------------
U "db_hmi".Wert.uebernehmen // Button Übernehmen
SPBN _101

L "db_hmi".ea_feld.eingabe
T "db_hmi".ea_feld.ausgabe
T "db_werte".Wert_1 // Datenbaustein für Werte

SET
R "db_hmi".Wert.uebernehmen

_101: NOP 0

Immer durch drücken des Buttons - "db_hmi".Wert.uebernehmen - wird - "db_hmi".ea_feld.ausgabe - ins - "db_werte".Wert_1 bzw "db_werte".Wert_2...."db_werte".Wert_10 eingetragen.

Ich habe es so gemacht:


U "db_hmi".Wert.uebernehmen
UN "hm_wert_2"
UN "hm_wert_3"
UN "hm_wert_4"
UN "hm_wert_5"
UN "hm_wert_6"
UN "hm_wert_7"
UN "hm_wert_8"
UN "hm_wert_9"
UN "hm_wert_10"
SPBN _101
L "db_hmi".ea_feld.eingabe
T "db_hmi".ea_feld.ausgabe
T "db_werte".Wert_1
SET
R "db_hmi".Wert.uebernehmen
S "hm_wert_2"

_101: U "db_hmi".Wert.uebernehmen
U "hm_wert_2"
UN "hm_wert_3"
UN "hm_wert_4"
UN "hm_wert_5"
UN "hm_wert_6"
UN "hm_wert_7"
UN "hm_wert_8"
UN "hm_wert_9"
UN "hm_wert_10"
SPBN _102
L "db_hmi".ea_feld.eingabe
T "db_hmi".ea_feld.ausgabe
T "db_werte".Wert_2
SET
R "db_hmi".Wert.uebernehmen
R "hm_wert_2"
S "hm_wert_3"
_102: U "db_hmi".Wert.uebernehmen
UN "hm_wert_2"
U "hm_wert_3"
UN "hm_wert_4"
UN "hm_wert_5"
UN "hm_wert_6"
UN "hm_wert_7"
UN "hm_wert_8"
UN "hm_wert_9"
UN "hm_wert_10"
SPBN _103
L "db_hmi".ea_feld.eingabe
T "db_hmi".ea_feld.ausgabe
T "db_werte".Wert_3
.
.
.

usw bis Wert 10 eingetragen wird.

Meine Variante ist ziemlich lang und kompliziert.
Gibt es eine andere bzw. einfache Lösung?

Simatic S7 - 300
600 Basic Mono PN

Vielen Dank

deadmeachine