Datenstruktur - DS - Abbruch Dezimaldatenfehler

[falke34]

Hallo, folgendes Problem

habe zwei Datenstrukturen erstellt
D KEYGRP S LIKE(KEY)

D KEY DS
D FIRMA 1 2P 0
D ARTIKEL 10
D NUM1 11 17 0
D NUM2 18 25 0
D NUM3 26 33 0

die Felder FIRMA, ARTIKEL, NUM1, NUM2 und NUM3
kommen aus einer Datei, um Änderungen zu bemerken schiebe ich die Daten in die KEYGRP
es wird aber ein call gemacht bei dem NUM3 als Parameter übergeben wird, dann wird habe ich einen Dezimaldatenfehler im aufgerufenen PGM

hilfe - hab keine Ahnung
danke für die Hilfe

[Pikachu]

die Felder FIRMA, ARTIKEL, NUM1, NUM2 und NUM3 kommen aus einer Datei, um Änderungen zu bemerken schiebe ich die Daten in die KEYGRP ...

Wie genau? Wie ist denn der entsprechende Programmcode?

[falke34]

Programmcode

D KEYGRP S LIKE(KEY)

D KEY DS
D FIRMA 1 2P 0
D ARTIKEL 10
D NUM1 11 17 0
D NUM2 18 25 0
D NUM3 26 33 0

C EVAL KEYGRP = KEY


C CALL 'TEST'
C PARM KDNR
C PARM NUM3

C *ENTRY PLIST
C PARM KDNR
C PARM NUM3

C NUM3 CABEQ *ZERO ENDE
- hier der Dezimaldatenfehler im Programm TEST

[K_Tippi]

Ist dein Programm ein CL
Da werden num Parameter immer gepackt erwartet!

Klaus

[B.Hauser]

Wenn Du die Datenstruktur KEY initialisierst (Schlüssel-Wort INZ in der DS-Zeile) sollte das Problem behoben sein.

Kleiner Tipp: Schau Dir mal die neueren Programmier-Techniken an. z.B. Datenstruktur-Unterfelder ohne VON/BIS-Angaben, dafür mit absoluter Definition, definieren von Datenstrukturen mit LIKEDS, Prototyping und Free-Format RPG.

Birgitta

[Pikachu]

Wie wird denn NUM3 vor dem CALL bestückt?

[falke34]

Es sind beides RPGLE Programme
Mit dem INZ bin ich nicht weiter gekommen.

NUM3 ist ein Feld aus einer Datei, daher bekomme ich auch den Wert.

Feld Art Länge Länge Position Verwend. Überschrift
LMENG ZONED 8 0 8 53 Beides Liefermenge

Jetzt hab ich das NUM3 als 8P 0 definiert
D LMENG 8P 0

dann hab ich keinen Abbruch mehr !!

Aber wieso??? verstehen tun ich es nicht!!

[Pikachu]

War das Feld wirklich exakt gleich benannt?
Wie ist denn die Definition der beiden Felder in der Umwandlungsliste?

[B.Hauser]

Gezonte Felder, die in Dateien, die in den F-Bestimmungen definiert wurden werden in gepackte Felder konvertiert, es sei den es wird eine (externe) Datenstruktur für die Datei angelegt. Felder in Datenstrukturen werden so ausgegeben wie sie definiert wurden, d.h. gezonte Felder bleiben gezont.

In Deiner Datenstruktur wurden die Felder übrigens auch gepackt definiert (numerische Felder ohne Angabe des Datentypen P/S/I/U werden als gepackte Felder definiert). Für gezonte Felder muss explizit der Datentyp S angegeben werden.

Bei der Parameter-Übergabe über (*Entry) PList wird ein Pointer auf das (gepackte) Feld übergeben. Es erfolgt keinerlei Prüfung. Eine Parameter-Prüfung und ggf. interne Konvertierung in den erwarteten Datentypen (bei input only Parametern) erfolgt nur bei Verwendung von Prototyping.

Die ganze Konvertiererei von gepackten und gezonten numerischen Feldern ist schon UUUUUUUUUralt und kommt aus der Zeit als Speicherplatz knapp und teuer war.

Anbei ein Link zu der Konvertierung von numerischen Feldern in RPG:
Quiz: Numerische Felder in RPG!

Birgitta

[falke34]

Vielen Dank - für die Hilfe

so klappt es - also als gepackt definieren und INZ(*ZERO) setzen

danke
falke34

[BenderD]

... schüttel - und da behaupte nochmal jemand, dass RPG eine "ordentliche" oder gar "moderne" Programmiersprache sei:
Nur einmal der Reihe nach:

- eine Like Definition mit Referenz auf eine andere Datenstruktur definiert ein (binäres) Alfafeld, das musste man früher manchmal machen, heute nimmt man da LIKEDS

- diese Definition hat mit deinem Problem garnichts zu tun!

- die Deklaration einer Datenstruktur ist eine (binäres) Alfafeld, mit überlagerten Feldern, am Anfang stehen da Blanks drin, was Dezimaldatenfehler zur Folge hat, wenn man ein numerisches Unterfeld an numerische Felder zuweist.

- das passiert ebenfalls - im aufgerufenen Programm (auch hierauf kommt man nur mit 10 Jahren RPG), wenn man das als Parameter für ein numerisches Feld beim call verwendet.

- mit dem Schlüsselwort INZ bei dem Datenstrukturnamen, wird jetzt nicht mehr das Alfafeld initialisiert, sondern die Unterfelder (auf sowas kommt man nur nach mindestens 10 Jahren RPG)

- einen Dezimaldatenfehler im aufrufenden Programm bekommt man ebenfalls hin, wenn die numerischen Formate voneinander abweichen.

- mit abweichenden Kommastellen klappts meistens, ist dann aber falsch

- stabiler ist das Ganze wenn man Prototypen und Callp verwendet und - die Prototypen übereinstimmen.

naja: Raten, Probieren, Gehtnicht

D*B

Programmcode

D KEYGRP S LIKE(KEY)

D KEY DS
D FIRMA 1 2P 0
D ARTIKEL 10
D NUM1 11 17 0
D NUM2 18 25 0
D NUM3 26 33 0

C EVAL KEYGRP = KEY


C CALL 'TEST'
C PARM KDNR
C PARM NUM3

C *ENTRY PLIST
C PARM KDNR
C PARM NUM3

C NUM3 CABEQ *ZERO ENDE
- hier der Dezimaldatenfehler im Programm TEST