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

422 AppendixA
SAMPLE PROGRAMS
SPL
$PAGE " EXIT"
<<****************************************************************>>
<< >>
<< EXIT >>
<< >>
<<****************************************************************>>
PROCEDURE EXIT;
BEGIN
BYTE ARRAY LOCAL’MESSAGE’BUF (0:80);
INTEGER LOCAL’MSGLEN;
INTRINSIC PRINT;
SUBROUTINE PRINT’MSG;
BEGIN
VERRMSG (COMAREA, LOCAL’MESSAGE’BUF, MESSAGE’BUF’LEN,
LOCAL’MSGLEN);
PRINT (LOCAL’MESSAGE’BUF, -LOCAL’MSGLEN, 0);
COM’STATUS := 0;
END;
<< FIRST, CLOSE TERMINAL >>
COM’STATUS := 0;
VCLOSETERM (COMAREA);
IF COM’STATUS <> 0 THEN
PRINT’MSG;
<< NOW, BATCH FILE >>
IF BATCH THEN
IF ERRORS THEN
PRINT (MESSAGE’WBUF, -MSGLEN, 0) << MSG FROM COLLECT >>
ELSE << OK TO GO AHEAD >>
BEGIN
VCLOSEBATCH (COMAREA);
IF COM’STATUS <> 0 THEN
PRINT’MSG;
end
else
if errors then
print (message’wbuf, -msglen, 0); << msg from collect >>
<< NOW, CLOSE FORMS FILE >>
VCLOSEFORMF (COMAREA);
IF COM’STATUS <> 0 THEN
PRINT’MSG;
END; << EXIT >>