CICS - Nozioni di base di COBOL

I programmi CICS sono scritti in linguaggio COBOL nei mainframe. Discuteremo della scrittura di un semplice programma COBOL-CICS, della sua compilazione e quindi della sua esecuzione.

Programma CICS

Scriveremo un semplice programma COBOL-CICS che visualizza un messaggio nella schermata di output CICS. Questo programma serve a dimostrare i passaggi coinvolti nell'esecuzione di un programma COBOL-CICS. Di seguito sono riportati i passaggi per codificare un semplice programma:

Passo 1

Accedi a Mainframe e apri una sessione TSO.

Passo 2

Crea un nuovo PDS in cui codificheremo il nostro programma.

Passaggio 3

Crea un nuovo membro all'interno del PDS e codifica il seguente programma:

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.

Passaggio 4

Dopo aver codificato il programma, dobbiamo compilarlo. Possiamo compilare il programma utilizzando il seguente JCL -

//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)                                          
//

Passaggio 5

Apri una sessione CICS.

Passaggio 6

Ora installeremo il programma utilizzando il seguente comando:

CEMT SET PROG(HELLO) NEW.

Passaggio 7

Eseguire il programma utilizzando l'ID transazione associato. L'ID transazione è fornito dall'amministratore. Mostrerà il seguente output:

Compilazione del programma

Il seguente diagramma di flusso mostra i passaggi utilizzati nella compilazione di un programma COBOL-CICS:

Traduttore

La funzione di un traduttore è controllare gli errori di sintassi nei comandi CICS. Li traduce in istruzioni COBOL equivalenti.

Compilatore

La funzione di un compilatore è espandere i quaderni COBOL. Compila il codice dopo aver controllato il codice sorgente per errori di sintassi.

Linkage Editor

La funzione di un Linkage Editor è quella di collegare diversi moduli oggetto per creare un singolo modulo di caricamento.