sub test193a1 ()
select case stepcount
case 0
set newbtpdata = btpdata.documentElement.clonenode(true)
set corruptedSeg = newbtpdata.selectsinglenode("//application/tuningdata/segment")
S = corruptedSeg.text
T = clng("&H" & left(S,2))
corruptedSeg.text = right("00" & hex(T + 1),2) & right(S, len(S)-2)
B.Prepare newbtpdata.selectsinglenode("//tuningdata"),false
DisplayStep "prepare with corrupted btp file", "ok"

case 1
B.EngineeringProgramming Session
DisplayStep "download with an error", "selfcheck not ok"

case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub test193aG ()

strRequete = ""
strReponse = ""

select case stepcount
case 0
zone = globalZone
' set nonCorruptedSeg = btpdata.selectsinglenode("//application/tuningdata/segment").clonenode(true)
' set CorruptedSeg = btpdata.selectsinglenode("//application/tuningdata/segment")
set nonCorruptedSeg = btpdata.selectsinglenode("//application/segment").clonenode(true)
set CorruptedSeg = btpdata.selectsinglenode("//application/segment")
S = corruptedSeg.text
T = clng("&H" & left(S,2))
corruptedSeg.text = right("00" & hex(T + 1),2) & right(S, len(S)-2)
displayStep "modification of the source file", "ok"

case 1
set docDownCorrupt = reqDownLoadAll(listeRL(zone))
CorruptedSeg.parentnode.replaceChild nonCorruptedSeg, CorruptedSeg
displayStep "preparation of the xml document", "ok"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 3
set doc = reqEraseStatus()
etape()
CheckCode 0
DisplayStep "Erase Status", "718100"

case 4
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 5
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 6
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Download in progress ...", "..."

case 9
etape2(docDownCorrupt)
CheckOkErr
DisplayStep "Download with an error", "7402"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 12
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub test193aC ()

strRequete = ""
strReponse = ""

select case stepcount
case 0
zone = calibZone
set nonCorruptedSeg = btpdata.selectsinglenode("//application/tuningdata/segment").clonenode(true)
set CorruptedSeg = btpdata.selectsinglenode("//application/tuningdata/segment")
' set nonCorruptedSeg = btpdata.selectsinglenode("//application/segment").clonenode(true)
' set CorruptedSeg = btpdata.selectsinglenode("//application/segment")
S = corruptedSeg.text
T = clng("&H" & left(S,2))
corruptedSeg.text = right("00" & hex(T + 1),2) & right(S, len(S)-2)
displayStep "modification of the source file", "ok"

case 1
set docDownCorrupt = reqDownLoadAll(listeRL(zone))
CorruptedSeg.parentnode.replaceChild nonCorruptedSeg, CorruptedSeg
displayStep "preparation of the xml document", "ok"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 3
set doc = reqEraseStatus()
etape()
CheckCode 0
DisplayStep "Erase Status", "718100"

case 4
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 5
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 6
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Download in progress ...", "..."

case 9
etape2(docDownCorrupt)
CheckOkErr
DisplayStep "Download with an error", "7402"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 12
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193bG ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 2
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 8
DisplayStep "SelfCheck status", "718208"

case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193bC ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 2
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 4
DisplayStep "SelfCheck status", "718204"

case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193c ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 4
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
DisplayStep "SelfCheck status", "718202"

case 5
set doc = reqWriteLog0(&H22)
etape()
CheckOkErr
DisplayStep "Write Logzone", "7F3422"

case 6
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193dG ()

select case stepcount
case 0
zone = globalZone
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 6
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 7
set doc = reqDownload0(&H22, calibRL, calibAdr, maxDL, waitError)
etape()
CheckOkErr
DisplayStep "Download", "7F3422"

case 8
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

' case 9
' if zone = globalZone then
' strRequete = "_________________________________"
' strReponse = "_________________________________"
' DisplayStep "____________ Tuning ______________", "__________________________"
' zone = calibZone
' stepcount = -1
' end if

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193dC ()

select case stepcount
case 0
zone = calibZone
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 6
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 7
set doc = reqDownload0(&H22, calibRL, calibAdr, maxDL, waitError)
etape()
CheckOkErr
DisplayStep "Download", "7F3422"

case 8
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

' case 9
' if zone = globalZone then
' strRequete = "_________________________________"
' strReponse = "_________________________________"
' DisplayStep "____________ Tuning ______________", "__________________________"
' zone = calibZone
' stepcount = -1
' end if

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test193e ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, globalRL, waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck...", "718201"

case 6
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 8
DisplayStep "SelfCheck status", "718208"

case 7
set doc = reqDownload0(&H22, globalRL, softAdr, maxDL, waitError)
etape()
CheckOkErr
DisplayStep "Download", "7F3422"

case 8
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test204G ()

select case stepcount
case 0
zone = globalZone
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase..", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck...", "718201"

case 6
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop

case 8
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 9
set doc = reqCheckStatus()
etape()
CheckCode 0
DisplayStep "SelfCheck status", "718200"

case 10
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

' case 11
' if zone = globalZone then
' strRequete = "_________________________________"
' strReponse = "_________________________________"
' DisplayStep "____________ Tuning ______________", "__________________________"
' zone = calibZone
' stepcount = -1
' end if

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test204C ()

select case stepcount
case 0
zone = calibZone
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase..", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck...", "718201"

case 6
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode listeStatus(zone)
DisplayStep "SelfCheck status", "71820" & listeStatus(zone)

case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop

case 8
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 9
set doc = reqCheckStatus()
etape()
CheckCode 0
DisplayStep "SelfCheck status", "718200"

case 10
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

' case 11
' if zone = globalZone then
' strRequete = "_________________________________"
' strReponse = "_________________________________"
' DisplayStep "____________ Tuning ______________", "__________________________"
' zone = calibZone
' stepcount = -1
' end if

case else
continueTest = false

end select
end sub

''''''''''''''''''''