phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added logic to RDS_ACTIONS to block the removal of the reactor number

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-16 10:33:59 -07:00
parent ce21313054
commit 5d69392c17
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
LSL2/STPROC/RDS_ACTIONS.txt
View File

@ -640,6 +640,9 @@ WRITE_RECORD_PRE:
RDSNo = Name RDSNo = Name
RDSKeyID = Name RDSKeyID = Name
OrigReactor = OrigRecord<RDS_REACTOR$>
NewReactor = Record<RDS_REACTOR$>
// Verify / Pre-Epi Signature // Verify / Pre-Epi Signature
OrigVerSig = Trim(OrigRecord<RDS_PRE_EPI_SIG$>) OrigVerSig = Trim(OrigRecord<RDS_PRE_EPI_SIG$>)
OrigVerDate = Trim(OrigRecord<RDS_PRE_EPI_SIG_DATE$>) OrigVerDate = Trim(OrigRecord<RDS_PRE_EPI_SIG_DATE$>)
@ -719,6 +722,21 @@ WRITE_RECORD_PRE:
Begin Case 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 '') ) | Case ( (OrigVerSig NE '') and (NewVerSig EQ '') ) or ( (OrigVerDate NE '') and (NewVerDate EQ '') ) |
or ( (OrigVerTime NE '') and (NewVerTime EQ '') ) or ( (NewVerDate EQ '') and (NewVerTime NE '') ) | or ( (OrigVerTime NE '') and (NewVerTime EQ '') ) or ( (NewVerDate EQ '') and (NewVerTime NE '') ) |
or ( (NewVerDate NE '') and (NewVerTime EQ '') ) or ( (NewVerDate NE '') and (NewVerTime EQ '') )
@ -726,6 +744,7 @@ WRITE_RECORD_PRE:
LogData<1> = LoggingDTM LogData<1> = LoggingDTM
LogData<2> = @USER4 LogData<2> = @USER4
LogData<3> = RDSKeyID LogData<3> = RDSKeyID
LogData<4> = 'Signature data cannot be removed!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) 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. // 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<1> = LoggingDTM
LogData<2> = @USER4 LogData<2> = @USER4
LogData<3> = RDSKeyID LogData<3> = RDSKeyID
LogData<4> = 'Signature datetime is greater than current datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Signature datetime is greater than current datetime!') Error_Services('Add', 'Signature datetime is greater than current datetime!')
@ -763,6 +783,7 @@ WRITE_RECORD_PRE:
LogData<1> = LoggingDTM LogData<1> = LoggingDTM
LogData<2> = @USER4 LogData<2> = @USER4
LogData<3> = RDSKeyID LogData<3> = RDSKeyID
LogData<4> = 'Signature datetime is less than a previous signature datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Signature datetime is less than a previous signature datetime!') Error_Services('Add', 'Signature datetime is less than a previous signature datetime!')
@ -777,6 +798,7 @@ WRITE_RECORD_PRE:
LogData<1> = LoggingDTM LogData<1> = LoggingDTM
LogData<2> = @USER4 LogData<2> = @USER4
LogData<3> = RDSKeyID LogData<3> = RDSKeyID
LogData<4> = 'Cassette runtime exceeds three days!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Cassette runtime exceeds three days!') Error_Services('Add', 'Cassette runtime exceeds three days!')
@ -983,3 +1005,4 @@ Restore_System_Variables:
return return