In diesem Kapitel werden spezielle Natural CICS-Funktionen erläutert. Folgende Themen werden behandelt:
Eine der ersten Aktionen, die eine Natural-Task beim Start ausführt,
ist die Aktivierung eines Exits für die Verarbeitung abnormaler Beendigungen.
Dieser Exit wird verwendet, um alle Ressourcen einschließlich des Threads im
Falle einer abnormalen Beendigung freizugeben. Daher darf ein
Nicht-Natural-Programm nicht EXEC CICS ABEND CANCEL
oder die entsprechende Makroanforderung ausgeben, weil eine solche Anforderung
die aktuelle Sitzung ohne Berücksichtigung eines aktiven Exits abbricht.
Dadurch ist Natural nicht in der Lage, seine Ressourcen aufzuräumen, und der
Thread und die Roll Facility werden nicht freigegeben.
Ein Thread wird einer Natural-Task zugewiesen, wenn ein Natural-Programm aktiv ist. Dies gilt auch, wenn Nicht-Natural-Programme aufgerufen werden (gemäß den CICS-Linkage-Konventionen).
Daher sollten solche Programme keine übermäßigen Ein-/Ausgaben oder
andere Arbeiten ausführen, ohne dass Natural zwischendurch die Kontrolle
erhält. Falls ein Nicht-Natural-Programm Ein-/Ausgaben auf dem Bildschirm
durchführt, können Sie im Natural-Programm ein SET CONTROL
'P=V'-Statement codieren, das das Nicht-Natural-Programm vor dem
aufrufenden Statement aufruft: Dies zeigt an, dass die Parameterdaten aus dem
Thread kopiert werden und die Sitzung vor dem Aufruf des
Nicht-Natural-Programms ausgespeichert wird.
Folgende Themen werden anschließend behandelt:
Aufruf von Nicht-Natural-Programmen über Standard-Linkage-Konventionen
Aufruf von Nicht-Natural-Programmen mit Parameterwerten in einer COMMAREA oder in einem Container
Ein Nicht-Natural-Programm wird von Natural in der Weise
aufgerufen (per CALL) wie Programme im zugrunde liegenden
Betriebs- und/oder TP-Monitorsystem aufgerufen werden.
In CICS werden Nicht-Natural-Programme durch EXEC
CICS LINK-Anfragen aufgerufen. Wenn jedoch z.B. dasselbe
Subprogramm (das keine CICS- oder Betriebssystemanfragen ausgibt) sowohl für
die Batch- als auch für die Online-Verarbeitung verwendet werden soll, kann ein
Nicht-Natural-Programm auch über Standard-Linkage-Konventionen aufgerufen
werden, d.h. über BASR R14,R15.
Weitere Informationen finden Sie unter dem Terminalkommando
%P=S in
der Terminalkommandos-Dokumentation. Siehe auch
Subparameter SLCALL im
Makro NTCICSP.
Standardmäßig werden Nicht-Natural-Programme mit den Adressen der
Anfrageparameterlisten (siehe Beschreibung des CALL-Statement in der
Natural-Statements-Dokumentation) aufgerufen, die im TWA
und/oder einer COMMAREA übergeben werden (abhängig von der Einstellung des
Subparameters CALLRPL des
Makros NTCICSP).
Eine an CICS orientierte Methode ist die Übergabe der Parameterwerte in einer CICS-COMMAREA oder einem CICS-Container (siehe Unterstützung von CICS-Channels und -Containern), insbesondere wenn sich das aufgerufene Programm in einer anderen CICS-Region befindet (Distributed Program Link, DPL), da Adressen innerhalb der "aufrufenden" Region für die "aufgerufene" Region nicht zugänglich sind.
Einzelheiten und Einschränkungen finden Sie bei den
Terminalkommandos %P=C
und %P=CC in der
Terminalkommandos-Dokumentation.
Diese Funktionalität erfordert, dass der Subparameter
CALLRPL im
Makro NTCICSP auf ON gesetzt ist.
Wenn die Parameterwerte in einer CICS COMMAREA oder einem CICS
Container übergeben werden, werden unabhängig von der
CALLRPL-Einstellung keine Parameterlistenzeiger in der
CICS TWA übergeben.
Wenn ein SET CONTROL 'QO'-Statement vor einem
Natural-Statement steht, das eine Bildschirm-Eingabe/-Ausgabe bewirkt, wird die
Terminalausgabe von Natural unter CICS nicht ausgeführt. Folglich werden sowohl
die Enter-Taste als auch die Benutzereingabe nicht an Natural
rückübertragen.
Diese Funktionalität kann in den folgenden Situationen nützlich sein:
Wenn Sie pseudo-konversationelle Bildschirm-Ein-/Ausgaben an
Nicht-Natural-Programme überlassen, die von Natural aufgerufen werden. Das
Nicht-Natural-Programm führt die Operation EXEC CICS
SEND durch und kehrt zu Natural zurück. Aufgrund des Statement
SET CONTROL 'QO' beendet die nächste
Natural-Bildschirm-Ein-/Ausgabe die Task einer Pseudo-Konversationssitzung. Bei
der Bildschirmeingabe erhält Natural die Kontrolle und ruft erneut das
Nicht-Natural-Programm auf, das dann die Operation EXEC CICS
RECEIVE durchführt.
Beim Ändern der pseudokonversationellen Natural-Transaktionskennung während der laufenden Vorgangs, ohne dass ein Terminalbediener eingreifen muss:
MOVE *INIT-ID TO termid CALLNAT 'CMTRNSET' trnid /* change the restart transaction ID * starting a task on your terminal forces an interrupt as if * pressing any attention identifier CALL 'CMTASK' USING trnid H'0000' H'00000000' termid SET CONTROL 'QO' INPUT 'DUMMY' /* dummy I/O, which you will never see WRITE 'HELLO' *INIT-PROGRAM /* now the new transaction ID is active
Beim Wechsel zu einer Anwendung außerhalb von Natural, vielleicht sogar in einer anderen CICS AOR (Application Owning Region), ohne dass ein Terminalbediener eingreifen muss:
* starting a task on your terminal forces an interrupt as if * pressing any attention identifier CALL 'CMTASK' USING trnid data-length start-data termid SET CONTROL 'QO' INPUT 'DUMMY' /* dummy I/O, which you will never see WRITE 'HELLO' *INIT-PROGRAM /* now the new transaction ID is active
In diesem Fall ist die aufgerufene Anwendung dafür verantwortlich, die Natural-Neustartdaten auf den Stack zu legen, wenn sie in einer CICS-COMMAREA übergeben werden, da eine COMMAREA höchstwahrscheinlich auch von der neuen (pseudo-konversationellen) Anwendung verwendet wird.
