Modified REACT_RUN and RDS to align shift nomenclature

This commit is contained in:
Infineon\StieberD
2024-10-09 15:30:08 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 35027d4786
commit 9119e91998
5 changed files with 116 additions and 11 deletions

View File

@ -565,6 +565,20 @@ READ_RECORD:
// OrigFileError = 100 : @FM : KeyID
// Status = 0
// Record = ''
If Num({SHIFT}) then
Begin Case
Case {SHIFT} EQ 1
Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Record<RDS_SHIFT$> = 'D'
Case Otherwise$
Null
End Case
end
return
@ -583,10 +597,41 @@ READONLY_RECORD:
// OrigFileError = 100 : @FM : KeyID
// Status = 0
// Record = ''
If Num({SHIFT}) then
Begin Case
Case {SHIFT} EQ 1
Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Record<RDS_SHIFT$> = 'D'
Case Otherwise$
Null
End Case
end
return
WRITE_RECORD_PRE:
If Num({SHIFT}) then
Begin Case
Case {SHIFT} EQ 1
Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2
Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3
Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4
Record<RDS_SHIFT$> = 'D'
Case Otherwise$
Null
End Case
end
SaveRecord = Record
RDSNo = Name
RDSKeyID = Name