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

308 Chapter6
USING VPLUS INTRINSICS
INTRINSIC DESCRIPTIONS
Example
COBOL
77 NUM-OF-FORMS PIC S9(4)COMP.
77 FORMS-LOADED PIC S9(4)COMP.
77 FORMS PIC X(16).
:
MOVE 1 TO NUM-OF-FORMS
MOVE "FORMA "TO FORMS.
CALL "VLOADFORMS" USING COMAREA, NUM-OF-FORMS, FORMS-LOADED, FORMS.
BASIC
10 INTEGER N,F
15 DIM F$[16]
20 N=1
30 F$="FORMA "
40 CALL VLOADFORMS(C[*],N,F,F$)
FORTRAN
INTEGER*2 NFORM,FLOAD
CHARACTER*16 FORMS
NFORM=1
FORMS="FORMA "
CALL VLOADFORMS(COMAREA,NFORM,FLOAD,FORMS)
SPL/PASCAL
INTEGER
NUM'OF'FORMS,
FORMS'LOADED;
BYTE ARRAY
FORMS(0:15);
:
NUM'OF'FORMS:=1;
MOVE FORMS:="FORMA ";
VLOADFORMS(COMAREA,NUM'OF'FORMS,FORMS'LOADED,FORMS);