HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)
Chapter 6 351
USING VPLUS INTRINSICS
INTRINSIC DESCRIPTIONS
MOVE 1 TO FORM-OR-GLOB.
MOVE 1 TO KEY-NUM.
MOVE "LABEL 1 " TO KEY-LABEL.
CALL "VSETKEYLABEL" USING COMAREA, FORM-OR-GLOB, KEY-NUM, KEY-LABEL.
BASIC
10 INTEGER F,N
20 DIM L$[16]
30 F=1
40 N=2
50 L$="LABEL 1 "
60 CALL VSETKEYLABEL(C[*],F,N,L$)
FORTRAN
INTEGER FORMORGLOB,KEYNUM
CHARACTER*16 LABEL
FORMORGLOB=1
LABEL="LABEL 1 "
CALL VSETKEYLABEL(COMAREA,FORMORGLOB,KEYNUM,LABEL)
SPL/PASCAL
INTEGER
FORM'OR'GLOB,
KEY'NUM;
BYTE ARRAY
KEY'LABEL(0:15);
:
FORM'OR'GLOB:=1;
KEY'NUM:=1;
MOVE KEY'LABEL:="LABEL 1 ";
VSETKEYLABEL(COMAREA,FORM'OR'GLOB,KEY'NUM,KEY'LABEL);