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

428 AppendixA
SAMPLE PROGRAMS
SPL
ERRORS := FALSE;
VSHOWFORM (COMAREA);
CHECK’ERROR;
COM’SHOWCONTROL := 0; << CLEAR >>
IF COM’DBUFLEN <= 0 AND << DONT READ!!! >>
COM’REPEATOPT=NOREPEAT AND COM’NFOPT <> NORM THEN
BEGIN
IF NOT ERRORS AND BATCH THEN
BEGIN
VWRITEBATCH (COMAREA).
CHECK’ERROR;
IF NOT ERRORS THEN
BEGIN
COM’RECNUM := COM’RECNUM + 1D;
IF (COM’RECNUM MOD DOUBLE(PARMVAL) = 0D) THEN
VPOSTBATCH (COMAREA);
END;
END;
END
ELSE << IS NORMAL FORM >>
BEGIN
VREADFIELDS (COMAREA);
CHECK’ERROR;
if com’lastkey <> 0 then
if com’term’type = 15 or << HP3075 >>
com’term’type = 16 then << Hp3076 >>
if com’keyboard’type = 1 then << Numeric keyboard >>
com’lastkey := com’lastkey - 16;
IF NOT ERRORS THEN
CASE COM’LASTKEY OF
BEGIN
<< ENTERKEY: >>
BEGIN
VFIELDEDITS (COMAREA);
CHECK’EDIT’ERROR;
IF NOT ERRORS THEN
BEGIN
VFINISHFORM (COMAREA);
CHECK’EDIT’ERROR;
IF NOT ERRORS AND BATCH THEN
BEGIN
VWRITEBATCH (COMAREA);
CHECK’ERROR;
IF NOT ERRORS THEN
BEGIN
COM’RECNUM := COM’RECNUM + 1D;
IF (COM’RECNUM MOD DOUBLE(PARMVAL) = 0D) THEN
VPOSTBATCH (COMAREA);