Obsidean_VM/04-SIDEL/00 - MASTER/Source/source/mPDS_PA_Ctrl_Transfer.md

// Block Type: FC
// Block Number: 1884
// Original Network Languages: LAD

FUNCTION "mPDS_PA_Ctrl_Transfer" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_TEMP
  mPAmPDSContTr : Bool;
  mPAmPDSParTr : Bool;
  mPAmPDSAckTr : Bool;
  mAux : Int;
  count : Int;
END_VAR

  #_1 : Bool; // Auto-generated temporary
BEGIN

  // Network 1: count (Original Language: LAD)

  "count" := "mPDS_PA_Data"."mWritePAmPDS_Count";

  // Network 2: Start (Original Language: LAD)

  "mPAmPDSParTr" := Eq("count", 1);

  // Network 3: Ack (Original Language: LAD)

  "mPAmPDSAckTr" := Eq("count", 2);

  // Network 4: Ctrl Parameters (Original Language: LAD)

  IF "mPAmPDSParTr" THEN
    mPDS_PA_Ctrl_Parameters();
  END_IF;

  // Network 5: ACK_Transfer (Original Language: LAD)
  //   ACK_Transfer

  IF "mPAmPDSAckTr" THEN
    "mPDS_PA_Data"."Output_To_mPDS"."OUT_Block01" := INT#1;
  END_IF;

  // Network 6: Recipe Number Write To PDS (Original Language: LAD)

  IF "AUX TRUE" THEN
    "P_PDS_Recipe_Number" := "mPDS_PA_Data"."Output_To_mPDS"."gPAmPDSNumRecipe";
  END_IF;

END_FUNCTION