Modified REACT_RUN and RDS to align shift nomenclature
This commit is contained in:
committed by
Stieber Daniel (CSC FI SPS MESLEO)
parent
35027d4786
commit
9119e91998
@ -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
|
||||
|
||||
|
Reference in New Issue
Block a user