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

Chapter 6 289
USING VPLUS INTRINSICS
INTRINSIC DESCRIPTIONS
10 NEXT-FORM PIC X(15).
10 FILLER PIC X.
10 REPEAT-OPTION PIC X.
10 NFORM-OPTION PIC X.
01 INFOBUFLEN PIC S9(4) COMP VALUE 62.
:
PROCEDURE DIVISION.
:
MOVE SPACES TO INFOBUF.
:
MOVE 3 TO NUMBER-OF-ENTRIES.
MOVE 20 TO ENTRY-LENGTH.
MOVE "FORM1 " TO FORM-NAME.
CALL "VGETFORMINFO" USING COMAREA, INFOBUF, INFOBUFLEN.
The example shown above illustrates the data declaration of infobuf and infobuflen and
the passing of parameters to VGETFORMINFO. Note that before the intrinsic is called,
infobuf is initialized to spaces ( not zeros). The intrinsic copies 20 two-byte words of
information about 3 forms in collating sequence order, beginning with the form named
FORM 1, into
infobuf .