editcode

[Jokersams]

Also ich versuch es grad in /free RPG hinzubekommen, erhalte aber ständig nur kompilierfehlermeldungen.

Hat evtl. jemand eine Art Muster an dem ich mich richten könnte ?

LG

[B.Hauser]

Entfern das Eval in dem Beispiel von malzusrex und setze einen Strichpunkt ans Ende und schon sollte es Free-Format sein.

Ansonsten kannst Du Dir mit RDp (RSE) einen fixen Code ins Free-Format umsetzten lassen.

... ansonsten solltes Du vielleicht die Compile-Fehler posten, damit wir Dir helfen können.
... wir wollen Dir allerdings auch nicht deine Schul-/Hausaufgaben machen.

Birgitta

[Jokersams]

Hallo Birgitta,

das ist der verzweifelte Verusch eines Privatprojektes

Die Fehlermeldungen reichen von:
"Eintrag als linke Seite ener Operation EVAL ungültig"
bis:
"Ende des Ausdrucks erwartet"

Wenn ich es jedenfalls so wie in dem Beispiel mache und so korrigiere wie es beschrieben wurde haut es leider nicht hin

Aber ich werde es dann noch ein wenig selber probieren, kann ja mit der Hilfe eigentlich nicht so schwer sein =/

Vielen dank jedenfalls

[KingofKning]

Dann zeig doch einfach mal das was Du gemacht hast.

Könnte hilfreich sein..


GG

[Jokersams]

D ZZINH S 132A
D ZZLAEN S 3S 0
D ZZINHZ S 132A
/free
//
ZZINH = 'abc';
ZZLAEN= 20;
//
%subst(ZZINH:1:ZZLAEN);
%len((ZZLAEN)/2)-2;
return;
/end-free

Das war jetzt irgendwie mein Grundgedanke, hänge mit meine Gedanken aber immer mehr und drehe mich im kreis

wobei das len eben nur aus verzweiflung dazu kam und es keinerlei sinn dort macht ^^

[Fuerchau]

Nimm doch obigen %subst:

Zielfeld=*blank;
%subst(Zielfeld:
%int((%size(Zielfeld)-%len(%trim(Quellfeld)))/2)+1 :
%len(%trim(Quellfeld)) )
= %trim(Quellfeld)

[malzusrex]

d zzinh           s            132                                 
d zzinhz          s            132                                 
d                                                                  
d zzlaen          s              3  0                              
                                                                   
 /free                                                             
   zzinh  = 'abc';                                                 
   zzlaen = 20;                                                    
                                                                   
   %SubSt( zzinhz : %Int(( zzlaen - %Len(%trim( zzinh))) /2)+1:    
           %len( %trim( zzinh)) ) = %Trim( zzinh);                 
 /end-free                                                         
c                   eval      *inlr  =  *on 

[Jokersams]

Klappt perfekt, vielen dank an alle

Werde das Projekt AS400 aber lieber nicht ganz so ernst nehmen.... ist anscheinend nicht meine Welt

LG!

[Fuerchau]

Wie schon beschrieben kannst du dir zzlaen sparen, da die Funktion "%size(Feld)" dir die definierte Länge eines Feldes liefert.

[malzusrex]

Naja, soweit ich den Verstanden habe, ist das Ausgangsfeld immer 132 Zeichen lang und in den Längenfeld steht drinn, wieviele Zeichen er eigentlich maximal haben will

[Fuerchau]

Stimmt, da hast du recht.
Ich hatte mir da mal (ca. 1998) eine Unterfunktion gebastelt .