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

A-4
Figure A-1. Forms File Listing, (cont'd)
__________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM1.PUB.W PAGE 4|
| |
| Form: ORDER_LINE |
| Repeat Option: A |
| |
| Next Form Option: C |
| Next Form: ORDER_TOTALS |
| Reproduced From: |
| |
| Comments: 2ND FORM-REPEATED AUTOMATICALLY, APPENDED TO ITSELF |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| *****ABC MANUFACTURING***** |
| |
| Qty___ partnum__ desc_______________________________________ uprice_ tprice |
| ********* ********* ********* ********* ********* ********* ********* **********|
| Field: qty |
| Num: 9 Len: 5 Name: QTY Enh: HI FType: R DType: DIG |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET LINE_COUNT TO LINE_COUNT + 1 \Increment line counter |
| IF LINE_COUNT GE 7 THEN \If more than 7 order lines |
| CHNANGE CFORM TO NOREPEAT \Terminate repeat |
| |
| FIELD |
| GE 1 "Enter quantity equal to or greater than 1." |
| |
| Field: partnum |
| Num: 10 Len: 9 Name: PARTNUM Enh: HI FType: R Dtype: CHAR |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| MATCH Puddd-%%? "First letter must be P, then letter A-Z, 3 digits, " & |
| "hyphen, 3 characters." |
| |
| Field: desc |
| Num: 11 Len: 43 Name: DESC Enh: HI FType: O DType: CHAR |
| Init Value: |
| |
| Field: uprice |
| Num: 12 Len: 7 Name: UPRICE Enh: HI FType: R Dtype: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| JUSTIFY RIGHT |
| STRIP LEADING "0" \Format unit price |
| |
| Field: tprice |
| Num: 13 Len: 7 Name: TPRICE Enh: HI FType: D DType: NUM2 |
| Init Value: |
_______________________________________________________________________________________