/* * * PUT ERROR MSG TO CONSOLE * * */ PUTERR: PROC (ERRMSG); /* THE FOLLOWING PUTS AN ERROR MESSAGE TO THE CONSOLE */ DCL ERRMSG CHAR(80) VARYING; DCL (I,J) BIN(15); DCL CONOUT ENTRY(CHAR(1)); DCL EOL ENTRY(BIN(7),BIN(7)); DCL PUTMSG ENTRY(BIN(7),BIN(7),CHAR(80) VARYING); DO I=1 TO 5; CALL EOL(24,1); CALL CONOUT(ASCII(07)); /* BEL */ CALL PUTMSG(24,1,ERRMSG); DO J=1 TO 10000; END; CALL EOL(24,1); DO J=1 TO 5000; END; END; CALL EOL(24,1); END PUTERR;