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

412 AppendixA
SAMPLE PROGRAMS
SPL
<< FUNCTION KEY 8 >> ," EXIT
);
GLOB’FORM := 0; << GLOBAL LABELS >>
NUMBER’OF’LABELS := 8;
$$VSETKEYLABELS(COMAREA,GLOB’FORM,NUMBER’OF’LABELS, LABELS);
END;
<<****************************************************************>>
<< >>
<< DO’BROWSE’LABELS >>
<< >>
<<****************************************************************>>
PROCEDURE DO’BROWSE’LABELS;
BEGIN
BYTE ARRAY LABELS(0:127);
INTEGER NUMBER’OF’LABELS,GLOB’FORM;
MOVE LABELS := (
<< FUNCTION KEY 1 >> " FIRST REC "
<< FUNCTION KEY 2 >> ," DELETE REC "
<< FUNCTION KEY 3 >> ," PRINT "
<< FUNCTION KEY 4 >> ,"REFRESH "
<< FUNCTION KEY 5 >> ," PREV REC "
<< FUNCTION KEY 6 >> ," NEXT REC "
<< FUNCTION KEY 7 >> ," COLLECT "
<< FUNCTION KEY 8 >> ," EXIT "
);
GLOB’FORM := 0; << GLOBAL LABELS >>
NUMBER’OF’LABELS := 8;
VSETKEYLABELS(COMAREA,GLOB’FORM,NUMBER’OF’LABELS, LABELS);
END;