Inline COBOL Error Display Utility

Learn how to quickly debug compile time errors

Return to article

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

Return to article