diff --git a/LSL2/APPROW/LISTBOX_CONFIG%003ASHIFT.json b/LSL2/APPROW/LISTBOX_CONFIG%003ASHIFT.json
new file mode 100644
index 0000000..92acbc1
--- /dev/null
+++ b/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"
+        }
+    }
+}
\ No newline at end of file
diff --git a/LSL2/STPROC/COMM_RDS.txt b/LSL2/STPROC/COMM_RDS.txt
index adc979c..305d157 100644
--- a/LSL2/STPROC/COMM_RDS.txt
+++ b/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
 
 
 
+
diff --git a/LSL2/STPROC/COPY_REACT_RUN_RECORD_TO_SQL.txt b/LSL2/STPROC/COPY_REACT_RUN_RECORD_TO_SQL.txt
index 5ce7610..e5a1ebe 100644
--- a/LSL2/STPROC/COPY_REACT_RUN_RECORD_TO_SQL.txt
+++ b/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
 
+
diff --git a/LSL2/STPROC/RDS_ACTIONS.txt b/LSL2/STPROC/RDS_ACTIONS.txt
index f6d72f7..1ea7b07 100644
--- a/LSL2/STPROC/RDS_ACTIONS.txt
+++ b/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
     
diff --git a/LSL2/STPROC/REACT_RUN_ACTIONS.txt b/LSL2/STPROC/REACT_RUN_ACTIONS.txt
index fab4839..d80ee79 100644
--- a/LSL2/STPROC/REACT_RUN_ACTIONS.txt
+++ b/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,12 +329,43 @@ 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
         ProdTWs	      = ''
         GaNRunID      = Record<REACT_RUN_GAN_RUN_ID$>
@@ -420,14 +466,6 @@ WRITE_RECORD:
         null
     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
 
@@ -497,3 +535,4 @@ Restore_System_Variables:
     @FILE.ERROR = OrigFileError
 
 return
+