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 :
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 avec DB2-UDB, ou PostGreSql
- Linux x86 avec DB2-UDB, ou PostGreSql
- z/Linux avec DB/2-UDB 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.