Guten Morgen,
auch mit ausgeschaltetem SFLDSP bleibt eine Subfile beim nächsten WXFMT auf dem Bildschirm.
Die Kontrollsatz Defi
Code:
R LISTECTL SFLCTL(LISTESFL)
SFLSIZ(0098)
SFLPAG(0005)
CA03
CF06
CA12
RTNCSRLOC(&RCDFMT &RCDFLD &RCDPOS)
CSRLOC(POSY POSX)
OVERLAY
90 SFLDSP
91 SFLDSPCTL
92 SFLCLR
99 SFLEND(*MORE)
RCDFMT 10A H
RCDFLD 10A H
RCDPOS 4S 0H
POSY 3S 0H
POSX 3S 0H
RCDNR1 4S 0H SFLRCDNBR(CURSOR)
Die Bezugszahlen habe ich im Programm benamst
Code:
d INDPTR S * INZ(%ADDR(*IN))
D BEZUGSZ ds based(IndPtr)
d SFLDSP 90 90
d SFLDSPCTL 91 91
d SFLCLR 92 92
D MSGALARM 96 96
D MSGSFLEND 97 97
D SFLEND 99 99
Vor dem nächsten EXFMT rufe ich eine Prozedur auf:
Code:
p SFLClear b
d pi
/FREE
sfldspctl = *off;
sfldsp = *off;
sflclr = *on;
RCDNR1 = 0;
CTLHEADA = ND;
write Listectl;
sfldspctl = *on;
sflclr = *off;
/END-FREE
p SFLclear e
Kann mir jemand erklären, warum das Subfile trotzdem stehen bleibt?
Herzlichen Dank im Voraus
Hubert
Bookmarks