DSPF Header mittig setzen

[brittner]

Morgen,

wie kann ich in RPG IV den Header in die Mitte der Displayfile setzen?


Grüße
Michael

[malzusrex]

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