Hallo Michael,
ich hatte da mal ein Program, das immer nur den Kopf (die ersten 2 Zeilen) des Bildschirms angezeigt hat.
Bei einem 80ziger DSPF ist ein Feld UEB auf Zeile 1, 21; Länge 42
Bei einem 132er ein Feld UEB1 auf 1, 21; Länge 94.
Im RPG wird anhand von Programm aus einer Datei die Überschrift dazu geholt und in die Felder UEB und UEB1 gebracht
PHP-Code:
c eval %subst(ueb :
c %int((42-%len(%trimr(pgueb)))/2)+1 :
c %len(%trimr(pgueb)) )
c = %trimr(pgueb)
c eval %subst(ueb1 :
c %int((94-%len(%trimr(pgueb1)))/2)+1:
c %len(%trimr(pgueb1)) )
c = %trimr(pgueb1)
PGUEB + PGUEB1 sind die Felder aus der Datei
Ich hoffe das hilft dir weiter
Gruß
Ronald
Bookmarks