-
Dekleration Cobol <-> RPG
Hallo,
hab eine Funktion in RPGLE mit einem Parameter
D test B
D test PI
D pVar 5I 0
so die Funktion will ich im Cobol aufrufen,
So hab ich irgendwo in den weiten des Internts gefunden muss man
01 zahl PIC s9(4) comp-4
definieren.
So was mache ich nur wenn die RPG Funktion eine Zahl > 9999 setzt, dann geht mir die erste Ziffer im Cobol flöten .
Gibts da noch ein trick?
Grüße
Xanas
-
COBOL ist da etwas restriktiv, zumal solche Felder noch einen Overhead produzieren.
Intern wird ein Pic s9(4) comp-3 Feld generiert um eben die überzählige Ziffer auch tatsächlich abzuschneiden.
Allerdings gibt es eine Compiler-Directive die seit V2 definiert ist aber kaum erwähnt wird:
process notrunc
Identification Division
:
Also mittels "Process"-Anweisung als 1. Zeile in der Quelle führt dazu, dass S9(4) und S9(9) comp-4 den vollen Umfang wahrnehmen kann.
Allerdings sollte man von solchen Schnittstellen eher absehen.
-
Vielen Dank schon mal, aber hätte da noch ne frage, warum sollt man davon abesehen.
Hab das eben auch mal Ausprobiert, Compilieren geht, doch im Debugger seh ich trozdem nur vier Ziffern, liegt das jetzt am Debugger oder hats dann doch nicht funktioniert?
-
Man sollte doch mal nachschauen und nicht immer alles aus dem Bauch heraus:
Process nostdtrunc
-
Ja vielen Dank so klappts super.
Gruß
Xanas
Similar Threads
-
By anwenderi5 in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 14-01-09, 12:29
-
By schatte in forum NEWSboard Programmierung
Antworten: 19
Letzter Beitrag: 10-01-07, 11:32
-
By Stoeberl in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 10-01-07, 10:58
-
By jth in forum NEWSboard Programmierung
Antworten: 1
Letzter Beitrag: 21-12-06, 11:13
-
By ASY in forum NEWSboard Server Software
Antworten: 13
Letzter Beitrag: 11-07-05, 16:26
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