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

fixed runtime error in MFS

Browse Source
This commit is contained in:
Infineon\StieberD
2024-10-09 16:33:12 -07:00
parent d786776905
commit 962b53db72
3 changed files with 66 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
LSL2/STPROC/REACT_RUN_ACTIONS.txt
View File

@ -297,15 +297,17 @@ READ_RECORD:
// OrigFileError = 100 : @FM : KeyID
// Status = 0
// Record = ''
If Num({SHIFT}) then
Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case
Case {SHIFT} EQ 1
Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$
Null
@ -329,15 +331,17 @@ READONLY_RECORD:
// OrigFileError = 100 : @FM : KeyID
// Status = 0
// Record = ''
If Num({SHIFT}) then
Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case
Case {SHIFT} EQ 1
Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$
Null
@ -348,15 +352,16 @@ return
WRITE_RECORD_PRE:
If Num({SHIFT}) then
Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case
Case {SHIFT} EQ 1
Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$
Null