Using VPLUS: An Introduction to Forms Design (32209-90004)

5-23
In addition to STRIP and JUSTIFY (illustrated above), FORMSPEC provides
two other formatting statements: FILL and UPSHIFT. The FILL statement
replaces any leading or trailing blanks in a field with any printing
character you choose. The UPSHIFT statements shifts all lowercase
letters to uppercase.
Action
Press MAIN/RESUME to return to the Main Menu. Select X to compile the
forms file and press ENTER. Press EXIT when done.
FORMSPEC compiles the new forms into the forms file ORDFORM1. Until it
is compiled, none of the changes will be effective when used with ENTRY.
Table 5-3. Summary of Current Fields in the ORDER Form
---------------------------------------------------------------------------------------------
|||| ||
| Field ||| | |
|||| ||
---------------------------------------------------------------------------------------------
|| ||| | |
| Num | Name | FType | DType | Processing | Initial |
| | | | | Specifications | Value |
|| ||| | |
---------------------------------------------------------------------------------------------
|| ||| | |
| 8 | ORDNUM | R | CHAR | -- | 100000 |
|| ||| | |
| 1 | ORDATE | D | MDY | SET ORDATE TO $TODAY | -- |
|| ||| | |
| 2 | NAME | O | CHAR | -- | -- |
|| ||| | |
| 3 | ADDRESS | O | CHAR | -- | -- |
|| ||| | |
| 4 | CITY | O | CHAR | -- | -- |
|| ||| | |
| 5 | ST | O | CHAR | IN $STATE | -- |
|| ||| | |
| 6 | ZIP | O | CHAR | MATCH ddddd[-dddd] | -- |
|| ||| | |
| 7 | PHONE | O | CHAR | MATCH [(ddd)]b*ddd-dddd | -- |
|| ||| | |
| 9 |QTY |R |DIG |GE1 |-- |
|| ||| | |
| 10 | PARTNUM | R | CHAR | MATCH Puddd-??? | -- |
|| ||| | |
| 11 | DESCRIPTION | O | CHAR | -- | -- |
|| ||| | |
| 12 | UPRICE | R | NUM2 | JUSTIFY RIGHT | -- |
| | | | | STRIP LEADING "0" | |
|| ||| | |
| 13 | TPRICE | D | NUM2 | SET TPRICE TO QTY * UPRICE | -- |
|| ||| | |
---------------------------------------------------------------------------------------------