Migrazione da Progress 4GL a Microsoft SQL Server Transact-SQL

Il nostro tool Ispirer MnMTK converte applicazioni Progress 4GL a Microsoft SQL Server Transact-SQL.

Perchè Ispirer MnMTK

Ispirer MnMTK può aiutarvi a convertire la vostra applicazione Progress 4GL automaticamente. Scegliendo Ispirer MnMTK potete anche eliminare i rischi di conversione e ridurre notevolmente la quantità di sforzi interni necessari per la migrazione.

I nostri vantaggi principali:

• ll team esperto e qualificato: i tecnici d’Ispirer hanno grande esperienza in realizzazione di progetti di migrazione di varia complessità.
• Approccio orientato al cliente e Personalizzazione rapida: personalizziamo il nostro strumento di migrazione in modo che permetta di soddisfare pienamente le esigenze di business dei nostri clienti; aggiustamenti gratuiti durante 1-2 giorni lavorativi;
• Collaborazione pre-vendita: dimostriamo la conversione completa durante la fase di valutazione prima che prenderete la decisione finale.
• Buon prezzo: offriamo la politica di prezzatura flessibile;
• Conversione ottimizzata: il codice facilmente gestito senza il middleware di Ispirer usato dopo la conversione.

Valutazione

Valutazione ci aiuta ad estimare gli sforzi e i costi di migrazione. Per iniziare i discorsi di collaborazione e fare la valutazione approssimativa, si prega di inviarci il questionario compilato.

Caratteristiche di conversione

Migrazione dei database Progress ai database MS SQL Server

• Converte tabelle /viste /sequenze Progress a tabelle/viste/sequenze Microsoft SQL Server

Per esempio,

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
)
 

• Converte trigger Progress 4GL a trigger/procedure MS SQL Server

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
 

• Converte il codice Progress 4GL al codice Microsoft SQL Server T-SQL
• Converte Procedure File (*.p) Progress 4GL a procedure MS 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
 

• Converte Include File (*.i) Progress 4GL a funzioni Microsoft SQL Server
• Converte rapporti ABL Progress a rapporti Microsoft SQL Server

---

Per ulteriori informazioni si prega di contattarci.