IBM AS/400 manual Using Externally Described WORKSTN Files, R Response, Using WORKSTN Files333

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 reference file.

.2/ The OVERLAY keyword is used so that both record formats ca used on the same display.

.3/ Function key 3 is associated with indicator 98, which is use grammer to end the program.

.4/

The PUTRETAIN

keyword

allows

the

value

that is entered

in

the

field to

be

kept

in

the

display.

In

addition, the

ITEM

fie

input field by the I in position

38. ITEM is the only

input

record formats. All of the other fields in the record

are

position

38

is

blank

for each

of

them.

.5/ The ERRMSG keyword identifies the error message that is disp indicator 61 is set on in the program that uses this record

.6/	The	LOCK keyword prevents the work-station		user from	using the
	board when the RESPONSE		record format is	initially-displayed.
.7/	The	constants such as ‘Description’, ‘Price’, and ‘Warehouse Loc
	describe the fields		that are written	out by the	program.

.8/ The line and position entries identify where the fields or written on the display.

Chapter 18. Using WORKSTN Files333