added sysprog entities

SYSPROG/STPROC/CONVERT_LSL2_FORMS.txt

@@ -0,0 +1,56 @@
+Function Convert_LSL2_Forms(Void)
+
+#pragma precomp SRP_PreCompiler
+
+$Insert Logical
+
+Declare Function RTI_Migrate_Repository_Entity_OIWin, Repository
+
+debug
+
+Open 'SYSUPGRADE' To hSysUpgrade Then
+     Select hSysUpgrade
+     EOF  = False$
+     Loop
+          Readnext ID Else EOF = True$
+     Until EOF EQ True$
+*          If Index(ID, 'NDW_MAIN', 1) Then
+*          DEBUG
+               Read V9OIWinRec From hSysUpgrade, ID Then
+               		If Index(ID, 'SYSREPOSWINS', 1) then  Gosub WriteAndCompile
+               End Else
+                    debug
+                    Status    = Get_Status(StatusCode)
+                    rv        = Set_Status(0)
+               end
+*          end
+     Repeat
+end
+
+Return ''
+
+
+WriteAndCompile:
+
+     V10OIWinRec    = RTI_Migrate_Repository_Entity_OIWin(V9OIWinRec, WarningText, UpdateText, @AppID)
+
+     If V10OIWinRec NE '' Then
+          WinID          = ID[-1, 'B*']
+          ReposID        = @AppID<1> : '*OIWIN**' : WinID
+          FormPart1      = V10OIWinRec[1, @RM]
+          FormPart2      = V10OIWinRec[Col2() + 1, @RM]
+          WindowTitle    = FormPart2<0, 9>
+          rv             = Repository('WRITE', ReposID, '', '', '', '', '', '', '', '', WindowTitle, V10OIWinRec)
+          If Get_Status(StatusCode) Then
+               debug
+               rv   = Set_Status(0)
+          End Else
+               rv   = Repository('COMPILE', ReposID)
+               If Get_Status(StatusCode) Then
+                    debug
+                    rv   = Set_Status(0)
+               end
+          end
+     end
+
+Return ''