free-format unterschiedliche Felddefinitionen

[lucullus]

Moin, moin,

folgende Anforderung kann ich zur Zeit nur mit einem workaround (zumindest nach meiner Ansícht) lösen.

     ˜*****************************************************************        €
     D BPER            s              8  0       inz(20120817)
     D ##BP            s              6  0       inz(*zeros) 

Der Inhalt von BPER soll jetzt linksbündig in ##BP eingestellt werden. Wenn ich die Handbücher richtig verstanden habe, sollte eine enfache Zuweisung (eval) ausreichen.

Folgendes führt aber immer zu einem Programmabbruch:

      /free

           dsply bper;
           //##bp = %dec(%subst(%char(bper):1:6):6:0);
           ##bp = bper;
           dsply ##bp;

          *inlr = *on;

      /end-free 

Auskommentiert habe ich meinen workaround.

Im "klassischen" RPG konnte ich so etwas mit einem "move" lösen. Gibt es im free-format eine "elegantere" Lösung?

Schon mal schönen Dank Eure Anregungen
Gruß

Andreas

[Fuerchau]

Ein Eval führt zu einem Dezimalüberlauf was zu dem MCH-Fehler führt, da der Eval als Z-Add ausgeführt wird.
MOVE hat rechtsbündig übertragen und den Rest halt abgeschnitten. Ein Z-Add hätte den selben Fehler ausgelöst.

Du kannst das halt nur mit einer Overlay-Definition lösen:

D DS
D BPER 8 0
D ##BP 6 0 overlay(BPER:3)

Dann sparst du dir den Eval.

[RobertMack]

Interessehalber: was gefällt Dir an an
##bp=%Dec(%Subst(%Char(bper):1:6):6:0) nicht?

[andreaspr@aon.at]

Wieso überhaupt so kompliziert?

##BP = BPER / 100;

lg Andreas

[lucullus]

Moin, moin,

vielen Dank an Alle!

Der overlay ist mir nicht in den Sinn gekommen, aber das gefällt mir!

Am workaround gefällt mir "massive" Tiparbeit nicht -> Fehlerquelle

Schöness WE allen.

Gruß

Andreas

[Fuerchau]

@Andreas
Damit bekommst du nur den linken Teil, es soll aber der Rechte Teil ermittelt werden.

[andreaspr@aon.at]

@Andreas
Damit bekommst du nur den linken Teil, es soll aber der Rechte Teil ermittelt werden.

Ich dachte dass das die Anforderung ist?
Kann ja sein dass ich grad an legasthenie leide, aber %Subst(%Char(bper):1:6) liefert meines wissens den Linken Teil.

Außerdem

Der Inhalt von BPER soll jetzt linksbündig in ##BP eingestellt werden.

[Fuerchau]

Jepp, das habe ich ja doch überlesen .

[BenderD]

... das Problem ist doch das lesen, nicht das schreiben!!!
fixed format:
move tuch hut
dsply hut
* zeigt Kaninchen vor, erst zu verstehen, wenn man die Deklaration von tuch und hut liest!!!

Overlay ds noch schlimmer!!!
eval hut = tuch;
dsply kaninchen;

jetzt ist sogar der Zusammenhang zwischen kaninchen und hut nur noch in der Deklaration (an völlig anderer Stelle) zu finden.

D*B

der schon weiß, warum für ihn RPG keine ordentliche Programmiersprache ist!

[RobertMack]

Ähem,

wären wir zweisprachig, könnten wir durchaus Gefallen an der selbsterklärenden Schreibweise finden. Das läse sich dann so:

BuchungsPeriodeJ4M2 = %Ziffern(%TeilAus(%Zeichenfolge(Datum8nEur):1:6):6 :0);

[Fuerchau]

Nun ja, wenn man den 1. Beitrag genau liest, sieht man, dass auch der Schreiber da nicht sauber arbeitet:

a) per substr(xxx:1:6) wird der linksbündige teil genommen
b) per "move" wird der rechtsbündige Teil genommen.
Ich habe mich von b) leiten lassen.

@Dieter
Das kann man in anderen Sprachen ja genauso machen in dem man nur mehrere unterschiedlich benannte Zeiger auf den selben Inhalt verwendet, was auch oft genug gemacht wird.

[B.Hauser]

Vielleicht noch eine Anmerkung zu dem o.g. Statement:

##bp = %dec(%subst(%char(bper):1:6):6:0);

%CHAR richtet linksbündig aus und entfernt führende Nullen:
BPER = 20120810 --> ##BP = 201208
BPER = 123456 --> #BP = 123456
BPER = 123 --> Abbruch!

... habe zufällgi gerade eben einen solchen Fehler uns rausgefischt!

Besser wäre in diesem Fall:

##BP = %Int(%Subst(%EditC(BPER: 'X'): 1: 6));

Birgitta