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

414 AppendixA
SAMPLE PROGRAMS
SPL
$PAGE " ENTRY’ERROR"
<<****************************************************************>>
<< >>
<< ENTRY’ERROR >>
<< >>
<<****************************************************************>>
PROCEDURE ENTRY’ERROR (ENTRY’ERROR’NUM);
VALUE ENTRY’ERROR’NUM;
INTEGER ENTRY’ERROR’NUM;
BEGIN
IF ERRORS THEN
RETURN;
ERRORS := TRUE;
CASE ENTRY’ERROR’NUM OF
BEGIN
<< 0 IS NOT DEFINED >>
;
<< PREV’NOT’DEFINED: >>
MOVE MESSAGE’BUF :=
" The PREV key is only defined for browse mode.", 2;
<< NO’PREV’RECS: >>
MOVE MESSAGE’BUF :=
" There are no previous batch records.", 2;
<< NOT’REPEATING: >>
MOVE MESSAGE’BUF :=
" The NEXT key is not defined for a non-repeating form.", 2;
<< DELETE’NOT’DEFINED: >>
MOVE MESSAGE’BUF :=
" The DELETE key is only defined for browse mode.", 2;
<< NO’BATCH’RECS: >>
MOVE MESSAGE’BUF :=
" There are no batch records to browse.", 2;
<< NO’BATCH: >>
MOVE MESSAGE’BUF :=
" No batch file was specified, so browse is not allowed.",2;
<< NO’NEXT’REC >>
MOVE MESSAGE’BUF :=
" There are no more batch records.", 2;
END;
MSGLEN := TOS - @MESSAGE’BUF;
VPUTWINDOW (COMAREA, MESSAGE’BUF, MSGLEN);
END; << ENTRY’ERROR >>