Conversion de Progress 4GL vers Microsoft SQL Server T-SQL

Grâce à l'outil Ispirer Migration and Modernization Toolkit il est désormais possible de convertir des applications depuis Progress 4GL vers Microsoft SQL Server!

Pourquoi Ispirer MnMTK?

Effectuez votre migration avec Ispirer Systems et profitez donc des avantages suivants que vous offre notre outil:

• Cohérence et Intégration: automatisation jusqu'à 100%
• 
  Personnalisation rapide: individualisation et optimisation de la converson (1-3 jours ouvrables en moyenne)
  
  
• Engagement pré-vente: nous démontrons une conversion complète au cours de l'évaluation avant que vous preniez une décision
  
  
• Prix Raisonnable: nous offrons une tarification souple


• Conversion Optimisée: en tant que résultat vous obtenez un code intelligent et maintenable, sans aucun middleware à utiliser après la conversion

Evaluation et Achat

L'évaluation de votre projet de migration permettra de mesurer les ressources nécessaires aussi bien que le coût de votre migration. Afin de faciliter ce processus, n'hésitez pas à remplir et nous envoyer en retour le questionnaire ci-dessous:

• Questionnaire pour la migration de Progress 4GL to Microsoft SQL Server T-SQL

Caractéristiques de Conversion

La solution de migration d'Ispirer permet de:

Convertir des tables/vues/séquences Progress vers des tables/vues/séquences Microsoft SQL Server:

Progress 4GL:

 
ADD TABLE "TB_DATATYPES"
  AREA "Schema Area"
  DUMP-NAME "tb_datat"
ADD FIELD "c1" OF "TB_DATATYPES" AS CHARACTER 
  FORMAT "X(8)"
  INITIAL ""
  POSITION 2
  SQL-WIDTH 16
  ORDER 10
ADD FIELD "c4" OF "TB_DATATYPES" AS INTEGER 
  FORMAT "->,>>>,>>9"
  INITIAL "0"
  POSITION 5
  SQL-WIDTH 4
  ORDER 20
ADD FIELD "c5" OF "TB_DATATYPES" AS logical 
  FORMAT "yes/no"
  INITIAL "no"
  POSITION 6
  SQL-WIDTH 1
  ORDER 30
.
PSC
cpstream=ISO8859-1
.
0000000976
 

Microsoft SQL Server T-SQL :

 
CREATE TABLE TB_DATATYPES
(
   c1 CHAR(16)   NULL,
   c4 INT   NULL,
   c5 BIT   NULL
)
 

Convertir triggers/procédures Progress 4GL vers Microsoft SQL Server T-SQL

Progress 4GL:

 
TRIGGER PROCEDURE FOR DELETE OF gsinvhd.
FIND distribution 
WHERE distribution.company = gsinvhd.company NO-LOCK NO-ERROR.
 

Microsoft SQL Server T-SQL:

 
CREATE TRIGGER SWT_Delete_gsinvhd
ON gsinvhd
AFTER DELETE
   AS
   DECLARE @distribution_company VARCHAR(255)
   SELECT    @distribution_company = company FROM distribution
   WHERE distribution.company = gsinvhd.company
 

Convertir le code de Progress 4GL vers le code de Microsoft SQL Server T-SQL:

• Convertir Progress 4GL Procedure Files (*.p) vers Microsoft SQL Server

Progress 4GL:

 
PROCEDURE generate-DATA :
DEFINE VARIABLE i            AS INTEGER NO-UNDO.
DEFINE VARIABLE gc-company AS CHARACTER NO-UNDO.
FIND company WHERE company.company = gc-company NO-LOCK NO-ERROR.
 
 find budget WHERE budget.company = gc-company no-LOCK no-error.
  Do while avail budget:
       Do i = 0 TO 5:  
         find budget-analysis 
         WHERE budget-analysis.user-id = company.gc-user-id AND 
         budget-analysis.company = gc-company AND
         budget-analysis.pc-center = "ALL" AND
         budget-analysis.acct-period = i
         no-error.   
END.
END.
END PROCEDURE.
 

Microsoft SQL Server T-SQL:

 
CREATE PROCEDURE [generate-DATA] AS
BEGIN
   DECLARE @company_company VARCHAR(255)
   DECLARE @company_numperiods VARCHAR(255)
   DECLARE @company_gcuserid INT
   DECLARE @budget_company VARCHAR(255)
   DECLARE @i INT
   DECLARE @gccompany VARCHAR(4000)
   SELECT    @company_company = company,  
             @company_numperiods = [num-periods],
             @company_gcuserid = [gc-user-id]
   FROM company   WHERE company.company = @gccompany
   SELECT    @budget_company = company 
   FROM budget   WHERE budget.company = @gccompany
   while EXISTS(SELECT * FROM budget)
   BEGIN
      SET @i = 0
      while @i <= 5
      BEGIN
         DECLARE @budgetanalysis_userid INT
         DECLARE @budgetanalysis_company VARCHAR(255)
         DECLARE @budgetanalysis_pccenter VARCHAR(255)
         DECLARE @budgetanalysis_acctperiod VARCHAR(255)
         SELECT    @budgetanalysis_userid = [user-id],
                   @budgetanalysis_company = company,
                   @budgetanalysis_pccenter = [pc-center],
                   @budgetanalysis_acctperiod = [acct-period]
         FROM [budget-analysis]   
         WHERE [budget-analysis].[user-id] = company.[gc-user-id] AND
         [budget-analysis].company = @gccompany AND
         [budget-analysis].[pc-center] = 'ALL' AND
         [budget-analysis].[acct-period] = @i
         SET @i = @i+1
      END
   END
END
 

• Convertir Progress 4GL Include Files (*.i) vers fonctions de Microsoft SQL Server
• Convertir Progress ABL reports vers Microsoft SQL Server Reports

Contactez-nous pour en savoir plus.