Morgen,
wie kann ich in RPG IV den Header in die Mitte der Displayfile setzen?
Grüße
Michael
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
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