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

284 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 ENTRY-TABLE OCCURS 1 TIMES.
10 FILE-VERSION PIC S9(8) COMP.
10 NUMBER-OF-FORMS PIC S9(4) COMP.
10 MAX-FIELDS PIC S9(4) COMP.
10 MAX-BUFSIZE PIC S9(4) COMP.
10 SAVE-FIELDS PIC S9(4) COMP.
10 HEAD-FORM PIC X(15).
10 FILLER PIC X.
10 ERROR-ENHANCE PIC X(4).
Table 6-11. File Information Buffer
Data Type Position Contents Comments
Integer
(Two-byte)
1 numofentries Required
2 entrylength Required
Integer
Array
(Four-byte)
3-4 File version
number
A date/time stamp, recorded at last forms file
compile.
Integer
(Two-byte)
5 Number of forms
in file
6 Maximum
number of fields
In any one form
7 Maximum data
buffer size in
two-byte words
Of any one form, plus up to one additional
two-byte word.
8 Number of save
fields in file
Character
Array
9-16 Name of head
form in file
Last byte of position 16 is unused
17-18 Global error
enhancement
Combination of I, H, U, B, 1-8, or NONE.
19-20 Global window
enhancement
Combination of I, H, U, B, 1-8, or NONE.
Integer
(Two-byte)
21 Position of
window
Line number, 0-23. The line closest to the top of
the form is 0; 255 means no window.