CICS - Principes de base de COBOL

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.

Programme CICS

Nous allons écrire un simple programme COBOL-CICS qui affiche un message sur l'écran de sortie CICS. Ce programme est destiné à démontrer les étapes de l'exécution d'un programme COBOL-CICS. Voici les étapes pour coder un programme simple -

Étape 1

Connectez-vous aux Mainframes et ouvrez une session TSO.

Étape 2

Créez un nouveau PDS dans lequel nous coderons notre programme.

Étape 3

Créez un nouveau membre dans le PDS et codez le programme suivant -

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH  PIC S9(4) COMP.
PROCEDURE DIVISION.
A000-MAIN-PARA.
   MOVE 'Hello World' TO WS-MESSAGE
   MOVE '+12' TO WS-LENGTH
   EXEC CICS SEND TEXT 
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)  
   END-EXEC
   EXEC CICS RETURN
   END-EXEC.

Étape 4

Après avoir codé le programme, nous devons le compiler. Nous pouvons compiler le programme en utilisant le JCL suivant -

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C  
//CICSCOB  EXEC CICSCOB,                                                
//COPYLIB = ABC.XYZ.COPYLIB,                            
//LOADLIB = ABC.XYZ.LOADLIB 
//LIB        JCLLIB ORDER = CICSXXX.CICS.XXXPROC                
//CPLSTP     EXEC DFHEITVL                                
//TRN.SYSIN  DD DSN = ABC.XYZ.PDS(HELLO),DISP = SHR     
//LKED.SYSIN DD *                                        
   NAME HELLO(R)                                          
//

Étape 5

Ouvrez une session CICS.

Étape 6

Nous allons maintenant installer le programme en utilisant la commande suivante -

CEMT SET PROG(HELLO) NEW.

Étape 7

Exécutez le programme en utilisant l'identifiant de transaction associé. L'identifiant de transaction est fourni par l'administrateur. Il affichera la sortie suivante -

Compilation de programmes

L'organigramme suivant montre les étapes utilisées pour compiler un programme COBOL-CICS -

Traducteur

La fonction d'un traducteur est de vérifier les erreurs de syntaxe dans les commandes CICS. Il les traduit en instructions COBOL équivalentes.

Compilateur

La fonction d'un compilateur est de développer les cahiers COBOL. Il compile le code après avoir vérifié le code source pour les erreurs de syntaxe.

Éditeur de lien

La fonction d'un éditeur de liaison est de lier différents modules objet pour créer un seul module de chargement.