Protect Format

[tarkusch]

Hallo,

habe im Internet erfahren, dass man mit Protect ein Fmt schützen kann.

Aber ich habe jetzt hin und her probiert und ich bekomme einfach nur einen schwarzen Schirm ohne Inhalt angezeigt, obwohl wenn ich nur EXFMT LAGERF1 ausgebe Inhalte vorhanden sind.

DDS:


A R FMTPROT
A OVERLAY
A PROTECT
A PROTCT 1A O 2 2

PGM:

Write LAGERF1;
ExFmt FMTPROT;

Wo liegt bei mir der Fehler begraben?

[Robi]

Was ist den das Ziel? Was willst du erreichen / verhindern?

[Fuerchau]

Das 1. Problem ist wohl, dass LAGERF1 und FMTPROT sich irgendwo überlappen.
Wenn ein Format ein anderes überlappt, wird das überlappte format komplett entfernt.
Da hilft auch kein OVERLAY.
Die Angabe von OVERLAY verhindert nur das vorherige Löschen des Bildschirmes.

Um nun Protect zu verwenden, muss das Format LAGERF1 z.B. von Zeile 1 - 22 gehen und das Format FMTPROT dann Zeile 23 belegen.

Anstelle von OVERLAY kannst du auch CLRL(*NO) verwenden, dann wird wirklich nichts gelöscht.

[tarkusch]

Was ist den das Ziel? Was willst du erreichen / verhindern?

Ich wollte es einmal im Anzeige Modus anzeigen und einmal im Änderungsmodus.

[Fuerchau]

Der einfachere Weg ist einfach eine BZ mit DSPATR(PR) auf jeden Feld:

49 DSPATR(PR)
N49 DSPATR(UL)

Mit den anderen Methoden verschwindet das Underline nicht und es verwirrt nur die Anwender :).