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

Appendix A 485
SAMPLE PROGRAMS
PASCAL
END;
END; { Procedure Collect Transactions }
PROCEDURE SETUP_FOR_WORK;
BEGIN
{ Init Comarea }
COMAREA := COMAREA_INIT;
{ Open Transaction File so that new transactions are
added to those already in the file }
APPEND (TXN_FILE, ’PAYTXN’);
{ Open forms file }
FILENAME := ’PAYROLL.WORK.ADMIN’;
VOPENFORMF (COMAREA,
FILENAME);
IF COMAREA.CSTATUS <> 0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION
:= ’**** procedure: Setup For Work - Forms File Open’;
GET_ERROR_MESSAGE;
END;
IF NOT (STOP_NOW) THEN
BEGIN
{ Open terminal }
FILENAME := ’HPTERM’;
VOPENTERM (COMAREA,
FILENAME);
IF COMAREA.CSTATUS <> 0 THEN
BEGIN
STOP_NOW := TRUE;
ERROR_LOCATION
:= ’**** procedure: Setup For Work - Terminal Open’;
GET_ERROR_MESSAGE;
END;
END; { Open terminal }
IF NOT (STOP_NOW) THEN
BEGIN
{ Translate field names to screen orders }