Modified REACT_RUN and RDS to align shift nomenclature

LSL2/APPROW/LISTBOX_CONFIG%003ASHIFT.json

@@ -0,0 +1,19 @@
+{
+    "header": {
+        "version": 1,
+        "type": "record",
+        "approw-key": "SHIFT"
+    },
+    "body": {
+        "record1": {
+            "<1>": {
+                "<1,1>": "A",
+                "<1,2>": "B",
+                "<1,3>": "C",
+                "<1,4>": "D",
+                "<1,5>": "None"
+            },
+            "<2>": "1"
+        }
+    }
+}

LSL2/STPROC/COMM_RDS.txt

@@ -2389,7 +2389,7 @@ SAPSign:
     CurrDt = Date()
     CurrTm = Time()
     
-    Set_Property(@WINDOW:'.SHIFT','DEFPROP',1)
+    Set_Property(@WINDOW:'.SHIFT','DEFPROP', 'A')
     
     Send_Event(@WINDOW,'WRITE')
     
@@ -2921,3 +2921,4 @@ return
 
 
 
+

LSL2/STPROC/COPY_REACT_RUN_RECORD_TO_SQL.txt

@@ -53,7 +53,7 @@ DataFields := "SPIKES"              :@VM:SQL_Format(Rec(REACT_RUN_SPIKES$),
 Convert '/' to '?' in Rec(REACT_RUN_SPECIAL_INST$)
 DataFields := "SPECIAL_INST"        :@VM:SQL_Format(Rec(REACT_RUN_SPECIAL_INST$),           "STR", 1):@FM
 DataFields := "REACT_IDLE_TIME"     :@VM:SQL_Format(Rec(REACT_RUN_REACT_IDLE_TIME$),        "DEC", "2"):@FM
-DataFields := "SHIFT"               :@VM:SQL_Format(Rec(REACT_RUN_SHIFT$),                  "INT"):@FM
+DataFields := "SHIFT"               :@VM:SQL_Format(Rec(REACT_RUN_SHIFT$),                  "STR"):@FM
 DataFields := "LAST_WAFER_RHO"      :@VM:SQL_Format(Rec(REACT_RUN_LAST_WAFER_RHO$),         "DEC", "2"):@FM
 DataFields := "LOAD_LOCK_SIDE"      :@VM:SQL_Format(Rec(REACT_RUN_LOAD_LOCK_SIDE$),         "STR"):@FM
 DataFields := "ADE_READ"            :@VM:SQL_Format(Rec(REACT_RUN_ADE_READ$),               "STR"):@FM
@@ -173,3 +173,4 @@ end
 
 Return Ans
 
+

LSL2/STPROC/RDS_ACTIONS.txt

@@ -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
     

LSL2/STPROC/REACT_RUN_ACTIONS.txt

@@ -297,6 +297,21 @@ READ_RECORD:
     //    OrigFileError   = 100 : @FM : KeyID
     //    Status          = 0
     //    Record          = ''
+    If Num({SHIFT}) then
+    	Begin Case
+    		Case {SHIFT} EQ 1
+    			Record<REACT_RUN_SHIFT$> = 'A'
+    		Case {SHIFT} EQ 2
+    			Record<REACT_RUN_SHIFT$> = 'B'
+    		Case {SHIFT} EQ 3
+    			Record<REACT_RUN_SHIFT$> = 'C'
+    		Case {SHIFT} EQ 4
+    			Record<REACT_RUN_SHIFT$> = 'D'
+    		Case Otherwise$
+    			Null
+    	End Case
+    end
+    
 return
 
 READONLY_RECORD_PRE:
@@ -314,10 +329,41 @@ READONLY_RECORD:
     //    OrigFileError   = 100 : @FM : KeyID
     //    Status          = 0
     //    Record          = ''
+    If Num({SHIFT}) then
+    	Begin Case
+    		Case {SHIFT} EQ 1
+    			Record<REACT_RUN_SHIFT$> = 'A'
+    		Case {SHIFT} EQ 2
+    			Record<REACT_RUN_SHIFT$> = 'B'
+    		Case {SHIFT} EQ 3
+    			Record<REACT_RUN_SHIFT$> = 'C'
+    		Case {SHIFT} EQ 4
+    			Record<REACT_RUN_SHIFT$> = 'D'
+    		Case Otherwise$
+    			Null
+    	End Case
+    end
+    
 return
 
 WRITE_RECORD_PRE:
     
+    If Num({SHIFT}) then
+    	Begin Case
+    		Case {SHIFT} EQ 1
+    			Record<REACT_RUN_SHIFT$> = 'A'
+    		Case {SHIFT} EQ 2
+    			Record<REACT_RUN_SHIFT$> = 'B'
+    		Case {SHIFT} EQ 3
+    			Record<REACT_RUN_SHIFT$> = 'C'
+    		Case {SHIFT} EQ 4
+    			Record<REACT_RUN_SHIFT$> = 'D'
+    		Case Otherwise$
+    			Null
+    	End Case
+    end
+    SaveRecord = Record      
+    
     If OrigRecord NE Record then
     	
         RDSNo         = Name
@@ -421,14 +467,6 @@ WRITE_RECORD:
     end
     //JRO 10/22/2020
 
-*    If OrigRecord NE Record then
-*        Material_Services('PostRDSUpdateRequest', Name)
-*    end
-
-*    If OrigRecord NE Record then
-*        Material_Services('UpdateRDSStatus', Name)
-*    end
-
 return
 
 DELETE_RECORD_PRE:
@@ -497,3 +535,4 @@ Restore_System_Variables:
     @FILE.ERROR = OrigFileError
 
 return
+