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

Appendix A 483
SAMPLE PROGRAMS
PASCAL
INFOBUFLEN : SMALL_INT;
MSGBUF : PAC MAXWINDOWLEN;
MSGBUFLEN : SMALL_INT;
ERRMSGLEN : SMALL_INT;
NBR_TXN_COLLECTED : INTEGER;
NUMSPECS : SMALL_INT;
STOP_NOW : BOOLEAN;
TXN_FILE : TEXT;
{ Procedure Declarations }
PROCEDURE VCHANGEFIELD ; INTRINSIC;
PROCEDURE VCLOSEFORMF ; INTRINSIC;
PROCEDURE VCLOSETERM ; INTRINSIC;
PROCEDURE VERRMSG ; INTRINSIC;
PROCEDURE VFIELDEDITS ; INTRINSIC;
PROCEDURE VFINISHFORM ; INTRINSIC;
PROCEDURE VGETBUFFER ; INTRINSIC;
PROCEDURE VGETFIELDINFO ; INTRINSIC;
PROCEDURE VGETNEXTFORM ; INTRINSIC;
PROCEDURE VINITFORM ; INTRINSIC;
PROCEDURE VOPENFORMF ; INTRINSIC;
PROCEDURE VOPENTERM ; INTRINSIC;
PROCEDURE VPUTWINDOW ; INTRINSIC;
PROCEDURE VREADFIELDS ; INTRINSIC;
PROCEDURE VSHOWFORM ; INTRINSIC;
PROCEDURE DISPLAY_SYSTEM_ERROR;
BEGIN
WRITELN (’**** Transaction collection facility detected system ’,
’error at: ’,
ERROR_LOCATION);
WRITELN (’**** The error messaged returned is:’);
WRITELN (’**** ’, MSGBUF : MSGBUFLEN);
END;
PROCEDURE CLEANUP_AFTER_WORK;
{ Note that this procedure unconditionally attempts to close
the forms file and terminal }
BEGIN
CLOSE (TXN_FILE);
COMAREA.CSTATUS := 0;
VCLOSEFORMF (COMAREA);
COMAREA.CSTATUS := 0;
VCLOSETERM (COMAREA);