[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Apr 2005
    Beiträge
    16

    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.

  2. #2
    Registriert seit
    Feb 2003
    Beiträge
    46
    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ß

  3. #3
    Registriert seit
    Feb 2001
    Beiträge
    20.245
    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
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

Similar Threads

  1. Biete Urlaubsvertretung COBOL/400
    By GEBHARDT400 in forum NEWSboard Server Job
    Antworten: 0
    Letzter Beitrag: 08-08-06, 13:10
  2. Einfache Abfrage in COBOL/400 mit EXEC SQL
    By AS400-Anfänger in forum NEWSboard Programmierung
    Antworten: 6
    Letzter Beitrag: 27-06-06, 13:18
  3. QCMDEXC & OVRPRTV
    By muadeep in forum NEWSboard Programmierung
    Antworten: 9
    Letzter Beitrag: 24-06-06, 23:59
  4. RCVMSG nach QCMDEXC
    By flytokiwi in forum IBM i Hauptforum
    Antworten: 3
    Letzter Beitrag: 29-03-06, 13:49
  5. V5R3 & QCMDEXC
    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
  •