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.