8.4 Code SEQ_DSTP

L10:(* -------------------------------- init ------------------------------------------- *)
(* Init Séquence *)
IF RAZ_SEQ THEN SEQ_DSTP.NUM_ETAPE :=0;END_IF;

(*RAZ DES VARIABLES*)
IF SEQ_DSTP.NUM_ETAPE = 0 THEN
    SEQ_DSTP.T_100MS := 0;
    SEQ_DSTP.T_1S := 0;
    SEQ_DSTP.CMD01 := 0; (* CMD *)
    SEQ_DSTP.CMD02 := 0; (* CMD *)
    SEQ_DSTP.CMD03 := 0; (* CMD *)
    SEQ_DSTP.INT01 := 0;  (*   *)
    SEQ_DSTP.INT02 := 0;  (*   *)
    SEQ_DSTP.ETAT01 := 0;  (*   *)
END_IF;
(*DEMARRAGE DE LA SEQUENCE*)
IF SEQ_DSTP.NUM_ETAPE = 0 THEN
    SEQ_DSTP.NUM_ETAPE := 10;
END_IF;
(*INCREMENTATION TEMPO*)
IF BIT_100ms AND SEQ_DSTP.T_100MS < 32766 THEN
    SEQ_DSTP.T_100MS := SEQ_DSTP.T_100MS + 1;
END_IF;
IF BIT_1s AND SEQ_DSTP.T_1S < 32766 THEN
    SEQ_DSTP.T_1S := SEQ_DSTP.T_1S + 1;
END_IF;
(*ETAPE DE PREPARATION AU DEMARRAGE*)
IF SEQ_DSTP.NUM_ETAPE = 10 THEN
    SEQ_DSTP.CMD01.00 := 0;    (*  *)
    SEQ_DSTP.CMD01.01 := 0;    (*  *)
    SEQ_DSTP.CMD01.02 := 0;    (*  *)
    SEQ_DSTP.CMD01.03 := 0;    (*  *)
    SEQ_DSTP.CMD01.04 := 0;    (*  *)
    SEQ_DSTP.CMD01.05 := 0;    (*  *)
    SEQ_DSTP.CMD01.06 := 0;    (*  *)
    SEQ_DSTP.CMD01.07 := 0;    (*  *)
    SEQ_DSTP.CMD01.08 := 0;    (*  *)
    SEQ_DSTP.CMD01.09 := 0;    (*  *)
    SEQ_DSTP.CMD01.10 := 0;    (*  *)
    SEQ_DSTP.CMD01.11 := 0;    (*  *)
    SEQ_DSTP.CMD01.12 := 0;    (*  *)
    SEQ_DSTP.CMD01.13 := 0;    (*  *)
    SEQ_DSTP.CMD01.14 := 0;    (*  *)
    SEQ_DSTP.CMD01.15 := 0;    (*  *)
    SEQ_DSTP.CMD02.00 := 0;    (*  *)
    SEQ_DSTP.CMD02.01 := 0;    (*  *)
    SEQ_DSTP.CMD02.02 := 0;    (*  *)
    SEQ_DSTP.CMD02.03 := 0;    (*  *)
    SEQ_DSTP.CMD02.04 := 0;    (*  *)
    SEQ_DSTP.CMD02.05 := 0;    (*  *)
    SEQ_DSTP.CMD02.06 := 0;    (*  *)
    SEQ_DSTP.CMD02.07 := 0;    (*  *)
    SEQ_DSTP.CMD02.08 := 0;    (*  *)
    SEQ_DSTP.CMD02.09 := 0;    (*  *)
    SEQ_DSTP.CMD02.10 := 0;    (*  *)
    SEQ_DSTP.CMD02.11 := 0;    (*  *)
    SEQ_DSTP.CMD02.12 := 0;    (*  *)
    SEQ_DSTP.CMD02.13 := 0;    (*  *)
    SEQ_DSTP.CMD02.14 := 0;    (*  *)
    SEQ_DSTP.CMD02.15 := 0;    (*  *)
    SEQ_DSTP.INT01 := 0;  (*  *)
    SEQ_DSTP.INT02 := 0;  (*  *)
    SEQ_DSTP.ETAT01 := 0;  (*  *)
    DES_DSTP.NOM_ETAPE := 'Attente lancement d un transfert';
    DES_DSTP.DESCRIP_TRANSITION := 'Attente marche et Conditions initiales';
    (*ATTENTE DMD RECUPERATION PROGRAMME*)
    IF Tjrs_0 THEN
        SEQ_DSTP.T_100MS := 0;
        SEQ_DSTP.T_1S := 0;
        SEQ_DSTP.NUM_ETAPE := 100;
    END_IF;
END_IF;
(*Etape 100 : Demande DSTP*)
IF SEQ_DSTP.NUM_ETAPE = 100 THEN
    GES_PROCEDE.DSTP_Dmd_sauvegarde_tous_programmes := 1;
    IF Tjrs_1 THEN
        SEQ_DSTP.T_100MS := 0;
        SEQ_DSTP.T_1S := 0;
        SEQ_DSTP.NUM_ETAPE := 110;
    END_IF;
END_IF;
(*Etape 110 : Attente demande prise en compte*)
IF SEQ_DSTP.NUM_ETAPE = 110 THEN
    IF GES_PROCEDE.DSTP_Dmd_sauvegarde_tous_programmes = 0 THEN
        SEQ_DSTP.T_100MS := 0;
        SEQ_DSTP.T_1S := 0;
        SEQ_DSTP.NUM_ETAPE := 10;
    END_IF;
END_IF;