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

484 AppendixA
SAMPLE PROGRAMS
PASCAL
END;
PROCEDURE GET_ERROR_MESSAGE;
BEGIN
MSGBUFLEN := MAXWINDOWLEN;
VERRMSG (COMAREA,
MSGBUF,
MSGBUFLEN,
ERRMSGLEN);
END;
PROCEDURE PROMPT_OPERATOR;
BEGIN
GET_ERROR_MESSAGE;
VPUTWINDOW (COMAREA,
MSGBUF,
ERRMSGLEN);
IF COMAREA.CSTATUS <> 0 THEN
BEGIN
STOP_ NOW := TRUE;
ERROR_LOCATION
:= ’**** procedure: Prompt Operator - Window Load’;
GET ERROR_MESSAGE;
END;
IF NOT (STOP_NOW) THEN
BEGIN
{ Display update }
VSHOWFORM {COMAREA};
IF COMAREA.CSTATUS <> 0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION
: = ’**** procedure: Collect Transactions - Display Update’;
GET_ERROR_MESSAGE;
END;
END; { Display update }
END; {Procedure Prompt Operator }
WHILE (FOUND_DATA_ERRORS)
AND (NOT (STOP_NOW))
AND (NOT (DONE_WITH_TRANSACTIONS)) DO
READ_EDIT_FILE_TRANSACTION;