numerisches Feld auf numerischen Inhalt prüfen free

[Peet]

Hallo zusammen,

ich bekomme aus der S36 einen Satz, in dem mehrere numerische Felder nicht korrekt gefüllt bzw. im alten RPG36 erst gar nicht ausgegeben werden und damit auch nicht initialisiert sind !

Ich habe früher schon mal, aber dann pro Feld, die Länge auf *all x'00' innerhalb einer DS mit %subst abgefragt, das Feld selber konnte ich ja nicht abfragen :=)

Kann mir jemand sagen, wie man heute im FreeRpg solche "Probleme" am saubersten lösen kann ??? ...am besten ohne die jeweilige Feldlänge berücksichtigen zu müssen ...

Vielen Dank vorab und Vg.

[K_Tippi]

Hallo den TESTN gibt es ja nicht mehr,
Ich habe mal vor vielen Jahren (nach der UmstelLung von S/36 -> as/400 das mittels RPG Programm gelöst
Beim Programm umwandeln den Parameter : Dezimaldatenfehler ignorieren . *YES setzen.
dann den Satz einlesen und wieder ausgeben. (Datei muss aber Beschreiben sein, also nicht alles in einem Feld) Habe damals sogar ein Programm geschrieben, was die DDS einließt und ein RPG Progamm schreibt, Umwandelt und ausführt. (lang lang ist's her)
Wenn du die Feldläng kennst dann mit %dec - Dazu gibt es von Baldur einen Beitrag von 2004 suche mal hier nach TESTN
Klaus

[camouflage]

Guckst Du mal hier.
https://www.rpgpgm.com/2013/11/valid...out-testn.html

Simon wurde nicht umsonst dieses Jahr IBM Champion. Zu Recht wie ich finde.
Abgesehen davon hat es hier im Forum ähnliche Koryphäen ;-)

[Fuerchau]

Die allgemeingültige Variante (im obigen Link beschrieben) ist:

%DEC(Feld:%size(Feld):%decpos(Feld))

mit Monitor. Dasselbe gilt auch bei "eval testfeld = feld", wobei man "eval" auch weg lassen kann.
Letzteres ist das am schnellsten zu kodierende.
Der Nachteil ist halt, dass jedes Feld einzeln in eine Monitorgroup gepackt werden muss.

Dies wirkt auf zoned genauso wie auf packed. %size() gibt die Anzahl Stellen, %decpos() die Anzahl Nachkomma. Da %dec() ja nicht dynamisch ist, die Werte also konstan sein müssen, muss man hald jedes Feld prüfen.
TESTN funktioniert ja weiterin als fixed Anweisung. Man kann in Fullyfree durchaus mal ohne Aufwand eine C-Anweisung einschieben.
TESTN hält allerdings bei Zoned das "Ü" (x'D0' - x'D9') auf der rechten Seite für N-negativ.

[Peet]

Hallo zusammen,

ich bekomme aus der S36 einen Satz, in dem mehrere numerische Felder nicht korrekt gefüllt bzw. im alten RPG36 erst gar nicht ausgegeben werden und damit auch nicht initialisiert sind !

Ich habe früher schon mal, aber dann pro Feld, die Länge auf *all x'00' innerhalb einer DS mit %subst abgefragt, das Feld selber konnte ich ja nicht abfragen :=)

Kann mir jemand sagen, wie man heute im FreeRpg solche "Probleme" am saubersten lösen kann ??? ...am besten ohne die jeweilige Feldlänge berücksichtigen zu müssen ...

Vielen Dank vorab und Vg.

Danke an alle für die Vorschläge !
Vg.