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

Chapter 6 285

USING VPLUS INTRINSICS

INTRINSIC DESCRIPTIONS

10 WINDOW-ENHANCE PIC X(4).

10 WINDOW-POSITION PIC S9(4) COMP.

01 INFOBUFLEN PIC S9(4) COMP VALUE 21.

PROCEDURE DIVISION.

MOVE SPACES TO INFOBUF.

MOVE 1 TO NUMBER-OF-ENTRIES.

MOVE 19 TO ENTRY-LENGTH.

CALL "VGETFILEINFO" USING COMAREA, INFOBUF, INFOBUFLEN.

The example shown above illustrates the data declaration of

infobuf

and

infobuflen

and

the passing of parameters to VGETFILEINFO. Note that before the intrinsic is called,

infobuf

is initialized to spaces (

not

zeros). The intrinsic copies 19 two-byte words of

information about the open forms ﬁle into

infobuf