7.6 The Simplest Type of Prompt Key Processing
The simplest types of prompt key processing programs are the ones that display a list of values to the user.
The previous example that handled department number prompts would probably look like this (it does not use page at a time techniques because there are only 20 or so departments):
<< define browse list and exchange list >>
DEF_LIST NAME(#DEPTS) FIELDS(#DEPTNO #DEPTDESC)
SEL_ENTRY(#CURSORSEL)
EXCHANGE FIELDS(#DEPTS) OPTION(*ALWAYS)
<< clear list and place details of all departments into it >>
CLR_LIST NAMED(#DEPTS)
SELECT FIELDS(#DEPTS) FROM_FILE(DEPTFILE)
ADD_ENTRY TO_LIST(#DEPTS)
ENDSELECT
<< Display list in pop-up window until user selects or cancels >>
CHANGE FIELDS(#DEPTS) TO(*NULL)
DOUNTIL COND('#CURSORSEL *GT 0')
POP_UP BROWSELIST(#DEPTS) CURSOR_LOC(*ATFIELD #DEPTNO)
EXIT_KEY(*NO) MENU_KEY(*YES *RETURN)
IF COND('#CURSORSEL *GT 0')
GET_ENTRY NUMBER(#CURSORSEL) FROM_LIST(#DEPTS)
ENDIF
ENDUNTIL
RETURN