SHWMSGPL
)ATTR
# TYPE(TEXT) INTENS(LOW) SKIP(ON) CAPS(ON)
! TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
¢ TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(GREEN)
$ TYPE(TEXT) INTENS(HIGH) SKIP(OFF) COLOR(BLUE)
@ TYPE(INPUT) HILITE(USCORE) COLOR(WHITE)
% TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE)
} TYPE(OUTPUT) INTENS(LOW) SKIP(ON) CAPS(OFF) COLOR(YELLOW)
)BODY WINDOW(40,08)
¢SHOWMSG+
¢Error level Setup+
+
+Enter the message error level : @Z+
$ 1 Error | ( level -S or -E )
$ 2 Warning | ( level -W, -E or -S )
$ 3 NoMessage | ( no messages at top )
+
)INIT
.ZVARS=ERRLVL
)PROC
VER(&ERRLVL,NB,LIST,1,2,3)
)END |