tarkusch
28-11-12, 11:01
Hallo,
ich wollte bei leerem Sfl, einfach einen Text ausgeben.
Aber leider Funktioniert das anscheinend nur bei mir in
einem Window.
A R SFL1CLEAR
A SLNO(03)
A CLRL(07)
A OVERLAY
A
A R SFL1EMPTY
A OVERLAY
A 10 30'!! no records found !!'
A DSPATR(BL)
A COLOR(RED)
A R FMTC1 SFLCTL(FMTS1)
A SFLSIZ(0015)
A SFLPAG(0014)
A CHANGE(05)
A 20 SFLDSP
A N20 SFLCLR
A 21 SFLDSPCTL
A OVERLAY
IF (SF#1 = 0);
*IN20 = *OFF;
WRITE SFL1CLEAR;
WRITE SFL1EMPTY;
ELSE;
*IN20 = *ON;
ENDIF;
Dank und Gruß
Tarki
ich wollte bei leerem Sfl, einfach einen Text ausgeben.
Aber leider Funktioniert das anscheinend nur bei mir in
einem Window.
A R SFL1CLEAR
A SLNO(03)
A CLRL(07)
A OVERLAY
A
A R SFL1EMPTY
A OVERLAY
A 10 30'!! no records found !!'
A DSPATR(BL)
A COLOR(RED)
A R FMTC1 SFLCTL(FMTS1)
A SFLSIZ(0015)
A SFLPAG(0014)
A CHANGE(05)
A 20 SFLDSP
A N20 SFLCLR
A 21 SFLDSPCTL
A OVERLAY
IF (SF#1 = 0);
*IN20 = *OFF;
WRITE SFL1CLEAR;
WRITE SFL1EMPTY;
ELSE;
*IN20 = *ON;
ENDIF;
Dank und Gruß
Tarki