Moin, moin,

folgende Anforderung kann ich zur Zeit nur mit einem workaround (zumindest nach meiner Ansícht) lösen.
PHP-Code:
     ˜*****************************************************************        
     D BPER            s              8  0       inz
(20120817)
     
##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:
PHP-Code:
      /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