-
Nachrichtenbehandlung nach QCMDEXC in COBOL/400
Wenn ich in einem HLL-Programm wie Cobol zum Beispiel den CL-Befehl
CALL PGM(QCMDEXC) PARM('ADDLIBLE TEST' 13)
absetze und es kommt z.B. die Nachricht, dass diese Bibliothek schon vorhanden ist, kann ich diese Nachricht abfangen, ohne dass es zum Programmabruch kommt?
Klaus
P.S.
Pardon im Cobol-Programm heisst es natürlich
CALL 'QCMDEXC' USING PARM-1 PARM-2
P.S.(2)
Eigentlich will ich ja folgenden Befehl abschicken, habe aber schon Probleme mit dem Hochkomma, welches er innerhalb der Value-Hochkommata leider nicht akzeptiert (Siehe Pfeile):
01 CL-COMMANDS.
05 CLCMD-01 PIC X(100).
05 FILLER REDEFINES CLCMD-01.
10 FILLER PIC X(012) VALUE 'SNDMSG MSG(' '. <=
10 FILLER PIC X(056) VALUE 'TEST '.
10 FILLER PIC X(010) VALUE ' ') TOUSR('.
10 USER PIC X(010).
10 FILLER PIC X(002) VALUE ' ')'. <=
05 PACKV-01 PIC 9(10)V9(5) COMP-3
VALUE 100.
Nachrichten-ID . . . . : LSC0007 Bewertung . . . . . . : 10
Nachrichtenart . . . . : Diagnose
Nachricht . . . : Fortsetzung des nichtnumerischen oder hexadezimalen
Literals nicht gefunden. Eingabe nicht akzeptiert.
-
Ich mein mich zu erinnern je nach Compiler-Stand gibt es nach dem Parameter noch den Befehl ["ON OVERLOW" imperative-statment]. Mit dem imperative-statment könnte dann man verzweigen oder andere error-Routinen anstoßen.
vielleicht hilfst ...
Gruß
-
Wird ein Hochkomma als Literal benötigt, so ist es zu verdoppeln:
10 FILLER PIC X(012) VALUE 'SNDMSG MSG('''.
Ralle hat natürlich Recht:
CALL 'QCMDEXC' USING PARM-1 PARM-2
on error mach was
end-call
Similar Threads
-
By GEBHARDT400 in forum NEWSboard Server Job
Antworten: 0
Letzter Beitrag: 08-08-06, 13:10
-
By AS400-Anfänger in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 27-06-06, 13:18
-
By muadeep in forum NEWSboard Programmierung
Antworten: 9
Letzter Beitrag: 24-06-06, 23:59
-
By flytokiwi in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 29-03-06, 13:49
-
By Freezer in forum IBM i Hauptforum
Antworten: 8
Letzter Beitrag: 02-12-04, 13:38
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks