From 5d69392c17731b8f60fb474002bb45af9bbae9bc Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <Stieber.external@infineon.com>
Date: Wed, 16 Oct 2024 10:33:59 -0700
Subject: [PATCH] added logic to RDS_ACTIONS to block the removal of the
 reactor number

---
 LSL2/STPROC/RDS_ACTIONS.txt | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/LSL2/STPROC/RDS_ACTIONS.txt b/LSL2/STPROC/RDS_ACTIONS.txt
index 103324f..49493d8 100644
--- a/LSL2/STPROC/RDS_ACTIONS.txt
+++ b/LSL2/STPROC/RDS_ACTIONS.txt
@@ -640,6 +640,9 @@ WRITE_RECORD_PRE:
     RDSNo    = Name
     RDSKeyID = Name
     
+    OrigReactor = OrigRecord<RDS_REACTOR$>
+    NewReactor  = Record<RDS_REACTOR$>
+    
     // Verify / Pre-Epi Signature
     OrigVerSig      = Trim(OrigRecord<RDS_PRE_EPI_SIG$>)
     OrigVerDate     = Trim(OrigRecord<RDS_PRE_EPI_SIG_DATE$>)
@@ -718,6 +721,21 @@ WRITE_RECORD_PRE:
     Override = Override_Services('GetOverride', 'RDS', RDSNo, 'UNLOAD_DTM')
 
     Begin Case
+    	
+    	Case  ( (OrigLoadSig NE '') and (OrigReactor NE NewReactor) )
+            LogData    = ''
+            LogData<1> = LoggingDTM
+            LogData<2> = @USER4
+            LogData<3> = RDSKeyID
+            LogData<4> = 'Reactor number cannot be changed or removed once the load signature is set!'
+            Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
+            
+            // User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
+            Error_Services('Add', 'Reactor number cannot be changed or removed once the load signature is set!')
+            OrigFileError = 104:': Reactor number cannot be changed or removed once the load signature is set!'
+            Status        = 0
+            Record        = ''
+            ActionFlow    = ACTION_STOP$            
         
         Case ( (OrigVerSig NE '')  and (NewVerSig EQ '') ) or ( (OrigVerDate NE '') and (NewVerDate EQ '') ) |
             or ( (OrigVerTime NE '') and (NewVerTime EQ '') ) or ( (NewVerDate EQ '')  and (NewVerTime NE '') ) |
@@ -726,6 +744,7 @@ WRITE_RECORD_PRE:
             LogData<1> = LoggingDTM
             LogData<2> = @USER4
             LogData<3> = RDSKeyID
+            LogData<4> = 'Signature data cannot be removed!'
             Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)       
             
             // User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
@@ -743,6 +762,7 @@ WRITE_RECORD_PRE:
             LogData<1> = LoggingDTM
             LogData<2> = @USER4
             LogData<3> = RDSKeyID
+            LogData<4> = 'Signature datetime is greater than current datetime!'
             Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)       
             
             Error_Services('Add', 'Signature datetime is greater than current datetime!')
@@ -763,6 +783,7 @@ WRITE_RECORD_PRE:
             LogData<1> = LoggingDTM
             LogData<2> = @USER4
             LogData<3> = RDSKeyID
+            LogData<4> = 'Signature datetime is less than a previous signature datetime!'
             Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)       
             
             Error_Services('Add', 'Signature datetime is less than a previous signature datetime!')
@@ -777,6 +798,7 @@ WRITE_RECORD_PRE:
             LogData<1> = LoggingDTM
             LogData<2> = @USER4
             LogData<3> = RDSKeyID
+            LogData<4> = 'Cassette runtime exceeds three days!'
             Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)       
             
             Error_Services('Add', 'Cassette runtime exceeds three days!')
@@ -983,3 +1005,4 @@ Restore_System_Variables:
 
 return
 
+