HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

Appendix A 415
SAMPLE PROGRAMS
SPL
$PAGE" ERROR"
<<****************************************************************>>
<< >>
<< ERROR >>
<< >>
<<****************************************************************>>
PROCEDURE ERROR;
BEGIN
IF ERRORS THEN << WILL ONLY HANDLE FIRST ERROR! >>
RETURN;
ERRORS := TRUE;
MESSAGE’BUF := " ";
VERRMSG (COMAREA, MESSAGE’BUF(1), MESSAGE’BUF’LEN, MSGLEN);
MSGLEN := MSGLEN + 1;
COM’STATUS := 0;
VPUTWINDOW (COMAREA MESSAGE’BUF, MSGLEN);
END; << ERROR >>