Pathmaker Programming Guide

Modifying Requesters
Advanced Pathmaker Programming Topics
067868 Tandem Computers Incorporated 9–21
The requester copy library has the following code:
?SECTION USER-COMPILER-CMDS , TANDEM
?SYMBOLS
?SECTION USER-WS , TANDEM
*
* Create an array to hold the list of acceptable values.
*
01 FIELD-LIST-ARRAY.
02 LIST-INDEX PIC 9.
02 FIELD-LIST PIC X(6)
OCCURS 3 TIMES.
*
?SECTION USER-INIT-DATA , TANDEM
*
* Initialize the array. Display the first value (NAME) on
* the application screen. Note that you must refer to
* FIELD-1 OF FIELD rather than simply to FIELD because
* FIELD is a single-item DDL definition.
*
MOVE "NAME" TO FIELD-LIST OF FIELD-LIST-ARRAY (1).
MOVE "JCODE" TO FIELD-LIST OF FIELD-LIST-ARRAY (2).
MOVE "DEPT" TO FIELD-LIST OF FIELD-LIST-ARRAY (3).
MOVE 1 TO LIST-INDEX OF FIELD-LIST-ARRAY.
MOVE FIELD-LIST OF FIELD-LIST-ARRAY
(LIST-INDEX OF FIELD-LIST-ARRAY)
TO FIELD-1 OF FIELD.
*
?SECTION USER-PRE-F5 , TANDEM
*
* When the end user presses F5, display the next acceptable
* value in the array.
*
ADD 1 TO LIST-INDEX OF FIELD-LIST-ARRAY.
IF LIST-INDEX OF FIELD-LIST-ARRAY > 3
MOVE 1 TO LIST-INDEX OF FIELD-LIST-ARRAY.
MOVE FIELD-LIST OF FIELD-LIST-ARRAY
(LIST-INDEX OF FIELD-LIST-ARRAY)
TO FIELD-1 OF FIELD.
IF T9154-BASE-DISPLAYED
DISPLAY FIELD-1-FN OF T9154-MAIN-SCREEN
ELSE
PERFORM 0300-DISPLAY-SCREEN.
The service code for function key F4 must contain logic to check the value
(NAME, JCODE, or DEPT) passed to it.