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