Programme CICS-DB2-COBOL – Compilation

Les programmes COBOL ne peuvent pas reconnaître les commandes CICS. Ainsi, toutes les commandes CICS sont codées dans la portée EXEC CICS et END-EXEC. Le programme est d’abord transmis au traducteur CICS et le traducteur convertira toutes les commandes CICS en instructions d’appel COBOL et cette source modifiée est transmise au compilateur COBOL.

Si votre programme comporte des commandes DB2, la séquence de préparation du module de chargement serait le précompilateur DB2, le traducteur CICS, le compilateur COBOL et l’éditeur de liens. Logiquement parlant, l’ordre du précompilateur DB2 et du traducteur CICS peut également être inversé. Mais en tant que convention, nous faisons d’abord une précompilation.

Si la traduction est effectuée en premier, le traducteur CICS essaie de reconnaître les instructions DB2 et émet des messages de diagnostic. L’autre raison est que la plupart des programmes effectuent beaucoup d’opérations DB2 plutôt que des opérations CICS. Donc, si vous effectuez d’abord la pré-compilation, toutes les instructions DB2 sont converties en instructions d’appel COBOL dans la première phase elle-même et le temps de traduction serait moindre.

Les programmes COBOL-CICS doivent être compilés avec les options RENT RESIDENT NODYNAM et LIB.

• Traducteur – Vérifie les erreurs de syntaxe, etc., dans les commandes CICS et les traduit en instructions COBOL équivalentes.
  
  1. Recherche les instructions EXEC CICS …
  2. Commente l’intégralité de l’instruction EXEC CICS … END-EXEC
  3. Remplace les instructions CICS par un ensemble d’instructions MOVE et d’instructions COBOL “CALL” et passe en paramètres, les options de la commande.
  4. Insérez le copybook Execute Interface Block DFHEIBLK dans la section LINKAGE du programme.
  5. Ajoutez le DFHCOMMAREA dans la section de liaison avec une taille de 1 octet s’il n’est pas spécifié.
• Compilateur – Développe les livres de copie COBOL, vérifie le code source pour les erreurs de syntaxe, etc., et compile.
• Éditeur de liens – Relie différents modules d’objets pour créer un seul module de chargement.

Noter:

• Comme le traducteur n’étend pas les livres de copie COBOL, ils ne doivent contenir aucune commande CICS.
• Comme le module va faire partie du programme CICS, il ne doit contenir aucune commande COBOL restreinte.

---

Commandes COBOL restreintes dans l’environnement CICS :

1. Instructions de déclenchement OS SVC :
   ACCEPT, CURRENT-DATE, DATE, DAY, DISPLAY
2. Instructions d’entrée/sortie :
   OPEN, CLOSE, READ, WRITE, REWRITE, DELETE, START
3. Instruction SORT :
   RETURN, RELEASE

VS COBOL 2 autorise STOP RUN et cela rend le contrôle à CICS.