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

282 Chapter6
USING VPLUS INTRINSICS
INTRINSIC DESCRIPTIONS
Example
COBOL
DATA DIVISION.
:
:
WORKING-STORAGE SECTION.
01 INFOBUF.
05 NUMBER-OF-ENTRIES PIC S9(4) COMP.
05 ENTRY-LENGTH PIC S9(4) COMP.
05 FORM-NAME PIC X(15).
05 FILLER PIC X.
05 ENTRY-TABLE OCCURS 10 TIMES.
10 FIELD-NAME PIC X(15).
10 FILLER PIC X.
10 SCREEN-ORD-NUM PIC S9(4) COMP.
10 FIELD-NUM PIC S9(4) COMP.
10 FIELD-LENGTH PIC S9(4) COMP.
10 FIELD-POSITION PIC S9(4) COMP.
10 FIELD-ENHANCE PIC X(4).
01 INFOBUFLEN PIC S9(4) COMP VALUE 80.
:
:
PROCEDURE DIVISION.
:
:
MOVE SPACES TO INFOBUF.
:
MOVE 5 TO NUMBER-OF-ENTRIES.
MOVE 14 TO ENTRY-LENGTH.
MOVE "FORM1 " TO FORM-NAME.
MOVE 2 TO SCREEN-ORD-NUM.
CALL "VGETFIELDINFO" USING COMAREA, INFOBUF, INFOBUFLEN.
The example shown above illustrates the data declaration of infobuf and infobuflen and
the passing of parameters to VGETFIELDINFO. Note that before the intrinsic is called,
infobuf is initialized to spaces ( not zeros). The intrinsic copies 14 two-byte words of
information about fields 2 through 6 of form FORM 1 into
infobuf .