IBM AS/400 Frozen Dessert Maker User Manual


 
Using Externally Described WORKSTN Files
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ..*
AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++++*
A** ITEM MASTER INQUIRY
A REF(DSTREF) 1
A R PROMPT TEXT('Item Prompt Format')
A 73N61 OVERLAY 2
A CA03(98 'End of Program') 3
A 1 2'Item Inquiry'
A 3 2'Item Number'
A ITEM R I 3 15PUTRETAIN 4
A 61 ERRMSG('Invalid Item Number' 61)5
A R RESPONSE TEXT('Response Format')
A OVERLAY 2
A LOCK 6
A 5 2'Description'
A DESCRP R 5 15
A 5 37'Price'
A PRICE R 5 44
A 7 2'Warehouse Location' 7
A WHSLOC R 7 22
A 9 2'On Hand'
A ONHAND R 9 10
A 9 19'Allocated' 8
A ALLOC R 9 30
A 9 40'Available'
A AVAIL R 9 51
A*
Figure 165. Example of the Data Description Specifications for a Display Device File
This display device file contains two record formats: PROMPT and RESPONSE.
1 The attributes for the fields in this file are defined in the DSTREF field
reference file.
2 The OVERLAY keyword is used so that both record formats can be
used on the same display.
3 Function key 3 is associated with indicator 98, which is used by the pro-
grammer to end the program.
4 The PUTRETAIN keyword allows the value that is entered in the ITEM
field to be kept in the display. In addition, the ITEM field is defined as an
input field by the I in position 38. ITEM is the only input field in these
record formats. All of the other fields in the record are output fields since
position 38 is blank for each of them.
5 The ERRMSG keyword identifies the error message that is displayed if
indicator 61 is set on in the program that uses this record format.
6 The LOCK keyword prevents the work-station user from using the key-
board when the RESPONSE record format is initially-displayed.
7 The constants such as ‘Description’, ‘Price’, and ‘Warehouse Location’
describe the fields that are written out by the program.
8 The line and position entries identify where the fields or constants are
written on the display.
Chapter 18. Using WORKSTN Files 333