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

Chapter 6 353
USING VPLUS INTRINSICS
INTRINSIC DESCRIPTIONS
77 KEY-LABELS PIC X(32).
:
MOVE 1 TO FORM-OR-GLOB.
MOVE 2 TO NUM-OF-LABELS.
MOVE "LABEL 1 LABEL 2 " TO KEY-LABELS.
CALL "VSETKEYLABELS" USING COMAREA,FORM-OR-GLOB,NUM-OF-LABELS,KEY-LABELS.
BASIC
10 INTEGER F,N
20 DIM L$[32]
30 F=1
40 N=2
50 L$="LABEL 1 LABEL 2 "
60 CALL VSETKEYLABELS(C[*],F,N,L$)
FORTRAN
INTEGER FORMORGLOB,NUMLABELS
CHARACTER*32 LABELS
FORMORGLOB=1
NUMLABELS=2
LABELS="LABEL 1 LABEL 2 "
CALL VSETKEYLABELS(COMAREA,FORMORGLOB,NUMLABELS,LABELS)
SPL/PASCAL
INTEGER
FORM'OR'GLOB,
NUM'OF'LABELS;
BYTE ARRAY
LABELS(0:31);
:
FORM'OR'GLOB:=1;
NUM'OF'LABELS:=2;
MOVE LABELS:="LABEL 1 LABEL 2 ";
VSETKEYLABELS(COMAREA'FORM'OR'GLOB,NUM'OF'LABELS,LABELS);