Das Dienstprogramm ("Utility") NATRJE dient zur zur Jobfernverarbeitung. Es kann verwendet werden, um JCL-Karten aus einem Natural-Programm an das Betriebssystem zur Zeitplanung und Ausführung zu übergeben. Es ist z.B. mit der NATRJE Utility möglich, einen Natural Batch Job zu starten.

Dieses Dokument behandelt folgende Themen:

• Allgemeine Informationen zu NATRJE

• NATRJE aus einem Natural-Programm aufrufen

• NATRJE-Rückgabecodes

Verwandtes Thema:

• NREXPG - User Exit for NATRJE in der Operations-Dokumentation

---

Allgemeine Informationen zu NATRJE

Die folgende Grafik ist ein vereinfachtes Funktionsdiagramm der NATRJE Utility:

Legende

	Das Natural-Programm ruft die NATRJE Utility zwecks Übergabe von JCL-Karten, die vom Betriebssystem ausgeführt werden sollen.
	Die NATRJE Utility erfasst die JCL-Karten im RJE-Puffer solange, bis das Natural-Programm anzeigt, dass der Job vollständig ist. Im RJE-Puffer werden die JCL-Karten zwischengespeichert, bevor sie in Auftrag gegeben werden. Die Anfangsgröße des RJE-Puffers wird durch den Profilparameter RJESIZE festgelegt (Beschreibung siehe Parameter-Referenz-Dokumentation). Gegebenenfalls wird die Speichergröße automatisch erhöht, wenn ein vorliegender Job nicht in den RJE-Puffer passt. Die maximale Größe eines Jobs wird durch die Größe des Thread oder der Region bestimmt.
	Die NATRJE Utility überträgt die Job-Karten in die interne Job-Warteschlange des Betriebssystems zur Zeitplanung und Ausführung durch das Betriebssystem.

NATRJE aus einem Natural-Programm aufrufen

Folgende Themen werden behandelt:

• NATRJE aufrufen

• Beispiel-Programme

NATRJE aufrufen

Um die NATRJE Utility aufzurufen:

• Geben Sie in dem Natural-Programm, das die NATRJE Utility aufruft, ein CALL-Statement mit folgender Syntax an:

  CALL 'NATRJE' parm1 parm2 parm3 parm4

  Die im CALL-Statement anzugebenden Parameter werden in der folgenden Tabelle erklärt:

  Parameter	Erklärung
  parm1	Die Start-JCL-Karte der Tabelle, die eine oder mehrere zu übergebende, 80 Zeichen umfassende JCL-Karten enthält.
  parm2	Ein 4 Byte breites binäres Feld, das die Anzahl zu übergebender, 80 Zeichen umfassender JCL-Karten enthält.
  parm3	Ein 1-Byte breites alphanumerisches Feld, das dazu dient anzuzeigen, ob alle JCL-Karten übergeben worden sind.   ' ' Dies ist nicht der letzte Aufruf für den aktuellen Job. Mit dem nächsten CALL-Statement folgt eine weitere JCL-Karte für den aktuellen Job. Die JCL-Karten werden im RJE-Puffer gesammelt.   B Letzter Aufruf für den aktuellen Job. Unter z/OS Batch und TSO, IMS TM und CICS: Der Job wird generiert, in den Reader Dataset geschrieben, aber nicht übergeben. Wird anschließend die Funktion L (siehe unten) aufgerufen, wird der interne Reader geschlossen und der oder die Jobs werden übergeben. Zusätzlich wird der interne Reader geschlossen und der Job wird bei einer Bildschirm-Ein-/Ausgabe (IMS TM) oder während der Beendigung einer Session (z/OS Batch, TSO und IMS TM) übergeben.   C Flush: Der aktuelle Job wird ignoriert. Der Job wird nicht an das System übergeben.   L Letzter Aufruf für den aktuellen Job. Der Job wird an das System übergeben.
  parm4	Ein 2 Byte breites binäres Feld, in dem NATRJE einen Rückgabecode zurückgibt.

Beispiel-Programme

Dieser Abschnitt enthält Natural-Beispiel-Programme, die JCL-Karten übergeben:

• Beispiel-Programm für z/OS

Beispiel-Programm für z/OS

Das folgende Programm ist ein Beispiel-Natural-Programm, das einen JCL-Eingabestrom mit drei Karten in einem Aufruf an NATRJE übergibt.

DEFINE DATA LOCAL
   01 COUNT  (B4)
   01 FLAG   (A1)
   01 RETHEX (B2
   01 CARDS  (A240
   01 REDEFINE CARDS
      02 CARD1 (A80)
      02 CARD2 (A80)
      02 CARD3 (A80)
  END-DEFINE
  MOVE '//JOBN JOB CLASS=G,MSGCLASS=X' TO CARD1
  MOVE '//XXX EXEC PGM=IEFBR14' TO CARD2
  MOVE '//DD1 DD DSN=NATRJE.SOURCE,DISP=SHR' TO CARD3
  MOVE 3 TO COUNT
  MOVE 'L' TO FLAG
  CALL 'NATRJE' CARDS COUNT FLAG RETHEX
  IF RETHEX = H'0000'
    WRITE 'JOB submitted successfully'
  ELSE
    WRITE 'ERROR from NATRJE' RETHEX
  END-IF
  END

NATRJE-Rückgabecodes

Wenn ein Natural-Programm ein CALL-Statement an NATRJE absetzt, wird einer der unten aufgeführten Rückgabecodes im vierten Parameter des Statements zurückgegeben. Es gibt Rückgabecodes, die für alle Umgebungen gelten, und zusätzliche Codes, die betriebssystemabhängig sind:

• Rückgabecodes, die für alle Umgebungen gelten

• Zusätzliche Rückgabecodes, die für CICS unter z/OS gelten

Rückgabecodes, die für alle Umgebungen gelten

Rückgabecode hexadezimal	Rückgabecode dezimal	Erklärung
00	00	Normale Rückgabe.
04	04	NATRJE Utility nicht verfügbar.
08	08	NATRJE Utility außer Funktion. Mögliche Ursache: Der Profilparameter RJESIZE ist auf 0 gesetzt (siehe Parameter-Referenz-Dokumentation).
0C	12	Ungültige Anzahl an JCL-Karten.
10	16	Ungültiger Funktionscode.
14	20	Kein RJE-Pufferplatz verfügbar.
18	24	Ungültige Anzahl an Parametern.
1C	28	Ein-/Ausgabefehler bei der Übergabe.
20	32	Job-Flush (Ignorierung) veranlasst durch den User Exit NREXPG (siehe NREXPG - User Exit for NATRJE in der Operations-Dokumentation).

Zusätzliche Rückgabecodes, die für CICS unter z/OS gelten

Rückgabecode	Erklärung
01nn	CICS WRITEQ TD Fehlschlag. Dabei ist nn der CICS-Rückgabecode im Hexadezimalformat.
01nn	CICS CLOSE TD Fehlschlag. Dabei ist nn der CICS-Rückgabecode im Hexadezimalformat.