CICS Cours

CICS – Programmes

Les programmes CICS sont écrits en langage COBOL dans les Mainframes. Nous discuterons de l’écriture d’un programme COBOL-CICS simple, de sa compilation, puis de son exécution.

Structure du programme d’application CICS

structure du programme de cics

Syntaxe générale de l’instruction CICS

EXEC CICS function
 	[(option (argument value)]
        [(option (argument value)]
END-EXEC.

Étapes de base du développement d’un programme d’application CICS

  1. Traduire, compiler et lier un programme d’application CICS dans la bibliothèque de programmes d’application CICS (LOADLIB).
  2. Définir Trans-ID en PCT avec le nom du programme associé
  3. Définir le programme en PPT
  4. Enregistrer le terminal dans TCT
  5. Enregistrez l’utilisateur dans SNT (table de connexion)
  6. D’autres tables CICS, par exemple FCT, JCT, DCT, doivent être préparées pour la programmation de l’application si nécessaire
  7. Connectez-vous à CICS et entrez Trans-ID.

En plus des procédures de base ci-dessus, l’environnement système CICS détaillé doit être correctement préparé par les programmeurs système ou les programmeurs d’application.

  • Le terminal doit être enregistré au TCT.
  • L’identificateur d’utilisateur CICS doit être enregistré dans le SNT.
  • D’autres tables CICS (à savoir FCT, JCT et DCT) doivent être préparées pour le programme d’application, si nécessaire.

Exemple 1 – Programme COBOL-CICS

Vous trouverez ci-dessous un programme COBOL-CICS simple qui affiche le message “Bienvenue dans la communauté IBMMainframer” sur l’écran de sortie CICS.

IDENTIFICATION DIVISION.
PROGRAM-ID. IBMMFPGM.

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
01 WS-DISP-MESSAGE PIC X(40).
01 WS-DISP-LENGTH  PIC S9(4) COMP.

PROCEDURE DIVISION.
0000-MAIN-PARA.
   MOVE 'WELCOME TO IBMMAINFRAMER COMMUNITY' TO WS-DISP-MESSAGE
   MOVE '+34' TO WS-DISP-LENGTH

   EXEC CICS SEND TEXT
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)
   END-EXEC

   EXEC CICS
      RETURN
   END-EXEC.

Ce programme simple utilise les commandes CICS SEND TEXT, qui sont utilisées pour envoyer des données sans mappage au terminal et la commande RETURN est utilisée pour retourner le contrôle du programme.

Exemple 2 – Programme COBOL-CICS

Cet exemple de programme utilise trois commandes CICS de base RECEIVE, SEND et RETURN.

Ce programme va :

  • Lire un message du terminal.
  • Renvoyez le message avec accusé de réception.
  • Terminez la transaction.

Notez la partie de gestion des erreurs après la commande EXEC CICS RECEIVE.

IDENTIFICATION DIVISION.
PROGRAM-ID. IBMMFPGM.

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.
77 WS-LONGUEUR     PIC S9(4) COMP.
77 WS-RESP         PIC S9(4) COMP.
01 WS-INPUT.
   05 WS-TRAN-ID   PIC X(4).
   05 FILLER       PIC X.
   05 WS-IN-DATA   PIC X(15).
01 WS-OUTPUT. 
   05 WS-MSG-DESC  PIC X(17).
   05 FILLER       PIC X.
   05 WS-OUT-DATA  PIC X(15).
LINKAGE SECTION.
01 DFHCOMMAREA.
   05 LS-COMMAREA  PIC X.
PROCEDURE DIVISION.
   MOVE 40         TO WS-LONGUEUR
   MOVE LOW-VALUES TO WS-INPUT
   EXEC CICS RECEIVE
      INTO (WS-INPUT)
      LENGHT(WS-LONGUEUR)
      FROM (WS-RESP)
   END-EXEC.

   IF WS-RESP = DFHRESP(NORMAL)
      MOVE LOW-VALLUES   TO WS-OUTPUT
      MOVE WS-IN-DATA    TO WS-OUT-DATA
      MOVE 'MSG RECU EST :' 
                         TO WS-MSG-DESC
      MOVE 53 TO WS-LONGUEUR
   ELSE
      MOVE LOW-VALLUES   TO WS-OUTPUT
      MOVE WS-IN-DATA    TO WS-OUT-DATA
      MOVE 'ERREUR DANS TXN :' 
                         TO WS-MSG-DESC
      MOVE 53 TO WS-LONGUEUR
   END-IF.

   EXEC CICS SEND
      FROM (WS-OUTPUT)
      LENGHT(WS-LONGUEUR)
   END-EXEC.

   EXEC CICS
      RETURN
   END-EXEC.