Form DEMO_ORDER_ENTRY_FORM /* COPYRIGHT (c) 1989, 1990, 1991 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. Please refer to the Forms$Demo_guide.ps/txt in Forms$Examples for a full description of this demo. This version updated for V1.1 14 July 1989 This version updated for V1.2 27 February 1990 This version updated for V1.3 27 February 1990 This version updated for V1.4 31 October 1991 */ Form Data STOCK_CODE Character(10) DESCRIPTION Character(32) UNITS_PER_PACK Word Integer ORDER_QTY Word Integer QOH Word Integer QTY_SENT Word Integer QTY_TO_FOLLOW Word Integer PRICE Integer(6) ENTRY_VALUE Integer(8) COMMENT_LINE_1 Character(65) COMMENT_LINE_2 Character(65) CURRENT_ORDER_LINE Word Integer CURRENT_FIRST_LINE Word Integer ORDER_LINE_INDEX Word Integer Value 1 Group ORDER_LINES Occurs 10 Base 1 Current CURRENT_ORDER_LINE LINE_GRP_LEFT_MARKER Character(1) LINE_NBR Byte Integer NEXT_LINE Byte Integer PREV_LINE Byte Integer FIRST_LINE_ON_DISPLAY Byte Integer LAST_LINE_ON_DISPLAY Byte Integer LINE_STOCK_CODE Character(10) LINE_DESCRIPTION Character(32) LINE_UNITS_PER_PACK Word Integer LINE_QTY Integer(6) LINE_PRICE Integer(6) LINE_VALUE Integer(8) LINE_QTY_ORDERED Integer(6) LINE_QTY_TO_FOLLOW Integer(6) LINE_GRP_RIGHT_MARKER Character(1) End Group FIRST_LINE_DISPLAYED Byte Integer LINES_ON_DISPLAY Byte Integer Value 6 LAST_LINE_DISPLAYED Byte Integer Value 10 LAST_LINE_ON_DISPLAY Byte Integer Value 6 CURRENT_CUSTOMER Character(31) Value "Consolidated Computing Services" ORDER_NUMBER Longword Integer Value 1205 ORDER_VALUE Integer(8) Value 11218600 ACCOUNT_NUMBER Integer(6) Value 3275 AREA_CODE Integer(3) Value 413 CUST_ADDR_L1 Character(20) Value "100 Main Street " CUST_ADDR_L2 Character(20) Value "Boston " CUST_STATE Character(2) Value "MA" CUST_ZIP Integer(9) Value 12565809 DLVR_ADDR_L1 Character(20) Value "32 Pilgrim Road " DLVR_ADDR_L2 Character(20) Value "Riverville " DLVR_STATE Character(2) Value "MA" DLVR_ZIP Integer(9) Value 17026839 CUST_LAST_ORDER Date Value "1989 01 17" CUST_LAST_PAY Date Value "1988 12 23" CUST_LAST_STATEMENT Date Value "1988 12 16" CUST_ACC_BAL Integer(8) Value 56823100 CUST_ORDER_BAL Integer(8) Value 11218600 CUST_CREDIT_LIMIT Integer(8) Value 70000000 ALT_STOCK_CODE Character(10) ALT_STOCK_CODE_PROTECT Character(1) Value "Y" Group BO_ITEMS Occurs 10 LINE_NBR Byte Integer ORDER_NUMBER Longword Integer STAGE Character(4) DATE Date ACCOUNT Integer(6) QTY_SENT Word Integer QTY_TO_FOLLOW Word Integer WHSE Character(4) LINE_VALUE Integer(8) End Group QTY_ALLOCATED Word Integer QTY_ON_ORDER Word Integer QTY_BACK_ORDERED Word Integer End Data Layout CC Device Terminal Type %VT100 End Device Size 24 Lines by 80 Columns Display Viewport Background Color Black Foreground Color Yellow Bold Foreground Color Cyan Reverse Foreground Color Green Viewport MENU_LINE_VP Lines 3 Through 4 Columns 1 Through 80 End Viewport Viewport CUSTOMER_INQ_VP Lines 3 Through 7 Columns 9 Through 33 End Viewport Viewport CUSTOMER_INQ_MENU_VP Lines 5 Through 11 Columns 10 Through 56 End Viewport Viewport CUSTOMER_INQ_DATA_VP Lines 6 Through 16 Columns 10 Through 80 End Viewport Viewport ORDER_INQ_VP Lines 3 Through 8 Columns 45 Through 70 End Viewport Viewport BACK_ORDER_INQ_VP Lines 6 Through 12 Columns 47 Through 71 End Viewport Viewport MAIN_VP Lines 1 Through 14 Columns 1 Through 80 End Viewport Viewport ORDER_ENTRY_VP3 Lines 11 Through 17 Columns 1 Through 80 End Viewport Viewport ORDER_ENTRY_VP6 Lines 15 Through 21 Columns 1 Through 80 End Viewport Viewport INTRO_VP Lines 1 Through 22 Columns 1 Through 80 End Viewport Viewport MESSAGE_VP Lines 23 Through 24 Columns 2 Through 79 End Viewport Viewport MESSAGE_HDR_VP Lines 22 Through 24 Columns 1 Through 80 End Viewport Viewport PRINT_VP For Printing Lines 1 Through 60 Columns 1 Through 80 End Viewport Viewport CLEAR_SCREEN_VP Lines 1 Through 24 Columns 1 Through 80 End Viewport Viewport BO_ITEM_SELECTION_VP Lines 10 Through 14 Columns 48 Through 77 End Viewport Viewport BO_ITEM_DATA_VP Lines 7 Through 21 Columns 1 Through 80 End Viewport Function CLEAR_SCREEN Is %PF4 End Function Function MENU_SELECT Is %SELECT End Function Function PRINT_ALL Is (%PF1 %SELECT) End Function Function UP ITEM Is %UP End Function Function DOWN ITEM Is %DOWN End Function Function ENTER_DATA_TO_GROUP Is %DO End Function Function BEGIN_FROM_INTRO Is %F19 End Function Function INIT_SCROLL_DATA Is %F18 End Function Function PRE_FILL_DATA Is (%PF1 %F18) End Function Function INIT_ENTRY_DATA1 Is (%F17 %DIGIT_ONE) End Function Function INIT_ENTRY_DATA2 Is (%F17 %DIGIT_TWO) End Function Function INIT_ENTRY_DATA3 Is (%F17 %DIGIT_THREE) End Function Function INIT_ENTRY_DATA4 Is (%F17 %DIGIT_FOUR) End Function Function INIT_ENTRY_DATA5 Is (%F17 %DIGIT_FIVE) End Function Function INIT_ENTRY_DATA6 Is (%F17 %DIGIT_SIX) End Function Function SCROLL_LINES_UP Is %NEXT_SCREEN End Function Function SCROLL_LINES_DOWN Is %PREV_SCREEN End Function Function CLEAR_MESSAGE_AREA Is %F20 End Function Function OUTPUT_MESSAGE Is (%PF1 %F20) End Function Internal Response SELECTION_NOT_AVAILABLE Message "" Message "This selection is not available" End Response Internal Response INIT_ORDER_LINE1 Let ORDER_LINES(1).LINE_NBR = 1 Let ORDER_LINES(1).LINE_STOCK_CODE = " MS615-CB" Let ORDER_LINES(1).LINE_DESCRIPTION = "9-MB quad module" Let ORDER_LINES(1).LINE_QTY = 15 Let ORDER_LINES(1).LINE_UNITS_PER_PACK = 1 Let ORDER_LINES(1).LINE_QTY_ORDERED = 15 Let ORDER_LINES(1).LINE_QTY_TO_FOLLOW = 0 Let ORDER_LINES(1).LINE_PRICE = 354800 Let ORDER_LINES(1).LINE_VALUE = 5322000 End Response Internal Response INIT_ORDER_LINE2 Let ORDER_LINES(2).LINE_NBR = 2 Let ORDER_LINES(2).LINE_STOCK_CODE = " BMQ3D-05" Let ORDER_LINES(2).LINE_DESCRIPTION = "Transceiver Cable - 5M" Let ORDER_LINES(2).LINE_QTY = 40 Let ORDER_LINES(2).LINE_UNITS_PER_PACK = 8 Let ORDER_LINES(2).LINE_QTY_ORDERED = 40 Let ORDER_LINES(2).LINE_QTY_TO_FOLLOW = 0 Let ORDER_LINES(2).LINE_PRICE = 8850 Let ORDER_LINES(2).LINE_VALUE = 354000 End Response Internal Response INIT_ORDER_LINE3 Let ORDER_LINES(3).LINE_NBR = 3 Let ORDER_LINES(3).LINE_STOCK_CODE = " CK492-FF" Let ORDER_LINES(3).LINE_DESCRIPTION = "Cabinet Kit" Let ORDER_LINES(3).LINE_QTY = 5 Let ORDER_LINES(3).LINE_UNITS_PER_PACK = 1 Let ORDER_LINES(3).LINE_QTY_ORDERED = 5 Let ORDER_LINES(3).LINE_QTY_TO_FOLLOW = 0 Let ORDER_LINES(3).LINE_PRICE = 16000 Let ORDER_LINES(3).LINE_VALUE = 80000 End Response Internal Response INIT_ORDER_LINE4 Let ORDER_LINES(4).LINE_NBR = 4 Let ORDER_LINES(4).LINE_STOCK_CODE = " RQFXA-Y4" Let ORDER_LINES(4).LINE_DESCRIPTION = "Disk Expansion Kit" Let ORDER_LINES(4).LINE_QTY = 18 Let ORDER_LINES(4).LINE_UNITS_PER_PACK = 1 Let ORDER_LINES(4).LINE_QTY_ORDERED = 18 Let ORDER_LINES(4).LINE_QTY_TO_FOLLOW = 0 Let ORDER_LINES(4).LINE_PRICE = 18800 Let ORDER_LINES(4).LINE_VALUE = 338400 Let ORDER_LINE_INDEX = 5 End Response Internal Response INIT_ORDER_LINES Include INIT_ORDER_LINE1 Include INIT_ORDER_LINE2 Include INIT_ORDER_LINE3 Include INIT_ORDER_LINE4 End Response Internal Response INIT_LINE_NBRS Let ORDER_LINES(1).LINE_NBR = 1 Let ORDER_LINES(1).NEXT_LINE = 2 Let ORDER_LINES(1).PREV_LINE = 1 Let ORDER_LINES(1).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(1).LAST_LINE_ON_DISPLAY = 6 Let ORDER_LINES(2).LINE_NBR = 2 Let ORDER_LINES(2).NEXT_LINE = 3 Let ORDER_LINES(2).PREV_LINE = 1 Let ORDER_LINES(2).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(2).LAST_LINE_ON_DISPLAY = 7 Let ORDER_LINES(3).LINE_NBR = 3 Let ORDER_LINES(3).NEXT_LINE = 4 Let ORDER_LINES(3).PREV_LINE = 2 Let ORDER_LINES(3).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(3).LAST_LINE_ON_DISPLAY = 8 Let ORDER_LINES(4).LINE_NBR = 4 Let ORDER_LINES(4).NEXT_LINE = 5 Let ORDER_LINES(4).PREV_LINE = 3 Let ORDER_LINES(4).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(4).LAST_LINE_ON_DISPLAY = 9 Let ORDER_LINES(5).LINE_NBR = 5 Let ORDER_LINES(5).NEXT_LINE = 6 Let ORDER_LINES(5).PREV_LINE = 4 Let ORDER_LINES(5).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(5).LAST_LINE_ON_DISPLAY = 10 Let ORDER_LINES(6).LINE_NBR = 6 Let ORDER_LINES(6).NEXT_LINE = 7 Let ORDER_LINES(6).PREV_LINE = 5 Let ORDER_LINES(6).FIRST_LINE_ON_DISPLAY = 1 Let ORDER_LINES(6).LAST_LINE_ON_DISPLAY = 10 Let ORDER_LINES(7).LINE_NBR = 7 Let ORDER_LINES(7).NEXT_LINE = 8 Let ORDER_LINES(7).PREV_LINE = 6 Let ORDER_LINES(7).FIRST_LINE_ON_DISPLAY = 2 Let ORDER_LINES(7).LAST_LINE_ON_DISPLAY = 10 Let ORDER_LINES(8).LINE_NBR = 8 Let ORDER_LINES(8).NEXT_LINE = 9 Let ORDER_LINES(8).PREV_LINE = 7 Let ORDER_LINES(8).FIRST_LINE_ON_DISPLAY = 3 Let ORDER_LINES(8).LAST_LINE_ON_DISPLAY = 10 Let ORDER_LINES(9).LINE_NBR = 9 Let ORDER_LINES(9).NEXT_LINE = 10 Let ORDER_LINES(9).PREV_LINE = 8 Let ORDER_LINES(9).FIRST_LINE_ON_DISPLAY = 4 Let ORDER_LINES(9).LAST_LINE_ON_DISPLAY = 10 Let ORDER_LINES(10).LINE_NBR = 10 Let ORDER_LINES(10).NEXT_LINE = 10 Let ORDER_LINES(10).PREV_LINE = 9 Let ORDER_LINES(10).FIRST_LINE_ON_DISPLAY = 5 Let ORDER_LINES(10).LAST_LINE_ON_DISPLAY = 10 End Response Internal Response INIT_ENTRY_PANEL1 Let STOCK_CODE = " DNV16-QD" Let DESCRIPTION = "16-Serial Line Comm" Let UNITS_PER_PACK = 1 Let ORDER_QTY = 4 Let QOH = 180 Let QTY_SENT = 4 Let QTY_TO_FOLLOW = 0 Let PRICE = 495500 Let ENTRY_VALUE = 1982000 End Response Internal Response INIT_ENTRY_PANEL2 Let STOCK_CODE = " B7004-BF" Let DESCRIPTION = "AC Surge Suppressor, 120V/12A" Let UNITS_PER_PACK = 1 Let ORDER_QTY = 2 Let QOH = 1 Let QTY_SENT = 1 Let QTY_TO_FOLLOW = 1 Let PRICE = 29500 Let ENTRY_VALUE = 59000 End Response Internal Response INIT_ENTRY_PANEL3 Let STOCK_CODE = " IEM33-AF" Let DESCRIPTION = "Dual Bit DMA Controller" Let UNITS_PER_PACK = 1 Let ORDER_QTY = 1 Let QOH = 12 Let QTY_SENT = 1 Let QTY_TO_FOLLOW = 0 Let PRICE = 226000 Let ENTRY_VALUE = 226000 End Response Internal Response INIT_ENTRY_PANEL4 Let STOCK_CODE = " DEMPS-BA" Let DESCRIPTION = "Multiport Repeater" Let UNITS_PER_PACK = 2 Let ORDER_QTY = 2 Let QOH = 35 Let QTY_SENT = 2 Let QTY_TO_FOLLOW = 0 Let PRICE = 340000 Let ENTRY_VALUE = 680000 End Response Internal Response INIT_ENTRY_PANEL5 Let STOCK_CODE = " DF128-MA" Let DESCRIPTION = "4800 Sync Modem" Let UNITS_PER_PACK = 1 Let ORDER_QTY = 10 Let QOH = 35 Let QTY_SENT = 10 Let QTY_TO_FOLLOW = 0 Let PRICE = 211000 Let ENTRY_VALUE = 2110000 End Response Internal Response INIT_ENTRY_PANEL6 Let STOCK_CODE = " MXU16-BA" Let DESCRIPTION = "Bootstrap Proms" Let UNITS_PER_PACK = 4 Let ORDER_QTY = 8 Let QOH = 24 Let QTY_SENT = 8 Let QTY_TO_FOLLOW = 0 Let PRICE = 8400 Let ENTRY_VALUE = 67200 End Response Internal Response MOVE_ENTRY_DATA If ((ORDER_LINE_INDEX = LAST_LINE_DISPLAYED) AND (ORDER_LINES(ORDER_LINE_INDEX).LINE_STOCK_CODE <> " ")) Then Message "Area reserved for demonstration order lines is full" Message "You cannot enter further orders" Else Let ORDER_LINES(ORDER_LINE_INDEX).LINE_STOCK_CODE = STOCK_CODE Let ORDER_LINES(ORDER_LINE_INDEX).LINE_DESCRIPTION = DESCRIPTION Let ORDER_LINES(ORDER_LINE_INDEX).LINE_UNITS_PER_PACK = UNITS_PER_PACK Let ORDER_LINES(ORDER_LINE_INDEX).LINE_QTY = QTY_SENT Let ORDER_LINES(ORDER_LINE_INDEX).LINE_QTY_ORDERED = ORDER_QTY Let ORDER_LINES(ORDER_LINE_INDEX).LINE_QTY_TO_FOLLOW = QTY_TO_FOLLOW Let ORDER_LINES(ORDER_LINE_INDEX).LINE_PRICE = PRICE Let ORDER_LINES(ORDER_LINE_INDEX).LINE_VALUE = ENTRY_VALUE Let ORDER_LINE_INDEX = ORDER_LINES(ORDER_LINE_INDEX).NEXT_LINE Reset STOCK_CODE DESCRIPTION ORDER_QTY PRICE ENTRY_VALUE UNITS_PER_PACK QOH QTY_SENT QTY_TO_FOLLOW COMMENT_LINE_1 COMMENT_LINE_2 If ((ORDER_LINE_INDEX > LINES_ON_DISPLAY) AND (ORDER_LINE_INDEX <= LAST_LINE_DISPLAYED)) Then Let FIRST_LINE_DISPLAYED = ORDER_LINES(ORDER_LINE_INDEX).FIRST_LINE_ON_DISPLAY Let LAST_LINE_ON_DISPLAY = ORDER_LINES(FIRST_LINE_DISPLAYED).LAST_LINE_ON_DISPLAY End If End If End Response Internal Response START_OVER Deactivate All Remove All Activate Panel MENU_LINE_PANEL Field STOCK_CODE on ORDER_ENTRY_PANEL Field ORDER_QTY on ORDER_ENTRY_PANEL Field COMMENT_LINE_1 on ORDER_ENTRY_PANEL Field DESCRIPTION on ORDER_ENTRY_PANEL Field PRICE on ORDER_ENTRY_PANEL Field ENTRY_VALUE on ORDER_ENTRY_PANEL Display MAIN_PANEL on MAIN_VP MENU_LINE_PANEL on MENU_LINE_VP ORDER_ENTRY_PANEL on ORDER_ENTRY_VP6 MESSAGE_HDR_PANEL on MESSAGE_HDR_VP Position To Panel ORDER_ENTRY_PANEL End Response Internal Response BEGIN_DEMO Remove All Deactivate All Reset All Include INIT_LINE_NBRS Let FIRST_LINE_DISPLAYED = 1 Let LAST_LINE_ON_DISPLAY = 6 Activate Panel INTRO_PANEL Position To Icon SEE_DEMO On INTRO_PANEL End Response Enable Response Include BEGIN_DEMO End Response Disable Response Remove All End Response Function Response BEGIN_FROM_INTRO Message "" Message "Re-starting demo, please wait..." Include BEGIN_DEMO Message "" Message "" End Response Function Response CLEAR_MESSAGE_AREA Message "" Message "" End Response Function Response OUTPUT_MESSAGE Message "" Message "New shipment due 12 May 1989" End Response Function Response INIT_SCROLL_DATA Include INIT_ORDER_LINES End Response Function Response INIT_ENTRY_DATA1 Include INIT_ENTRY_PANEL1 End Response Function Response INIT_ENTRY_DATA2 Include INIT_ENTRY_PANEL2 End Response Function Response INIT_ENTRY_DATA3 Include INIT_ENTRY_PANEL3 End Response Function Response INIT_ENTRY_DATA4 Include INIT_ENTRY_PANEL4 End Response Function Response INIT_ENTRY_DATA5 Include INIT_ENTRY_PANEL5 End Response Function Response INIT_ENTRY_DATA6 Include INIT_ENTRY_PANEL6 End Response Function Response PRE_FILL_DATA Include INIT_ORDER_LINES Include INIT_ENTRY_PANEL1 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL2 End Response Function Response BOUNDARY CURSOR LEFT If LEFTMOST ITEM Then Message "" Message "No item to the left" Else Position Immediate To Left Item End If End Response Function Response BOUNDARY CURSOR RIGHT If RIGHTMOST ITEM Then Message "" Message "No item to the right" Else Position Immediate To Right Item End If End Response Function Response MENU_SELECT Include SELECTION_NOT_AVAILABLE End Response Function Response CLEAR_SCREEN Activate Wait on CLEAR_SCREEN_PANEL Position To Next Item End Response Use Help Panel MAIN_HELP Field Default ICON_ATTRIBUTES Active Highlight Reverse End Default Field Default MENU_ICON_ATTRIBUTES Active Highlight Bold Reverse End Default Panel MENU_LINE_PANEL Viewport MENU_LINE_VP Function Response DOWN ITEM Position To Field STOCK_CODE On ORDER_ENTRY_PANEL End Response Icon PRINT_ICON Apply Field Default MENU_ICON_ATTRIBUTES Function Response PRINT_ALL Include INIT_ORDER_LINES Include INIT_ENTRY_PANEL1 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL2 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL3 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL4 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL5 Include MOVE_ENTRY_DATA Include INIT_ENTRY_PANEL6 Include MOVE_ENTRY_DATA End Response Function Response MENU_SELECT Message " " Message "Printing Order to text file, please wait ... " Print Immediate PRINT_PANEL on PRINT_VP Message "... Order printed" End Response Function Response PREVIOUS ITEM Message "" Message "No items to the left of this icon" End Response Literal Text Line 1 Column 2 Value " Print " Display Reverse End Literal End Icon Icon CUST_INQ Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Activate Panel CUSTOMER_INQ_PANEL Position To Next Panel End Response Literal Text Line 1 Column 11 Value " Customer Inquiry " Display Reverse End Literal End Icon Icon STOCK_INQ Apply Field Default MENU_ICON_ATTRIBUTES Literal Text Line 1 Column 31 Value " Stock Inquiry " Display Reverse End Literal End Icon Icon ORDER_INQ Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Activate Panel ORDER_INQ_PANEL Position To Next Panel End Response Literal Text Line 1 Column 48 Value " Order Inquiry " Display Reverse End Literal End Icon Icon EXIT_ICON Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Return End Response Literal Text Line 1 Column 65 Value " Exit " Display Reverse End Literal End Icon Icon HELP_ICON Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Enter Help End Response Literal Text Line 1 Column 73 Value " Help " Display Reverse End Literal End Icon End Panel Panel ORDER_INQ_PANEL Viewport ORDER_INQ_VP Literal Text Line 1 Column 3 Value " Order Inquiries " Display Reverse End Literal Literal Text Line 1 Column 2 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 25 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 2 Line 6 Column 2 Line 6 Column 25 Line 2 Column 25 End Literal Icon STOCK_ORDER_INQ Apply Field Default ICON_ATTRIBUTES Function Response UP ITEM Deactivate Panel ORDER_INQ_PANEL Remove ORDER_INQ_VP Position To Icon ORDER_INQ On MENU_LINE_PANEL End Response Literal Text Line 3 Column 3 Value " Stock Orders " End Literal End Icon Icon BACK_INQ Apply Field Default ICON_ATTRIBUTES Function Response MENU_SELECT Activate Panel BACK_ORDER_INQ_PANEL Position To Next Panel End Response Literal Text Line 4 Column 3 Value " Back Orders... " End Literal End Icon Icon FORWARD_INQ Apply Field Default ICON_ATTRIBUTES Literal Text Line 5 Column 3 Value " Forward Orders " End Literal End Icon End Panel Panel BACK_ORDER_INQ_PANEL Viewport BACK_ORDER_INQ_VP Literal Text Line 1 Column 2 Value " Back Order Inquiry " Display Reverse End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 24 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 1 Line 7 Column 1 Line 7 Column 24 Line 2 Column 24 End Literal Icon BO_BY_DATE Apply Field Default ICON_ATTRIBUTES Function Response UP ITEM Deactivate Panel BACK_ORDER_INQ_PANEL Remove BACK_ORDER_INQ_VP Position To Icon BACK_INQ On ORDER_INQ_PANEL End Response Literal Text Line 3 Column 2 Value " By Date " End Literal End Icon Icon BO_BY_CUSTOMER Apply Field Default ICON_ATTRIBUTES Literal Text Line 4 Column 2 Value " By Customer " End Literal End Icon Icon BO_BY_ITEM Apply Field Default ICON_ATTRIBUTES Function Response MENU_SELECT Activate Panel BO_ITEM_SELECTION_PANEL Position To Next Panel End Response Literal Text Line 5 Column 2 Value " By Item... " End Literal End Icon Icon BO_BY_ORDER_NUMBER Apply Field Default ICON_ATTRIBUTES Literal Text Line 6 Column 2 Value " By Order Number " End Literal End Icon End Panel Panel MAIN_PANEL Viewport MAIN_VP Literal Text Line 1 Column 3 Value "x" Display Reverse Font Size Double Wide Character Set Private_Rule End Literal Literal Text Same Line Next Column Value "G" Display Reverse Font Size Double Wide End Literal Literal Text Same Line Next Column Value "x" Display Reverse Font Size Double Wide Character Set Private_Rule End Literal Literal Text Same Line Next Column Value "D" Display Reverse Font Size Double Wide End Literal Literal Text Same Line Next Column Value "x" Display Reverse Character Set Private_Rule Font Size Double Wide End Literal Literal Text Same Line Next Column Value "I" Display Reverse Font Size Double Wide End Literal Literal Text Same Line Next Column Value "x" Display Reverse Character Set Private_Rule Font Size Double Wide End Literal Literal Text Same Line Next Column +4 Value "Global Distributors, Inc" Display Bold Font Size Double Wide End Literal Literal Text Line 5 Column 1 Value "Orders for " End Literal Field CURRENT_CUSTOMER Same Line Next Column Display Bold Output Picture X(31) Protected End Field Literal Text Same Line Next Column +1 Value "Account No: " End Literal Field ACCOUNT_NUMBER Same Line Next Column Output Picture 9(6)R Protected End Field Literal Text Same Line Next Column +1 Value "Order No: " End Literal Field ORDER_NUMBER Same Line Next Column Output Picture 9(6)R Protected End Field Literal Polyline Line 6 Column 1 Line 6 Column 80 End Literal Literal Text Line 7 Column 1 Value "Line" End Literal Literal Text Same Line Column 7 Value "Stock Code" End Literal Literal Text Same Line Column 24 Value "Description" End Literal Literal Text Same Line Column 52 Value "Quantity" End Literal Literal Text Same Line Column 62 Value "Price" End Literal Literal Text Same Line Column 70 Value "Value" End Literal Literal Polyline Line 8 Column 1 Line 8 Column 4 End Literal Literal Text Line 8 Column 5 Value "w" Display Character Set Private_Rule End Literal Literal Polyline Line 8 Column 6 Line 8 Column 16 End Literal Literal Text Line 8 Column 17 Value "w" Display Character Set Private_Rule End Literal Literal Polyline Line 8 Column 18 Line 8 Column 51 End Literal Literal Text Line 8 Column 52 Value "w" Display Character Set Private_Rule End Literal Literal Polyline Line 8 Column 53 Line 8 Column 58 End Literal Literal Text Line 8 Column 59 Value "w" Display Character Set Private_Rule End Literal Literal Polyline Line 8 Column 60 Line 8 Column 67 End Literal Literal Text Line 8 Column 68 Value "w" Display Character Set Private_Rule End Literal Literal Polyline Line 8 Column 69 Line 8 Column 80 End Literal Group ORDER_LINES Vertical Displays 6 First FIRST_LINE_DISPLAYED Field LINE_GRP_LEFT_MARKER Line 9 Column 1 Display Character Set Private_Rule Output Picture X Output "l" When ((ORDER_LINES(**).LINE_NBR = FIRST_LINE_DISPLAYED) AND (FIRST_LINE_DISPLAYED = 1)) Output ":" When ((ORDER_LINES(**).LINE_NBR = FIRST_LINE_DISPLAYED) AND (FIRST_LINE_DISPLAYED <> 1)) Output "m" When (ORDER_LINES(**).LINE_NBR = LAST_LINE_DISPLAYED) Output "x" When (ORDER_LINES(**).LINE_NBR <> LAST_LINE_ON_DISPLAY) Output ":" When (ORDER_LINES(**).LINE_NBR = LAST_LINE_ON_DISPLAY) Protected End Field Field LINE_NBR Same Line Column 3 Output Picture 99R Output " " When (ORDER_LINES(**).LINE_STOCK_CODE = " ") Protected End Field Literal Text Same Line Next Column Value "x" Display Character Set Private_Rule End Literal Field LINE_STOCK_CODE Same Line Next Column +1 Output Picture X(10) Protected End Field Literal Text Same Line Next Column Value "x" Display Character Set Private_Rule End Literal Field LINE_DESCRIPTION Same Line Next Column +1 Output Picture X(32) Protected End Field Literal Text Same Line Next Column +1 Value "x" Display Character Set Private_Rule End Literal Field LINE_QTY Same Line Next Column Output Picture 9(6)R Protected End Field Literal Text Same Line Next Column Value "x" Display Character Set Private_Rule End Literal Field LINE_PRICE Same Line Next Column Output Picture 999WR9.99 Scale -2 Output " " When (ORDER_LINES(**).LINE_PRICE = 0) Protected End Field Literal Text Same Line Next Column Value "x" Display Character Set Private_Rule End Literal Field LINE_VALUE Same Line Next Column Output Picture 99999WR9.99 Scale -2 Output " " When (ORDER_LINES(**).LINE_VALUE = 0) Protected End Field Field LINE_GRP_RIGHT_MARKER Same Line Column 80 Display Character Set Private_Rule Output Picture X Output "k" When ((ORDER_LINES(**).LINE_NBR = FIRST_LINE_DISPLAYED) AND (FIRST_LINE_DISPLAYED = 1)) Output ":" When ((ORDER_LINES(**).LINE_NBR = FIRST_LINE_DISPLAYED) AND (FIRST_LINE_DISPLAYED <> 1)) Output "j" When (ORDER_LINES(**).LINE_NBR = LAST_LINE_DISPLAYED) Output "x" When (ORDER_LINES(**).LINE_NBR <> LAST_LINE_ON_DISPLAY) Output ":" When (ORDER_LINES(**).LINE_NBR = LAST_LINE_ON_DISPLAY) Protected End Field End Group End Panel Panel ORDER_ENTRY_PANEL Viewport ORDER_ENTRY_VP6 Function Response MENU_SELECT Message "Please position to a selection before pressing the "- "Select key." End Response Function Response UP ITEM Position To Panel MENU_LINE_PANEL End Response Function Response ENTER_DATA_TO_GROUP Include MOVE_ENTRY_DATA End Response Function Response SCROLL_LINES_UP If (ORDER_LINES(LAST_LINE_ON_DISPLAY).LINE_STOCK_CODE <> " ") Then Let FIRST_LINE_DISPLAYED = ORDER_LINES(FIRST_LINE_DISPLAYED).NEXT_LINE Let LAST_LINE_ON_DISPLAY = ORDER_LINES(FIRST_LINE_DISPLAYED).LAST_LINE_ON_DISPLAY Else Message "" Message "No entries below" End If End Response Function Response SCROLL_LINES_DOWN Let FIRST_LINE_DISPLAYED = ORDER_LINES(FIRST_LINE_DISPLAYED).PREV_LINE Let LAST_LINE_ON_DISPLAY = ORDER_LINES(FIRST_LINE_DISPLAYED).LAST_LINE_ON_DISPLAY End Response Apply Field Default Of Active Highlight Bold End Default Literal Polyline Line 2 Column 1 Line 7 Column 1 Line 7 Column 80 Line 2 Column 80 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 80 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Current Item: "- " Current Line = " Display Reverse End Literal Field ORDER_LINE_INDEX Same Line Next Column Display Reverse Output Picture 9R9 Protected End Field Literal Text Same Line Next Column Value " " Display Reverse End Literal Literal Text Line 2 Column 2 Value "Stock Code:" End Literal Field STOCK_CODE Line 2 Column 15 Display Underlined Justification Right End Field Literal Text Line 3 Column 2 Value "Description:" End Literal Field DESCRIPTION Line 3 Column 15 Output Picture X(32) End Field Literal Text Line 3 Column 61 Value "Sent:" End Literal Literal Text Line 2 Column 51 Value "Order Quantity:" End Literal Field ORDER_QTY Line 2 Column 68 Display Underlined Output Picture 9(5)R9 Justification Right End Field Field QTY_SENT Line 3 Column 68 Output Picture 9(5)R9 Protected End Field Field QTY_TO_FOLLOW Line 4 Column 68 Output Picture 9(5)R9 Protected End Field Literal Text Line 4 Column 56 Value "To Follow:" End Literal Literal Text Line 6 Column 2 Value "Comment:" End Literal Field COMMENT_LINE_1 Line 6 Column 11 Display Underlined Output Picture X(65) End Field Literal Text Line 5 Column 49 Value "Quantity on hand: " End Literal Field QOH Line 5 Column 68 Output Picture 9(5)R9 Protected End Field Literal Text Line 3 Column 52 Value "Quantity" End Literal Literal Text Line 4 Column 47 Value "Quantity" End Literal Field UNITS_PER_PACK Line 4 Column 18 Output Picture 99R Protected End Field Literal Text Line 4 Column 2 Value "Units per pack: " End Literal Literal Text Line 4 Column 24 Value "Price: " End Literal Field PRICE Line 4 Column 33 Output Picture 999WR9.99 Scale -2 Input Picture W9999R.99 Justification Decimal End Field Literal Text Line 5 Column 24 Value "Value:" End Literal Field ENTRY_VALUE Line 5 Column 31 Output Picture 99999WR9.99 Scale -2 Input Picture W999999R.99 Justification Decimal End Field End Panel Panel CUSTOMER_INQ_PANEL Viewport CUSTOMER_INQ_VP Literal Text Line 1 Column 3 Value " Customer Inquiries " Display Reverse End Literal Literal Text Line 1 Column 2 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 24 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 2 Line 5 Column 2 Line 5 Column 24 Line 2 Column 24 End Literal Icon CURRENT_CUSTOMER_CHOICE Apply Field Default ICON_ATTRIBUTES Function Response UP ITEM Deactivate Panel CUSTOMER_INQ_PANEL Remove CUSTOMER_INQ_VP Position To Icon CUST_INQ On MENU_LINE_PANEL End Response Function Response MENU_SELECT Deactivate Panel CUSTOMER_INQ_PANEL Activate Panel CUSTOMER_INQ_MENU_PANEL Position To Next Panel End Response Literal Text Line 3 Column 3 Value " Current Customer..." End Literal End Icon Icon ANOTHER_CUSTOMER_CHOICE Apply Field Default ICON_ATTRIBUTES Literal Text Line 4 Column 3 Value " Another Customer " End Literal End Icon End Panel Panel CUSTOMER_INQ_MENU_PANEL Viewport CUSTOMER_INQ_MENU_VP Icon ORDER_HEADER_CHOICE Apply Field Default ICON_ATTRIBUTES Function Response UP ITEM Deactivate Panel CUSTOMER_INQ_MENU_PANEL Remove CUSTOMER_INQ_MENU_VP Activate Panel CUSTOMER_INQ_PANEL Position To Icon CURRENT_CUSTOMER_CHOICE On CUSTOMER_INQ_PANEL End Response Literal Text Line 3 Column 4 Value " Order Header Details " End Literal End Icon Icon ORDER_HISTORY_CHOICE Apply Field Default ICON_ATTRIBUTES Literal Text Line 4 Column 4 Value " Order History " End Literal End Icon Icon CUSTOMER_PROFILE_CHOICE Apply Field Default ICON_ATTRIBUTES Function Response MENU_SELECT Deactivate Panel CUSTOMER_INQ_MENU_PANEL Display CUSTOMER_INQ_DATA_PANEL Activate Icon MORE_CUST_DATA_ICON on CUSTOMER_INQ_DATA_PANEL Position To Next Item End Response Literal Text Line 5 Column 4 Value " Customer Profile... " End Literal End Icon Icon BACK_ORDERS_CHOICE Apply Field Default ICON_ATTRIBUTES Literal Text Line 6 Column 4 Value " Back Orders " End Literal End Icon Literal Polyline Line 1 Column 2 Line 1 Column 1 Line 7 Column 1 Line 7 Column 46 Line 1 Column 46 Line 1 Column 45 End Literal Literal Text Line 1 Column 2 Value " Inquire on: " Display Reverse End Literal Field CURRENT_CUSTOMER Line 1 Next Column Display Reverse Output Picture X(31) Protected End Field End Panel Panel CUSTOMER_INQ_DATA_PANEL Viewport CUSTOMER_INQ_DATA_VP Exit Response Remove CUSTOMER_INQ_VP CUSTOMER_INQ_MENU_VP CUSTOMER_INQ_DATA_VP Deactivate Icon MORE_CUST_DATA_ICON on CUSTOMER_INQ_DATA_PANEL Deactivate Panel CUSTOMER_INQ_MENU_PANEL Deactivate Panel CUSTOMER_INQ_PANEL Position To Previous Item End Response Literal Text Line 8 Column 40 Value "Account Balance:" End Literal Literal Text Line 9 Column 42 Value "Order Balance:" End Literal Literal Text Line 10 Column 43 Value "Credit Limit:" End Literal Field CUST_ACC_BAL Line 8 Column 57 Output Picture 999,99WR9.99 Scale -2 Protected End Field Field CUST_ORDER_BAL Line 9 Column 57 Output Picture 999,99WR9.99 Scale -2 Protected End Field Field CUST_CREDIT_LIMIT Line 10 Column 57 Output Picture 999,99WR9.99 Scale -2 Protected End Field Field CUST_ADDR_L1 Line 4 Column 5 Output Picture X(20) Protected End Field Field CUST_ADDR_L2 Line 5 Column 5 Output Picture X(20) Protected End Field Field CUST_STATE Line 6 Column 5 Output Picture XX Protected End Field Field CUST_ZIP Line 6 Column 8 Output Picture 99999'-'9999 Protected End Field Literal Text Line 8 Column 7 Value "Last Order Date:" End Literal Literal Text Line 9 Column 5 Value "Last Payment Date:" End Literal Literal Text Line 10 Column 3 Value "Last Statement Date:" End Literal Field CUST_LAST_STATEMENT Line 10 Column 24 Output Picture For Date DD'-'AAA'-'YYYY Protected End Field Field CUST_LAST_PAY Line 9 Column 24 Output Picture For Date DD'-'AAA'-'YYYY Protected End Field Field CUST_LAST_ORDER Line 8 Column 24 Output Picture For Date DD'-'AAA'-'YYYY Protected End Field Literal Text Line 2 Column 41 Value "Delivery Address:" End Literal Field DLVR_ADDR_L1 Line 4 Column 43 Output Picture X(20) Protected End Field Field DLVR_ADDR_L2 Line 5 Column 43 Output Picture X(20) Protected End Field Field DLVR_STATE Line 6 Column 43 Output Picture XX Protected End Field Field DLVR_ZIP Line 6 Column 46 Output Picture 99999'-'9999 Protected End Field Icon MORE_CUST_DATA_ICON Function Response MENU_SELECT Message "This selection is not available" Message "Press return to get back to order entry panel" End Response Literal Text Line 2 Column 63 Value " More.." Display Reverse End Literal End Icon Literal Text Line 1 Column 46 Value "m" Display Character Set Private_Rule End Literal Literal Polyline Line 1 Column 1 Line 11 Column 1 Line 11 Column 71 Line 1 Column 71 Line 1 Column 47 End Literal Literal Text Line 2 Column 3 Value "Customer Address:" End Literal End Panel Panel MESSAGE_HDR_PANEL Viewport MESSAGE_HDR_VP /* /* Border for message panel /*/ Literal Polyline Line 2 Column 1 Line 3 Column 1 End Literal Literal Polyline Line 2 Column 80 Line 3 Column 80 End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 80 Value "k" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Messages" Display Reverse End Literal Literal Text Same Line Next Column Value " " Display Reverse End Literal Literal Text Same Line Next Column Value " " Display Reverse End Literal End Panel Message Panel MESSAGE_PANEL Viewport MESSAGE_VP End Panel Help Panel MAIN_HELP Remove /* We want to return from help for any key pressed The way to do this is to trap everything with the BUILTIN, USER, and UNDEFINED function responses. */ Function Response BUILTIN FUNCTION Exit Help End Response Function Response USER FUNCTION Exit Help End Response Function Response UNDEFINED FUNCTION Exit Help End Response Literal Text Line 2 Column 1 Value "The keys are defined as follows:" End Literal Literal Text Line 4 Column 5 Value 'DO will "accept" the order and move it from the entry '- 'area as if it were' End Literal Literal Text Line 5 Column 8 Value "being sent back to an application. A summary of the "- "data is then" End Literal Literal Text Line 6 Column 8 Value "displayed in the scrolling region." End Literal Literal Text Line 8 Column 5 Value "Prev Screen/Next Screen will scroll the summary "- "region. The scroll bars on" End Literal Literal Text Line 9 Column 8 Value "either side of this region tell you if there is data "- "above or below the" End Literal Literal Text Line 10 Column 8 Value "visible region." End Literal Literal Text Line 12 Column 5 Value "F17 followed by 1 .. 6 will put one of 6 order lines" End Literal Literal Text Line 13 Column 9 Value "into the order entry area." End Literal Literal Text Line 14 Column 5 Value "F18 will pre-fill 4 order lines." End Literal Literal Text Line 15 Column 5 Value "PF1-F18 will pre-fill 5 order lines and the order "- "entry area." End Literal Literal Text Line 16 Column 5 Value "F19 will start the demo over again." End Literal Literal Text Line 17 Column 5 Value "F20 will clear the message area." End Literal Literal Text Line 18 Column 5 Value "PF1 followed by F20 will put a typical message into "- "the message area" End Literal Literal Text Line 22 Column 40 Value "press Return to continue ..." End Literal Literal Text Line 19 Column 5 Value "PF4 will clear the screen when you are not on a pop-up "- "panel." End Literal Literal Text Line 20 Column 9 Value "Pressing PF4 again will refresh the original screen." End Literal End Panel Panel INTRO_PANEL Viewport INTRO_VP Remove Entry Response Message "Use arrow keys to position between the above two icons." Message "Press Select to choose which you want to do." End Response Exit Response Message "" Message "" End Response Literal Rectangle Line 1 Column 1 Line 3 Column 15 End Literal Literal Polyline Line 1 Column 3 Line 3 Column 3 End Literal Literal Polyline Line 1 Column 5 Line 3 Column 5 End Literal Literal Polyline Line 1 Column 7 Line 3 Column 7 End Literal Literal Polyline Line 1 Column 9 Line 3 Column 9 End Literal Literal Polyline Line 1 Column 11 Line 3 Column 11 End Literal Literal Polyline Line 1 Column 13 Line 3 Column 13 End Literal Literal Text Line 2 Column 2 Value "d" End Literal Literal Text Same Line Next Column +1 Value "i" End Literal Literal Text Same Line Next Column +1 Value "g" End Literal Literal Text Same Line Next Column +1 Value "i" End Literal Literal Text Same Line Next Column +1 Value "t" End Literal Literal Text Same Line Next Column +1 Value "a" End Literal Literal Text Same Line Next Column +1 Value "l" End Literal Literal Text Same Line Next Column +2 Value "DECforms V1" End Literal Literal Text Line 4 Column 11 Value "Order Entry Demonstration" Display Bold Font Size Double Wide End Literal Literal Text Line 6 Column 5 Value "This form demonstrates a selection of features from "- "DECforms V1." End Literal Literal Text Next Line +1 Column 5 Value "To save time in a demo, a selection of items have been "- "pre-loaded into" End Literal Literal Text Next Line Column 5 Value "form data for you. Press Help to see how to load these "- "items." End Literal Literal Text Next Line +1 Column 5 Value "To start the demo:" End Literal Literal Text Next Line Column 5 Value "Imagine yourself processing orders for a computer "- "hardware distributor." End Literal Literal Text Next Line Column 5 Value 'Your company is called "Global Distributors, Inc." or '- '"GDI". You have' End Literal Literal Text Next Line Column 5 Value 'received an order from "Consolidated Computing '- 'Services" for some items...' End Literal Literal Rectangle Line 17 Column 10 Line 19 Column 34 End Literal Literal Rectangle Line 17 Column 48 Line 19 Column 68 End Literal Icon MORE_INTRO Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Activate Wait on INTRO_PANEL2 Position To Next Item End Response Literal Text Line 18 Column 12 Value " More Information... " Display Reverse End Literal End Icon Icon SEE_DEMO Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Include START_OVER End Response Literal Text Line 18 Column 50 Value " See the demo... " Display Reverse End Literal End Icon End Panel Panel INTRO_PANEL2 Remove Literal Text Line 5 Column 9 Value "o introductory screens using icons plus a help screen" End Literal Literal Text Line 6 Column 9 Value "o a variety of typical data entry fields with "- "highlighting" End Literal Literal Text Line 7 Column 9 Value "o strip menu using Icons" End Literal Literal Text Line 8 Column 9 Value "o pull-down menu panels" End Literal Literal Text Line 9 Column 9 Value "o pop-up data inquiry panel" End Literal Literal Text Line 10 Column 9 Value "o use of function keys" End Literal Literal Text Line 11 Column 9 Value "o scrolling region using FIRST to control scrolling" End Literal Literal Text Line 11 Column 61 Value "and indicators" End Literal Literal Text Line 12 Column 11 Value "set to show when there is more data above or below the "- "visible region." End Literal Literal Text Line 16 Column 5 Value "Read the demo guide and/or the IFDL to see how this is "- "done." End Literal Literal Text Line 18 Column 5 Value "Be aware that this is intended to be a demonstration "- "of features, not a" End Literal Literal Text Line 19 Column 5 Value "complete application. Not all options are implemented." End Literal Literal Text Line 21 Column 50 Value "press Return to continue ..." Display Bold End Literal Literal Text Line 3 Column 5 Value "This is a prototype user interface for an Order Entry "- "application. " End Literal Literal Text Line 4 Column 5 Value "It demonstrates:" End Literal Literal Text Line 13 Column 9 Value "o how to clear and refresh the screen as a "- "demonstration aid." End Literal End Panel Panel PRINT_PANEL Viewport PRINT_VP Literal Text Line 1 Column 7 Value "*" End Literal Literal Text Same Line Next Column Value "G" End Literal Literal Text Same Line Next Column Value "*" End Literal Literal Text Same Line Next Column Value "D" End Literal Literal Text Same Line Next Column Value "*" End Literal Literal Text Same Line Next Column Value "I" End Literal Literal Text Same Line Next Column Value "*" End Literal Literal Text Line 1 Column 34 Value "Global Distributors, Inc" End Literal Literal Text Line 3 Column 4 Value "Orders for " End Literal Field CURRENT_CUSTOMER Same Line Next Column Output Picture X(31) End Field Literal Text Next Line +1 Column 4 Value "Account No: " End Literal Field ACCOUNT_NUMBER Same Line Next Column Output Picture 9(6)R End Field Literal Text Same Line Next Column +4 Value "Order No: " End Literal Field ORDER_NUMBER Same Line Next Column Output Picture 9(6)R End Field Literal Text Line 7 Column 7 Value "Customer Address:" End Literal Literal Text Line 7 Column 45 Value "Delivery Address:" End Literal Field CUST_ADDR_L1 Line 9 Column 9 Output Picture X(20) End Field Field CUST_ADDR_L2 Line 10 Column 9 Output Picture X(20) End Field Field CUST_ZIP Line 11 Column 12 Output Picture 99999'-'9999 End Field Field CUST_STATE Line 11 Column 9 Output Picture XX End Field Field DLVR_ADDR_L1 Line 9 Column 47 Output Picture X(20) End Field Field DLVR_ADDR_L2 Line 10 Column 47 Output Picture X(20) End Field Field DLVR_STATE Line 11 Column 47 Output Picture XX End Field Literal Text Line 13 Column 11 Value "Last Order Date:" End Literal Literal Text Line 14 Column 9 Value "Last Payment Date:" End Literal Literal Text Line 15 Column 7 Value "Last Statement Date:" End Literal Field CUST_LAST_ORDER Line 13 Column 28 Output Picture For Date DD'-'AAA'-'YYYY End Field Field CUST_LAST_PAY Line 14 Column 28 Output Picture For Date DD'-'AAA'-'YYYY End Field Field CUST_LAST_STATEMENT Line 15 Column 28 Output Picture For Date DD'-'AAA'-'YYYY End Field Literal Text Line 13 Column 44 Value "Account Balance:" End Literal Literal Text Line 14 Column 46 Value "Order Balance:" End Literal Field CUST_ACC_BAL Line 13 Column 61 Output Picture 999,99WR9.99 Scale -2 End Field Field CUST_ORDER_BAL Line 14 Column 61 Output Picture 999,99WR9.99 Scale -2 End Field Field DLVR_ZIP Line 11 Column 50 Output Picture 99999'-'9999 End Field Literal Polyline Line 17 Column 1 Line 17 Column 80 End Literal Literal Text Line 18 Column 1 Value "Line" End Literal Literal Text Same Line Column 7 Value "Stock Code" End Literal Literal Text Same Line Column 24 Value "Description" End Literal Literal Text Same Line Column 52 Value "Quantity" End Literal Literal Text Same Line Column 62 Value "Price" End Literal Literal Text Same Line Column 70 Value "Value" End Literal Literal Polyline Line 19 Column 1 Line 19 Column 80 End Literal Group ORDER_LINES Vertical Field LINE_NBR Next Line +1 Column 2 Output Picture 99R Output " " When (ORDER_LINES(**).LINE_STOCK_CODE = " ") End Field Field LINE_STOCK_CODE Same Line Next Column +2 Output Picture X(10) End Field Field LINE_DESCRIPTION Same Line Next Column +2 Output Picture X(32) End Field Field LINE_QTY Same Line Next Column Output Picture 9(6)R End Field Field LINE_PRICE Same Line Next Column +2 Output Picture 999WR9.99 Scale -2 Output " " When (ORDER_LINES(**).LINE_PRICE = 0) End Field Field LINE_VALUE Same Line Next Column +1 Output Picture 99999WR9.99 Scale -2 Output " " When (ORDER_LINES(**).LINE_VALUE = 0) End Field Icon UNIT_PACK Concealed When (ORDER_LINES(**).LINE_UNITS_PER_PACK = 0) Literal Text Next Line Column 18 Value "Units/pack:" End Literal End Icon Field LINE_UNITS_PER_PACK Same Line Next Column +1 Output Picture 99R End Field Icon ORDER_QUANTITY Concealed When ((ORDER_LINES(**).LINE_QTY_ORDERED = ORDER_LINES(**).LINE_QTY) OR (ORDER_LINES(**).LINE_QTY_ORDERED = 0)) Literal Text Same Line Next Column +2 Value "Order Quantity:" End Literal End Icon Field LINE_QTY_ORDERED Same Line Next Column +1 Output Picture 9(5)R9 Output " " When ((ORDER_LINES(**).LINE_QTY_ORDERED = ORDER_LINES(**).LINE_QTY) OR (ORDER_LINES(**).LINE_QTY_ORDERED = 0)) End Field Icon TO_FOLLOW Concealed When (ORDER_LINES(**).LINE_QTY_TO_FOLLOW = 0) Literal Text Same Line Next Column +2 Value "and to follow:" End Literal End Icon Field LINE_QTY_TO_FOLLOW Same Line Next Column +1 Output Picture 9(5)R9 Output " " When (ORDER_LINES(**).LINE_QTY_TO_FOLLOW = 0) End Field Literal Text Next Line Column 1 Value " " End Literal End Group Literal Text Next Line +1 Column 67 Value "==========" End Literal Literal Text Next Line +1 Column 53 Value "Order Value:" End Literal Field ORDER_VALUE Same Line Column 66 Output Picture 999,99WR9.99 Scale -2 Output " " When (ORDER_VALUE = 0) End Field Literal Text Next Line +2 Column 4 Value "Additional Information: " End Literal Literal Text Next Line Column 6 Value "Stock Item B7004-BF (AC Surge Suppressor, 120V/12A) " End Literal Literal Text Same Line Next Column Value "out of stock. " End Literal Literal Text Next Line Column 6 Value "New shipment due 12 May 1989" End Literal End Panel Panel CLEAR_SCREEN_PANEL Viewport CLEAR_SCREEN_VP Remove /* This panel is used to clear the screen at any point in preparation for a demo which you wish to start in the middle of the form interaction. This allows the appropriate screen to appear immediately. You may then use any function key to return to the demo from this panel. */ Exit Response Deactivate Panel CLEAR_SCREEN_PANEL End Response Function Response BUILTIN FUNCTION Position To Previous Item End Response Function Response USER FUNCTION Position To Previous Item End Response Function Response UNDEFINED FUNCTION Position To Previous Item End Response End Panel Panel BO_ITEM_SELECTION_PANEL Viewport BO_ITEM_SELECTION_VP Entry Response Let ALT_STOCK_CODE_PROTECT = "Y" Reset ALT_STOCK_CODE End Response Literal Text Line 1 Column 2 Value "Item Selection: " Display Reverse End Literal Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 30 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 1 Line 5 Column 1 Line 5 Column 30 Line 2 Column 30 End Literal Field STOCK_CODE Line 3 Column 19 Protected End Field Field ALT_STOCK_CODE Line 4 Column 19 Function Response MENU_SELECT Position To Icon BO_ITEM_SELECT_CURRENT On BO_ITEM_SELECTION_PANEL Message "This option is not available. Please select current "- "item" End Response Function Response NEXT ITEM Position To Icon BO_ITEM_SELECT_CURRENT On BO_ITEM_SELECTION_PANEL Message "This option is not available. Please select current "- "item" End Response Justification Right Uppercase Protected When (ALT_STOCK_CODE_PROTECT = "Y") End Field Icon BO_ITEM_SELECT_CURRENT Apply Field Default MENU_ICON_ATTRIBUTES Function Response UP ITEM Deactivate Panel BO_ITEM_SELECTION_PANEL Remove BO_ITEM_SELECTION_VP Position To Icon BO_BY_ITEM On BACK_ORDER_INQ_PANEL End Response Function Response MENU_SELECT /* Assign these values here to allow panel to be activated */ Let BO_ITEMS(1).ORDER_NUMBER = 864 Let BO_ITEMS(1).LINE_NBR = 7 Let BO_ITEMS(1).STAGE = "Pick" Let BO_ITEMS(1).DATE = "1989 04 18" Let BO_ITEMS(1).ACCOUNT = 8294 Let BO_ITEMS(1).QTY_SENT = 3 Let BO_ITEMS(1).QTY_TO_FOLLOW = 0 Let BO_ITEMS(1).WHSE = "BOS " Let BO_ITEMS(1).LINE_VALUE = 88500 Let BO_ITEMS(2).ORDER_NUMBER = 1138 Let BO_ITEMS(2).LINE_NBR = 2 Let BO_ITEMS(2).STAGE = "Pick" Let BO_ITEMS(2).DATE = "1989 04 21" Let BO_ITEMS(2).ACCOUNT = 2121 Let BO_ITEMS(2).QTY_SENT = 2 Let BO_ITEMS(2).QTY_TO_FOLLOW = 0 Let BO_ITEMS(2).WHSE = "CAMB" Let BO_ITEMS(2).LINE_VALUE = 59000 Let BO_ITEMS(3).ORDER_NUMBER = 1187 Let BO_ITEMS(3).LINE_NBR = 6 Let BO_ITEMS(3).STAGE = "Pend" Let BO_ITEMS(3).DATE = "1989 04 25" Let BO_ITEMS(3).ACCOUNT = 5739 Let BO_ITEMS(3).QTY_SENT = 0 Let BO_ITEMS(3).QTY_TO_FOLLOW = 5 Let BO_ITEMS(3).WHSE = "BOS" Let BO_ITEMS(3).LINE_VALUE = 147500 /* This test is unneccessary in this prototype but would be needed in a real application since we don't want to bring up the item panel if there are no back orders for this stock item */ If (BO_ITEMS(1).ORDER_NUMBER = 0) Then Message "No back orders for this item" Else Activate Panel BO_ITEM_INQ_DATA_PANEL Position To Next Panel End If End Response Literal Text Line 3 Column 3 Value "Current Item: " End Literal End Icon Icon BO_ITEM_SELECT_ALT Apply Field Default MENU_ICON_ATTRIBUTES Function Response MENU_SELECT Let ALT_STOCK_CODE_PROTECT = "N" Activate Field ALT_STOCK_CODE on BO_ITEM_SELECTION_PANEL Position To Field ALT_STOCK_CODE On BO_ITEM_SELECTION_PANEL End Response Function Response NEXT ITEM Message "Press Select to enter another stock code" End Response Literal Text Line 4 Column 3 Value "Alternate Item:" End Literal End Icon End Panel Panel BO_ITEM_INQ_DATA_PANEL Viewport BO_ITEM_DATA_VP Entry Response Let QTY_ALLOCATED = 10 Let QTY_ON_ORDER = 30 Let QTY_BACK_ORDERED = 5 End Response Exit Response Remove ORDER_INQ_VP BACK_ORDER_INQ_VP BO_ITEM_SELECTION_VP BO_ITEM_DATA_VP Deactivate Panel ORDER_INQ_PANEL Panel BACK_ORDER_INQ_PANEL Panel BO_ITEM_SELECTION_PANEL Panel BO_ITEM_INQ_DATA_PANEL Position To Previous Item End Response Literal Text Line 1 Column 1 Value "l" Display Character Set Private_Rule End Literal Literal Text Line 1 Column 2 Value " Back Order Item Inquiry on: " Display Reverse End Literal Field DESCRIPTION Line 1 Column 31 Display Reverse Protected End Field Literal Text Line 1 Column 63 Value " " Display Reverse End Literal Literal Text Line 1 Column 80 Value "k" Display Character Set Private_Rule End Literal Literal Polyline Line 2 Column 1 Line 15 Column 1 Line 15 Column 80 Line 2 Column 80 End Literal Literal Text Line 3 Column 3 Value "Stock Code: " End Literal Field STOCK_CODE Line 3 Column 15 Protected End Field Literal Text Line 3 Column 27 Value "Quantity on Hand: " End Literal Field QOH Line 3 Column 45 Output Picture 9(5)R9 Protected End Field Literal Text Line 3 Column 58 Value "On Order:" End Literal Field QTY_ON_ORDER Line 3 Column 68 Output Picture 9(5)R9 Protected End Field Literal Text Line 4 Column 34 Value "Allocated: " End Literal Field QTY_ALLOCATED Line 4 Column 45 Output Picture 9(5)R9 Protected End Field Literal Text Line 4 Column 53 Value "On Back Order:" End Literal Field QTY_BACK_ORDERED Line 4 Column 68 Output Picture 9(5)R9 Protected End Field Literal Text Line 6 Column 3 Value "Order" End Literal Literal Text Line 6 Column 9 Value "Line" End Literal Literal Text Line 6 Column 15 Value "Line" End Literal Literal Text Line 6 Column 22 Value "Order" End Literal Literal Text Line 6 Column 33 Value "Account" End Literal Literal Text Line 6 Column 42 Value "Quantity" End Literal Literal Text Line 6 Column 52 Value "Quantity " End Literal Literal Text Line 6 Column 63 Value "Whse" End Literal Literal Text Line 6 Column 69 Value "Line" End Literal Literal Text Line 7 Column 2 Value " " Display Underlined End Literal Literal Text Line 7 Column 3 Value " No. " Display Underlined End Literal Literal Text Line 7 Column 9 Value " No. " Display Underlined End Literal Literal Text Line 7 Column 15 Value "Stage " Display Underlined End Literal Literal Text Line 7 Column 22 Value "Date " Display Underlined End Literal Literal Text Line 7 Column 33 Value " No. " Display Underlined End Literal Literal Text Line 7 Column 40 Value " " Display Underlined End Literal Literal Text Line 7 Column 42 Value " Sent " Display Underlined End Literal Literal Text Line 7 Column 52 Value "to follow " Display Underlined End Literal Literal Text Line 7 Column 69 Value "Value " Display Underlined End Literal Group BO_ITEMS Vertical Displays 7 Apply Field Default Of Protected End Default Field ORDER_NUMBER Line 8 Column 3 Function Response NEXT ITEM If PANEL LAST ITEM Then Position To Previous Panel Else Position To Next Item End If End Response Function Response SCROLL_LINES_DOWN Message "You are currently at the top of the list" End Response Function Response SCROLL_LINES_UP Message "No more items to display" End Response Output Picture 9(5)R9 No Data Input Message "You cannot change this item" Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) Protected When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field LINE_NBR Line 8 Column 10 Output Picture 9R9 Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field STAGE Line 8 Column 15 End Field Field DATE Line 8 Column 21 Output Picture For Date DD'-'AAA'-'YY Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field ACCOUNT Line 8 Column 32 Output Picture 9(5)R9 Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field QTY_SENT Line 8 Column 43 Output Picture 9(5)R9 Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field QTY_TO_FOLLOW Line 8 Column 53 Output Picture 9(5)R9 Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field Field WHSE Line 8 Column 63 End Field Field LINE_VALUE Line 8 Column 69 Output Picture 9(5)WR9.99 Scale -2 Output "" When (BO_ITEMS(**).ORDER_NUMBER = 0) End Field End Group End Panel End Layout End Form