HP 3000 Manuals

HP Data Entry and Forms Management System (VPLUS/V)

VINITFORM 

Initializes fields in data buffer according to specifications defined in
the initialize phase of field definition.  Both VOPENFORMF and
VGETNEXTFORM must have been executed successfully prior to calling
VINITFORM.

Syntax 

              VINITFORM {comarea}

Parameters 

comarea          Must be comarea name specified when the forms file was
                 opened with VOPENFORMF. If not already set, the
                 following comarea items must be set before calling
                 VINITFORM:

                 cstatus          Set to zero

                 comarealen       Set to total number of two-byte words
                                  in comarea.

                 VINITFORM may set the following comarea values:

                 cstatus          Set to non-zero value if call
                                  unsuccessful.

                 numerrs          Set to total number of fields in which
                                  errors were detected.

                 nfname           Set to new next form name, if name
                                  changed by processing specifications.

                 repeatapp        Set to new current form code, if code
                                  changed by processing specifications.

                 freezapp         Set to new next form code, if code
                                  changed by processing specifications.

Discussion 

Certain values may be assigned to fields as initial values.  These values
are determined by special processing specifications that are explicitly
or implicitly defined as part of the initialize phase of field processing
using FORMSPEC. These values include any initial values specified on the
Field Menus for the form.  If no initial values were specified, all
fields are initialized to blanks by VINITFORM. If the form being
initialized is a child or sibling to the previous form, data from the
previous form is transferred to this form (with conversion if necessary)
before initializations occur.  If a field in a child or sibling form must
be initialized to blanks, use $EMPTY as an initial value.

VINITFORM only resets the field error flag if the field is initialized
explicitly by initialization phase (INIT) processing specifications.

Example 

COBOL

     CALL "VINITFORM" USING COMAREA.

BASIC

     140 CALL VINITFORM(Cl(*))

FORTRAN

     CALL VINITFORM(COMAREA)

SPL/PASCAL

     VINITFORM(COMAREA);

The calls shown above set initial values in the data buffer area of
memory according to initialize specifications defined for each field in
the current form.

MPE/iX 5.0 Documentation