l'API DBENTRY

Notre émulateur "DBENTRY" est un ensemble de librairies et d'utilitaires permettant de remplacer "à la volée" une base de données CA-DATACOM (anciennement DATACOM-DB) MVS par un DB2/MVS, DB2/UDB ou PostGres UNIX.

Il est conçu pour :

  • conserver sans les modifier des programmes COBOL contenant des ordres DATACOM-DB, sans DATACOM-DB :
    un simple link-edit avec notre API DBEntry suffit pour aiguiller de façon transparente les appels "DBENTRY" vers DB2 (z/OS ou UNIX) ou PostGreSQL (UNIX).
  • porter des programmes COBOL DATACOM-DB MVS vers UNIX, tels quels ou avec un minimum de modifications.
Cette Solution unique sur le marché est l'alternative à la ré-écriture du code COBOL du patrimoine applicatif.

Elle permet d'optimiser les coûts et délais de migration Datacom-DB :


Rapport coût jours/homme API DBEntry / Re-engineering pour 1000 programmes COBOL

La bibliothèque API DBEntry s'installe sur z/OS (MVS)

Les plateformes supportées pour la database sont :

  • z/OS avec DB/2
  • AIX (32 bits) avec DB/2-UDB V9, ou PostGreSql
  • Linux 386 (32 bits) avec DB/2-UDB V9, ou PostGreSql
  • z/Linux (32 bits), avec DB/2-UDB V9, ou PostGreSql

La librairie

L'émulateur DBENTRY consiste principalement en une bibliothèque (Shared Library) avec un point d'entrée principal 'DBENTRY' pour les appels COBOL, et acceptant exactement les mêmes paramètres que ceux passés au sous-système DATACOM MVS.

Le point d'entrée 'DBENTRY' de la bibliothèque, lors du link-edit au programme COBOL, interprète les paramètres de l'ordre 'CALL DBENTRY', et transforme dynamiquement les requêtes DATACOM en requêtes SQL.

Il génère dynamiquement les ordres 'SELECT', 'UPDATE', 'INSERT', 'DELETE' avec leur clauses correspondantes "WHERE" et "ORDER BY", et analyse ou reconstruit exactement l'enregistrement COBOL passé avec les paramètres DATACOM.

Les outils

Les outils sont des utilitaires principalement utilisés pour compléter la bibliothèque des descriptions des records DATACOM lus/écrits par les programmes COBOL depuis/vers les tables DATACOM MVS, ainsi que pour construire les tables correspondantes PGSQL ou DB2 et leurs indexes.

Sous UNIX, le programme COBOL, tel quel, est vu comme un module externe appelé par une simple routine 'C' main(), qui se charge de la connexion à la database puis appelle le module COBOL.

Les commandes DATACOM DBENTRY supportées sont :
ABEND Abnormal Termination Command
ADDIT Add Record
CLOSE Close User Requirements Table
CNTKR Count For Key Value Range
CNTKY Count For Equal Key Value
CNTTN Count For Table
COMIT Commit Transaction
DELET Delete Record
GETIT Retrieve Next Sequential Record Must review code before confirm
GETPS Get Next Physical Sequential Record n/a
GSETL Set To Starting Key n/a
GSETP Set Physcal Sequential Record n/a
INQIN Inquire CA n/a
LOCBR Locate Backwards Must review code before confirm
LOCKG Locate Key Greater or Equal
LOCKI Test For Logical Intersections of Two Keys
LOCKL Locate Key Less or Equal
LOCKR Locate a Record in a Specified Range
LOCKX Locate Key Exact
LOCKY Locate Key Greater or Equal
LOCNE Locate Next Equal Key Value Must review code before confirm
LOCNK Locate Next Key Must review code before confirm
LOCNR Locate Next Record in Specified Range Must review code before confirm
LOCNX Locate Next Must review code before confirm
LOGCP Checkpoint the Task n/a
LOGCR Log Checkpoint With Release n/a
LOGDR Log Directed Read n/a
LOGDW Log Directed Write n/a
LOGIT Add Data to Log Area" n/a
LOGLB Read Back a LOGIT Record n/a
LOGTB Back Out Transactions n/a
NOOPS No Operation
OPEN Open User Requirements Table
RDUKG Read Key Greater or Equal for Update
RDUKL Read Key Less or Equal for Update
RDUKX Read Key Exact for Update
RDUKY Read Key Exact for Update
RDULE Read Located Entry for Update
RDUNE Read Next Equal Key for Update
RDUNX Read Next for Update
REDBR/RDUBR Read Backwards Must review code before confirm
REDID/RDUID Read Records By Id n/a
REDKG Read Key Greater or Equal
REDKL Read Key Less or Equal
REDKR/RDUKR Read Record in a Specified Range
REDKX Read Key Exact
REDKY Read Key Exact
REDLE Read Located Entry
REDNE Read Next Equal Key
REDNK/RDUNK Read Record w/ Next Sequential Key Must review code before confirm
REDNR/RDUNR Read Next Record in a Specified Range
REDNX Read Next
RELES Release Record (if no update)
RELFL Release Table
ROLBK Rollback Transaction
SELCN Continue Set Record Selection
SELFR Select Set and Return First Record
SELNR Select Next Record"
SELPR Release Set
SELSM Select Same Record
SELST Stop Set Record Selection
TEST Test Option Command n/a
UPDAT Update Record

Pour plus d'information, contactez-nous.