-
Zitat von Pikachu
Wie ist das Jobdatumsformat der beiden Jobs? Was steht in &PFAD?
Das ist ein Job: Hauptprogramm erstellt 1 oder 2 Dateien, welchen dann an unterschiedliche CL-Pgm Übergeben werden. Aus diesen wird dann das letzte CL aufgerufen, welches den CPYSPFL machen soll.
Haben uns die variablen ausgeben lassen wollen mit sndpgmsg aber das fliegt auch.
Da ich Systemmässig nicht so bewandert bin gehe ich nach der Mittagspause mit der letzten Antwort von Baldur zu meinen Kollegen in Operations.
Andreas
Ein AS/400 Dinosaurier since 1989
-
Dann lass dir doch endlich mal den Zugang zum System geben!
Mit diesem ewigen stochern im Nebel kommst du nicht weiter und mit Raten kommen wir nicht weiter.
Bisher war es bei der AS/400 immer so, dass man beim Auftreten des Fehlers die besten Analyse-Möglichkeiten hat.
Bei Windowsprogrammen ruft der Kunde gerne an mit "Windows hat ein Problem festgestellt und das Programm muss beendet werden" und fragt dann "Warum? Können Sie mir da helfen?".
-
... MCH3601 beim DMPCLPGM und SNDPGMMSG ist doch eindeutig, da fehlt es nur an Einsicht.
-
Ende 2016 gabs wohl eine Änderung "Parameter verlängern".
Wurden auch alle geänderten Programme aufs Kundensystem kopiert?
Zitat von nico1964
Je nach Aufruf aus einem COBOL-PGM
WRK-EMAIL-INTERN-MAILADDI PIC X(200).
WRK-EMAIL-INTERN-PGM PIC X(10).
CALL 'LEACDTZET' USING WRK-EMAIL-INTERN-MAILADDI
WRK-EMAIL-INTERN-PGM
oder aus einem CL-PGM
DCL VAR(&MADDI) TYPE(*CHAR) LEN(200)
DCL VAR(&MPGM) TYPE(*CHAR) LEN(10)
CALL PGM(LEACDTZET) PARM(&MADDI &MPGM)
-
Zitat von Pikachu
Ende 2016 gabs wohl eine Änderung "Parameter verlängern".
Wurden auch alle geänderten Programme aufs Kundensystem kopiert?
Hallo,
ich installiere immer alle Programme, da ich in allen die eine oder andere kleine Adaptierung auf Grund neuer Anforderungen machen musste.
Daher sind auf Test- und Produktivsystem die Objekte auf gleichem Quellcode basierend gewandelt und verschickt.
Andreas
Ein AS/400 Dinosaurier since 1989
-
Nun, der obige Hinweis kann da durchaus schon mal geprüft werden.
Bekommt ein Programm einen kürzeren Parameter als es erwartet, überschreibt dieses durchaus Daten, die hinter dem übergebenen Inhalt liegen können.
Denn schließlich darf sich jedes Programm darauf verlassen, dass es den Platz des Parameters vollständig verwenden darf.
Dadurch kommt es aber durchaus zu Überschreibungen anderer Inhalte, an denen aber auch schon mal Pointer stehen könnten. Werden diese nun zerstört, kommt es durchaus später zu Ungereimtheiten wie MCH3601.
-
Da gibts eine Sonderbehandlung auf System ZL958 ...
Wie sind die beiden Parameter im Programm LEACLUSR definiert?
Zitat von nico1964
IF COND(&SYSTEM *EQ 'ZL958') THEN(DO)
CALL PGM(LEACLUSR) PARM(&USER &NAME)
ENDDO
IF COND(&SYSTEM *NE 'ZL958') THEN(DO)
CHGVAR VAR(&NAME) VALUE(&SYSTEM)
ENDDO
-
Zitat von Pikachu
Da gibts eine Sonderbehandlung auf System ZL958 ...
Wie sind die beiden Parameter im Programm LEACLUSR definiert?
Danke, das war es. Vor wenn man dann in Ruhe und nicht unter dauerndem Druck der Kollegen nachschaut findet man den Fehler.
Vor lauter Variablen einfach immer die falschen nachgeschaut.
Andreas
Ein AS/400 Dinosaurier since 1989
-
Nun, ich wollte gerade mal empfehlen, einfach als letzte Variable im CL eine 5K-Variable zu definieren.
Der CLP-Compiler legt hinter den lokalen Variablen noch jede Menge weitere, initialisierte, Variablen und Pointer an, die durch einen Pufferüberschreiber zerstört werden.
Nach 68 Posts doch endlich den Fehler gefunden.
Vielleicht sollte man generell in seinen CLP's einfach eine 5/10k-Variabiable zum Schluss definieren;-).
-
@Baldur
Asche über mein Haupt aber das war wieder einmal so wie immer.
Du schreibst einen Job aus mehreren Programmen, dann kommt eine neue Anforderung, Du erweiterst das ganze und machst einen Flüchtigkeitsfehler. Dann versuchst Du diesen zu finden, was meist nicht gelingt bis jemand Fremder mit Grundwissen der Materie drüberschaut und schon ist er gefunden.
Andreas
Ein AS/400 Dinosaurier since 1989
-
Nun, manchmal hilft es einfach, darüber zu reden...
-
Danke für die zahlreiche Hilfestellung jetzt sind wieder alle glücklich im Haus
Andreas
Ein AS/400 Dinosaurier since 1989
Similar Threads
-
By dschroeder in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 28-08-17, 12:52
-
By Flappes in forum IBM i Hauptforum
Antworten: 0
Letzter Beitrag: 22-05-17, 14:03
-
By Gast951 in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 21-02-17, 08:02
-
By schatte in forum NEWSboard Programmierung
Antworten: 0
Letzter Beitrag: 22-08-15, 14:46
-
By Reinhard Düvel in forum NEWSboard Server & Hardware Markt
Antworten: 1
Letzter Beitrag: 06-05-02, 13:34
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