HP 3000 Manuals HP 3000 Manuals
Appendix A Forms File Listing
______________________________________________________________________________________
| |
| *******************************************************************************|
| * *|
| * FORMSPEC Version B.04.12 *|
| * FRI, AUG 8, 1986, 2:24 PM *|
| * *|
| * ODRFORM1.PUB.W *|
| * *|
| *******************************************************************************|
| Forms File Status |
| Modified: WED, AUG 6, 1986, 3:46 PM |
| Compiled: WED, AUG 6, 1986, 3:46 PM |
| Requires 2474 + 60 words (SUBTRACT 800 for fast forms file) |
| |
| Head Form: ORDER_HEAD |
| Default Display Enhancement: HI |
| Error Enhancement: IU |
| Window Display Line: 1 |
| Window Enhancement: HI |
| |
| THERE ARE 4 SAVE FIELDS IN THIS FORMS FILE: |
| |
| Save Field: SORDNUM Length: 6 Data Type: DIG |
| Init Value: 100001 |
| |
| Save Field: SNAME Length: 42 Data Type: CHAR |
| Init Value: |
| |
| Save Field: STOTNET Length: 10 Data Type: NUM2 |
| Init Value: 0.00 |
| |
| Save Field: LINE_COUNT Length: 2 Data Type: DIG |
| Init Value: |
| |
| There are 3 forms in this forms file: |
| |
| Field Counts Largest Number of |
| Total/Display Field Lines in |
| Only Number Screen Next Form |
| Form Name |
| |
| ORDER_HEAD 8 / 2 16 16 ORDER_LINE |
| ORDER_LINE 5 / 1 26 5 ORDER_TOTALS |
| ORDER_TOTALS 11 / 7 11 21 $HEAD |
| |
______________________________________________________________________________________
Figure A-1. Forms File Listing
_______________________________________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM1.PUB.W PAGE 2|
| |
| Form: ORDER_HEAD |
| Repeat Option: N |
| |
| Next Form Option: F |
| Next Form ORDER_LINE |
| Reproduced From: |
| |
| Comments: EXECUTE THIS FORM FIRST |
| ********* ********* ********* ********* ********* ********* ********* ********* |
| |
| *****ABC MANUFACTURING***** |
| |
| ORDER NUMBER: ORDNUM DATE: ORDATE___________ |
| |
| SHIP TO: |
| |
| NAME: NAME_______________________________________ |
| ADDRESS: ADDRESS____________________________________ |
| CITY: CITY______________________________STATE:_ST |
| ZIP: ZIP_____________ TELEPHONE: PHONE_________ |
| |
| UNIT TOTAL |
| QTY PART NO DESCRIPTION PRICE PRICE |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Field: ORDNUM |
| Num: 8 Len: 6 Name: ORDNUM Enh: HI FType: D DType: DIG |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDNUM TO SORDNUM \Move order number to this field |
| SET STOTNET TO 0 \Initialize totals save field |
| SET LINE_COUNT TO 0 \Initialize counter for order lines |
| |
| Field: ORDATE |
| Num: 1 Len: 17 Name: ORDATE Enh: HI FType: D DType: MDY |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDATE TO $TODAY \Assign today's date to field |
| |
| Field: NAME |
| Num: 2 Len: 42 Name: NAME Enh: HI FType: R DType: CHAR |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET SNAME TO NAME \Save customer name for ORDER_TOTALS |
_______________________________________________________________________________________
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 3 |
| |
| FORM NAME: ORDER_HEAD EXECUTE THIS FORM FIRST |
| |
| Field: ADDRESS |
| Num: 3 Len: 42 Name: ADDRESS Enh: HI FType: 0 DType: CHAR|
| Init Value: |
| |
| |
| Field: CITY |
| Num: 4 Len: 30 Name: CITY Enh: HI FType: 0 Dtype: CHAR|
| Init Value: |
| |
| |
| Field: ST |
| Num: 5 Len: 2 Name: ST Enh: HI FType: 0 DType: CHAR|
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| IN $STATE "ENTER 2-CHARACTER LEGITIMATE STATE CODE." |
| |
| |
| Field: ZIP |
| Num: 6 Len: 10 Name: ZIP Enh: HI FType: 0 DType: CHAR|
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| MATCH ddddd[-dddd] "Enter ZIP code, must be either 5 digits" & |
| "or 9 digits and a hyphen." |
| |
| Field: PHONE |
| Num: 7 Len: 14 Name: PHONE Enh: HI FType: 0 DType: CHAR|
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| MATCH [(ddd)]b*ddd-dddd "Enter phone number; any area code must be in " & |
| "parentheses; e.g., (408) 739-8808." |
| |
______________________________________________________________________________________
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: |
_______________________________________________________________________________________
Figure A-1. Forms File Listing, (cont'd)
_______________________________________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM.PUB.W PAGE 5|
| |
| FORM NAME: ORDER_LINE 2ND FORM-REPEATED AUTOMATIALLY, APPENDED TO ITSELF|
| |
| *** PROCESSING SPECIFICATIONS *** |
| |
| IF EQ $EMPTY THEN \In Collect mode, |
| SET TPRICE TO QTY * UPRICE \ calculate line price |
| SET STOTNET TO STOTNET + TPRICE \ and accumulate it in save field. |
| |
| ELSE \In Browse mode |
| SET STOTNET TO STOTNET - TPRICE \ subtract old line price |
| SET TPRICE TO QTY * UPRICE \ calculate new line price |
| SET STOTNET TO STOTNET + TPRICE \ and accumulate it in save field. |
| |
_______________________________________________________________________________________
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 6|
| |
| Form: ORDER_TOTALS |
| Repeat Option: N |
| |
| Next Form Option: C |
| Next Form: $HEAD |
| Reproduced from: |
| |
| Comments: 3RD FORM OF A 3-PART ORDER TRANSACTION |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Order Number: [ordnum] Date: [ordate___________] |
| Total Net Price: [totnet______] |
| Discount % : [dp] Discount: [discnt______] |
| Subtotal: [sub_________] |
| Tax Rate : [tr__] tax: [tax_________] |
| Shipping: [ship________] |
| TOTAL: [total_______] |
| Customer Name: [name_____________________________________________] |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Field: ordnum |
| Num: 1 Len: 6 Name: ORDNUM Enh: HI FType: R DType: DIG |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDNUM TO SORDNUM \Move order number from save fields |
| |
| IF SORDNUM GT 999999 THEN \Terminate before 1,000,000 orders |
| CHANGE NFORM TO $END |
| ELSE SET SORDNUM TO SORDNUM + 1 \Otherwise, increment order number |
| |
| Field: ordate |
| Num: 2 Len: 17 Name: ORDATE Enh: HI FType: D DType: MDY |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDATE TO $TODAY \Assign today's date |
_______________________________________________________________________________________
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 7|
| |
| FORM NAME: ORDER_TOTALS 3RD FORM OF A 3-PART ORDER TRANSACTION |
| |
| Field: totnet |
| Num: 3 Len: 10 Name: TOTNET Enh: HI FType: D DType: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET TOTNET TO STOTNET \Set to accumulated totals (collect) |
| |
| FIELD |
| SET TOTNET TO STOTNET |
| |
| Field: dp |
| Num: 4 Len: 2 Name: DISCNT_PERCNT Enh: HI FType: O DType: NUM0 |
| Init Value: 10 |
| |
| Field: discnt |
| Num: 5 Len: 10 Name: DISCNT Enh: HI FType: D DType: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| IF TOTNET GE 1000 THEN \If net price exceeds $999.00 |
| SET DISCNT TO DISCNT_PERCNT % TOTNET \Calculate discount |
| ELSE SET DISCNT TO 0 \Otherwise, set discount to zero |
| |
| Field: sub |
| Num: 6 Len: 10 Name: SUB Enh: HI FType: D DTYPE: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET SUB TO TOTNET - DISCNT \Calculate subtotal |
| |
| Field: tr |
| Num: 7 Len: 4 Name: TAX_RATE Enh: HI FType: R DType: NUM2 |
| Init Value: 6.25 |
| |
| Field: tax |
| Num: 8 Len: 10 Name: TAX Enh: HI FType: D DType: NUM2 |
| *** PROCESSING SPECIFICATIONS *** |
| SET TAX TO TAX_RATE % SUB \Calculate tax |
| |
| Field: ship |
| Num: 9 Len: 10 Name: SHIP Enh: HI FType: O DType: NUM2 |
| Init Value: .00 |
| *** PROCESSING SPECIFICATIONS *** |
| JUSTIFY RIGHT |
| STRIP LEADING "0" \Format Shipping cost |
| |
_______________________________________________________________________________________
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 8|
| |
| FORM NAME: ORDER_TOTALS 3RD FORM OF A 3-PART ORDER TRANSACTION |
| |
| Field: total |
| Num: 10 Len: 10 Name: TOTAL Enh: HI FType: D DType: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET TOTAL TO SUB + TAX + SHIP \Calculate total for order |
| |
| Field: Name |
| Num: 11 Len: 47 Name: NAME Enh: HI FType: D DType: CHAR |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET NAME TO SNAME \Move customer name from save field |
| |
_______________________________________________________________________________________
Figure A-1. Forms File Listing, (cont'd)