Lets you display data on a form and collect data from a VAX TDMS
or DEC FMS form.
Format
DISPLAY_FORM form-name IN file-name
[USING statement-1]
[RETRIEVE [USING] statement-2]
1 – Arguments
form-name
Is the name of the VAX TDMS or DEC FMS form to be used with the
domain.
file-name
Is the file specification of the form library file containing
the form. File-name can be a VAX TDMS request library file or
an DEC FMS forms library. The default file type for VAX TDMS
request library files is .RLB; the default file type for DEC FMS
form libraries is .FLB. A complete file specification has the
following format:
node-spec::device:[directory]file-name.type;version
statement-1
Is a DEC DATATRIEVE statement or a series of statements within
a BEGIN-END block. Statement-1 can include one or more PUT_FORM
assignment statements for assigning values to fields on a form.
The PUT_FORM statement has the following format:
PUT_FORM form-field = value-expression
form-field
Is the name of a field in a form.
value-expression
Is any DEC DATATRIEVE value expression.
statement-2
Is a DEC DATATRIEVE statement or a series of statements within
a BEGIN-END block. Statement-2 can include GET_FORM value
expressions for assigning values on a form to DEC DATATRIEVE
fields or variables.
The GET_FORM value expression has the following format:
GET_FORM form-field
form-field
Is the name of a field in a form.
2 – Examples
The following example shows that you can display a form for
a domain even if the form was not specified in the domain
definition:
DTR> DISPLAY_FORM YACHTF IN FORMSLIB;
The following example displays the MANUFACTURER and MODEL fields
on a form for the first five records of YACHTS:
DTR> FOR FIRST 5 YACHTS
CON> DISPLAY_FORM YACHTF IN FORMSLIB USING
CON> BEGIN
CON> PUT_FORM MANUFA = MANUFACTURER
CON> PUT_FORM MODEL = MODEL
CON> END;
The following example displays the MANUFACTURER and MODEL fields
on a form for the first record of YACHTS and assigns the values
to two variables, BUILT and MODELLER:
DTR> DECLARE BUILT PIC X(10).
DTR> DECLARE MODELLER PIC X(10).
DTR> FOR FIRST 1 YACHTS
CON> DISPLAY_FORM BOATS IN [MORRIS]DTR32.FLB USING
CON> BEGIN
CON> PUT_FORM MANUFA = MANUFACTURER
CON> PUT_FORM MODEL = MODEL
CON> END RETRIEVE USING
CON> BEGIN
CON> BUILT = GET_FORM MANUFA
CON> MODELLER = GET_FORM MODEL
CON> END
DTR> PRINT BUILT
BUILT
ALBERG
DTR> PRINT MODELLER
MODELLER
37 MK II
DTR>
You can use a form to store and modify values for selected
fields. You can also associate more than one form with a single
domain. See the DEC DATATRIEVE Guide to Interfaces for more
examples.