Filter
Top Products
5.4 Network Dedicated Instruction
5.4.34 MSEND instruction
5-257
ZP_MSEND
5
MODULE DEDICATED
INSTRUCTION
ZP_MSEND
[ST]
IF(X20=TRUE)THEN
MOVP(TRUE,H1000,Var_ControlData[0]);
(* Sets text as send data format *)
MOVP(TRUE,1,Var_ControlData[2]);
(* Sets transmission destination number *)
MOVP(TRUE,16,Var_ControlData[9]);
(* Sets send data length *)
MOVP(TRUE,7,Var_ControlData[10]);
(* Sets subject length *)
Int_Msg[0] := H6574; (* te *)
Int_Msg[1] := H7473; (* st *)
Int_Msg[2] := H616d; (* ma *)
Int_Msg[3] := H6c69; (* il *)
Int_Msg[4] := H6d20; (* m *)
Int_Msg[5] := H6573; (* se *)
Int_Msg[6] := H646e; (* nd *)
(* Sets subject *)
Int_Msg[7] := H7274; (* Er *)
Int_Msg[8] := H6f72; (* ro *)
Int_Msg[9] := H2072; (* r *)
Int_Msg[10] := H614d; (* Ma *)
Int_Msg[11] := H6863; (* ch *)
Int_Msg[12] := H6e69; (* in *)
Int_Msg[13] := H3165; (* e1 *)
Int_Msg[14] := H3020; (* 0 *)
Int_Msg[15] := H3130; (* 01 *)
(* Sets text *)
ZP_MSEND(TRUE,"U0",Var_ControlData,Int_Msg[0],Var_Result);
(* Sends e-mail *)
END_IF;
IF(Var_Result[0]=TRUE)THEN (* Execution finished *)
IF(Var_Result[1]=FALSE)THEN(* Normal completion *)
ELSE (* Error completion *)
END_IF;
END_IF;
(* Process on normal completion *)
(* Process on error completion *)