pre cutover push

LSL2/STPROC/COMM_WO_REC.txt

@@ -197,9 +197,17 @@ RETURN
 Page:
 * * * * * * *
 
-obj_Appwindow('Page')
+	Page = Parm1
+	
+	IF Page = '' THEN
+		Page = Get_Property(@WINDOW:'.TAB_MAIN','VALUE')
+	END ELSE
+		Set_Property(@WINDOW:'.TAB_MAIN','VALUE',Page)
+	END
+	
+	Set_Property(@WINDOW,'VPOSITION', Page)
 
-GOSUB Refresh
+    GOSUB Refresh
 
 RETURN
 
@@ -1120,4 +1128,3 @@ AddLeftover:
 
 RETURN
 
-