56 lines
1.3 KiB
Plaintext
56 lines
1.3 KiB
Plaintext
=== FC 1004: DL_Einsprung [STL] ===
|
|
INTERFACE:
|
|
Input:
|
|
Bereich_DL : Int // Nur für Stammdaten =1!
|
|
ID : Int
|
|
Output:
|
|
Dyn.DB : Int
|
|
AR_Start : DInt
|
|
Error : Bool
|
|
InOut:
|
|
Temp:
|
|
Constant:
|
|
Return:
|
|
Ret_Val : Void
|
|
|
|
--- NW 1: Inittialisierung ---
|
|
L 0
|
|
T "Dyn.DB"
|
|
L DINT#0
|
|
T AR_Start
|
|
SET
|
|
S Error
|
|
|
|
|
|
--- NW 2: ID suchen ---
|
|
L ID
|
|
T "MW200"
|
|
|
|
CALL FC "DatenOut" (SSDB:=Bereich_DL, SSDW:=0, PARA:=16#0000, SEARCHDATEN:=P#M200.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:="MW196") // Eintrag lesen
|
|
|
|
L "MB199"
|
|
L 2#1111111 // Bit 7 ausblenden
|
|
AW
|
|
L 0 // Fehler vorhanden?
|
|
<>I // Ja
|
|
= Error
|
|
BEC
|
|
|
|
|
|
--- NW 3: Daten übergeben ---
|
|
L "MW224"
|
|
T "Dyn.DB" // Dyn.DB
|
|
L 0 // sinnvoller Wert ?
|
|
<=I // Nein !
|
|
S Error
|
|
BEC
|
|
|
|
L "MW226"
|
|
ITD
|
|
T AR_Start
|
|
|
|
|
|
--- NW 4: Ende ---
|
|
BE
|
|
|