Zitat Zitat von Robi Beitrag anzeigen
chatgpt:

wie kann ich in cobol den Spoolfile Name, Number, Job Name, Nummer, User auslesen

ChatGPT

Um in COBOL auf IBM i (früher AS/400 oder iSeries) Informationen wie Spoolfile-Name, Spoolfile-Nummer, Job-Name, Job-Nummer und User auszulesen, müssen Sie API-Aufrufe (Application Programming Interface) verwenden, die diese Informationen aus dem System extrahieren können. Ein gängiger Ansatz ist die Verwendung der API QUSRSPLA (Retrieve Spooled File Attributes), die Informationen über Spooled Files liefert.

Hier ist ein grundlegendes Beispiel, wie Sie diese Informationen in COBOL verwenden können:
Beispiel: COBOL-Programm zur Verwendung der QUSRSPLA-API

cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. SPOOLEXAMPLE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.

* Define the structure for the input parameters and output data.
01 API-INPUT-PARM.
05 SPOOLED-FILE-NAME PIC X(10) VALUE 'SPLFNAME'.
05 SPOOLED-FILE-NUMBER PIC S9(4) COMP VALUE 1.
05 JOB-NAME PIC X(10) VALUE 'JOBNAME'.
05 JOB-USER PIC X(10) VALUE 'USER'.
05 JOB-NUMBER PIC X(6) VALUE 'JOB#'.

01 API-OUTPUT-DATA.
05 SPOOLED-FILE-ATTRIBUTES-LENGTH PIC S9(9) COMP.
05 SPOOLED-FILE-ATTRIBUTES PIC X(500).

01 API-ERROR-DATA.
05 ERROR-CODE-LENGTH PIC S9(9) COMP VALUE 0.
05 ERROR-CODE PIC X(7).

PROCEDURE DIVISION.
* Call the QUSRSPLA API to retrieve the spooled file attributes.
CALL 'QUSRSPLA' USING
API-OUTPUT-DATA
API-INPUT-PARM
ERROR-CODE.

* Check for errors.
IF ERROR-CODE-LENGTH NOT = 0
DISPLAY 'Error retrieving spooled file attributes.'
STOP RUN
ELSE
DISPLAY 'Spoolfile Name: ' SPOOLED-FILE-NAME
DISPLAY 'Spoolfile Number: ' SPOOLED-FILE-NUMBER
DISPLAY 'Job Name: ' JOB-NAME
DISPLAY 'Job Number: ' JOB-NUMBER
DISPLAY 'User: ' JOB-USER
END-IF.

STOP RUN.

Erklärung:

API-INPUT-PARM: Hier geben Sie die Parameter wie den Namen und die Nummer des Spool-Files sowie den Job-Namen, User und die Job-Nummer an.
API-OUTPUT-DATA: Dieses Feld wird von der API gefüllt und enthält die Attribute des Spool-Files, die Sie abrufen möchten.
API-ERROR-DATA: Hier wird der Fehlercode zurückgegeben, falls bei der API-Aufruf ein Fehler auftritt.

API-Parameter:

SPLFNAME: Ersetzen Sie dies durch den tatsächlichen Namen des Spool-Files.
JOBNAME, USER, JOB#: Ersetzen Sie diese durch die tatsächlichen Werte, die Sie verwenden möchten.

Anmerkungen:

Bibliothek: Stellen Sie sicher, dass das Programm in der richtigen Bibliothek ausgeführt wird, in der die Spool-Files und Jobs vorhanden sind.
Zugriffsrechte: Der Benutzer, der das COBOL-Programm ausführt, muss die entsprechenden Berechtigungen haben, um auf die Spool-Files und Job-Informationen zuzugreifen.

Dieses Beispiel ist ein sehr einfacher Einstieg. In der Praxis müssen Sie möglicherweise weitere Fehlerbehandlungen und Anpassungen vornehmen, um es an Ihre spezifischen Anforderungen anzupassen.


------------------------------------------------------------------------

k.a. ob das ok ist ...
Danke Dir, habe nun auch die API benutzt, dachte halt nur, dass es wie bei RPG auch eine INFDS gibt.