CICS - operacje kontrolne

Program sterujący programem CICS (PCP) zarządza przepływem programów użytkowych. Wszystkie aplikacje muszą mieć wpis w tabeli programów przetwarzania. Poniżej znajdują się polecenia, które są używane do usług kontroli programu -

XCTL
Link
Load
Release
Return

Programowe poziomy logiczne

Aplikacje uruchamiane w CICS mają różne poziomy logiczne. Pierwszy program, który bezpośrednio otrzymuje sterowanie, znajduje się na najwyższym poziomie logicznym, tj. Poziomie 1. Program połączony jest na następnym poziomie logicznym z programu łączącego. Programy XCTL działają na tym samym poziomie. Będzie jasne, kiedy przejdziemy przez Link i XCTL, w dalszej części tego modułu. Poniższy obraz przedstawia poziomy logiczne -

XCTL

Podstawowe wyjaśnienie XCTL jest następujące -

Polecenie XCTL służy do przekazywania kontroli z jednego programu do drugiego na tym samym poziomie.
Nie oczekuje powrotu kontroli.
Działa podobnie do instrukcji GO TO.
Program XCTL może być pseudokonwersacyjny.

Przykład

Poniższy przykład pokazuje, jak użyć polecenia XCTL do przekazania kontroli do innego programu -

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.

To polecenie przekazuje sterowanie, które ma być przekazane do programu „PROG2” ze 100 bajtami danych. COMMAREA jest parametrem opcjonalnym i jest nazwą obszaru zawierającego dane do przekazania lub obszaru, do którego mają zostać zwrócone wyniki.

Połączyć

Polecenie Link służy do przeniesienia sterowania do innego programu na niższym poziomie. Oczekuje powrotu kontroli. Połączony program nie może prowadzić pseudo-konwersacji.

Przykład

Poniższy przykład pokazuje, jak użyć polecenia Link, aby przekazać kontrolę do innego programu -

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.

Załaduj

Polecenie Load służy do ładowania programu lub tabeli. Poniżej znajduje się składnia polecenia Load -

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

Wydanie

Polecenie Release służy do zwalniania programu lub tabeli. Poniżej znajduje się składnia polecenia Release -

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

Powrót

Polecenie Return służy do powrotu sterowania do następnego wyższego poziomu logicznego. Poniżej znajduje się składnia polecenia Return -

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

Operacje sterowania interwałami

Istnieją dwa rodzaje operacji kontroli interwałowej -

ASKTIME

ASKTIME służy do żądania aktualnego czasu i daty lub znacznika czasu. Następnie przenosimy tę wartość do roboczej zmiennej pamięci wewnątrz programu. Poniżej znajduje się składnia polecenia ASKTIME -

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

FORMATTIME

FORMATTIME formatuje znacznik czasu do wymaganego formatu na podstawie opcji, którymi może być RRRRD, RRMMDD lub RRDDMM dla daty. DATESEP wskazuje separator dla DATE, podobnie jak zmienna TIMESEP dla TIME. Poniżej znajduje się składnia polecenia 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.