CICS - Operasi Kontrol

CICS Program Control Program (PCP) mengatur aliran program aplikasi. Semua program aplikasi harus memiliki entri di Tabel Program Pemrosesan. Berikut adalah perintah yang digunakan untuk layanan kontrol program -

XCTL
Link
Load
Release
Return

Tingkat Logis Program

Program aplikasi yang dijalankan di bawah CICS memiliki berbagai tingkatan logika. Program pertama yang menerima kontrol secara langsung berada pada level logika tertinggi, yaitu Level 1. Program Linked berada pada level logis berikutnya dari program yang menghubungkan. Program XCTL dijalankan pada level yang sama. Akan jelas ketika kita akan melalui Link dan XCTL, nanti di modul ini. Gambar berikut menunjukkan level logis -

XCTL

Penjelasan mendasar dari XCTL adalah sebagai berikut -

Perintah XCTL digunakan untuk meneruskan kontrol dari satu program ke program lain pada level yang sama.
Ia tidak mengharapkan kontrol kembali.
Ini mirip dengan pernyataan GO TO.
Program XCTL bisa menjadi percakapan semu.

Contoh

Contoh berikut menunjukkan cara menggunakan perintah XCTL untuk meneruskan kontrol ke program lain -

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. PROG1.  
WORKING-STORAGE SECTION.
01 WS-COMMAREA    PIC X(100).                                             
PROCEDURE DIVISION.

EXEC CICS XCTL
   PROGRAM ('PROG2')
   COMMAREA (WS-COMMAREA)
   LENGTH (100)
END-EXEC.

Perintah ini mentransfer kontrol untuk diteruskan ke program 'PROG2' dengan 100 byte data. COMMAREA adalah parameter opsional dan merupakan nama area yang berisi data yang akan diteruskan atau area di mana hasil akan dikembalikan.

Tautan

Perintah link digunakan untuk mentransfer kontrol ke program lain di tingkat yang lebih rendah. Ia mengharapkan kendali kembali. Program tertaut tidak dapat menjadi percakapan semu.

Contoh

Contoh berikut menunjukkan cara menggunakan perintah Link untuk meneruskan kontrol ke program lain -

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. PROG1.  
WORKING-STORAGE SECTION.
01 WS-COMMAREA    PIC X(100).                                             
PROCEDURE DIVISION.

EXEC CICS LINK
   PROGRAM ('PROG2')
   COMMAREA (WS-COMMAREA)
   LENGTH (100)
END-EXEC.

Beban

Perintah beban digunakan untuk memuat program atau tabel. Berikut ini adalah sintaks perintah Load -

EXEC CICS LOAD
   PROGRAM ('name')
END-EXEC.

Melepaskan

Perintah rilis digunakan untuk merilis program atau tabel. Berikut adalah sintaks dari perintah Rilis -

EXEC CICS RELEASE
   PROGRAM ('name')
END-EXEC.

Kembali

Perintah return digunakan untuk mengembalikan kontrol ke tingkat logika berikutnya yang lebih tinggi. Berikut ini adalah sintaks dari perintah Return -

EXEC CICS RETURN
   PROGRAM ('name')
   COMMAREA (data-value)
   LENGTH (data-value)
END-EXEC.

Operasi Kontrol Interval

Operasi kontrol interval terdiri dari dua jenis berikut -

ASKTIME

ASKTIME digunakan untuk meminta waktu dan tanggal atau cap waktu saat ini. Kami kemudian memindahkan nilai ini ke variabel penyimpanan yang berfungsi di dalam program. Berikut adalah sintaks perintah ASKTIME -

EXEC CICS ASKTIME
   [ABSTIME(WS-TIMESTAMP)]
END-EXEC.

FORMATTIME

FORMATTIME memformat stempel waktu ke dalam format yang diperlukan berdasarkan opsi, yang dapat berupa YYDDD, YYMMDD, atau YYDDMM untuk tanggal. DATESEP menunjukkan pemisah untuk DATE seperti halnya variabel TIMESEP untuk TIME. Berikut adalah sintaks perintah FORMATTIME -

EXEC CICS FORMATTIME
   ABSTIME(WS-TIMESTAMP)
   [YYDDD(WS-DATE)]
   [YYMMDD(WS-DATE)]
   [YYDDMM(WS-DATE)]
   [DATESEP(WS-DATE-SEP)]
   [TIME(WS-TIME)]
   [TIMESEP(WS-TIME-SEP)]
END-EXEC.