This method only works with lookups to the PERSON file.  ID must
be in the CDD Element To Inherit input of the SEIO screen.

---------------------------------------------------------------------------------
| aaaaaaaa  bbbbbb        ccccccccccccccccccccccccccccc                 dddddd |
|                                                                              |
|                                                                              |
|------------------------------------------------------------------------------|
|                                                                              |
|                                                                              |
| 1. HRPER ID .1: eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee                        |
|             .2: .....................................                        |
|             .3: .....................................                        |
|             .4: .....................................                        |
|                                                                              |


       
e is JS.LIST.VAR1 as a Standard field.
  


  
From field e press F7 and choose Windows
  


  
Enter (L)ine, (F)ld Seq, (M)ove, (D)isplay, (C)hange, (W)indows:
  


  
Make new (V)ertical or (H)orizontal window: V
  


  
Wndw 1-Employees: (N)ame, (C)ount, (S)ep, (L)ast, (D)igits, (U)ndo:
  

Name (Employees or any name)
  

Count (Number of lines down the screen.)



Detail into field e (f2).

---------------------------------------------------------------------------------
| 04/30/07  09:25          SCREEN ELEMENT INPUT/OUTPUT              HR    SEIO |
| Menu:                       Personnel Action Form        Process:            |
| File:                       *** JS.LIST.VAR1 ***                             |
| Output Convert:                Mask:                                         |
|------------------------------------------------------------------------------|
|  1 * Output Editing:  1: X.ID = OUTPUT.DATA                                  |
|                       2: $DONOR.NAME                                         |
|                       3: OUTPUT.DATA = X.ID:" ":OUTPUT.DATA                  |
|------------------------------------------------------------------------------|
|  2 * Input Editing.:  1: ADD.MODE.ALLOWED = 0                                |
|                       2: LOOKUP.SUBFILE = "HRPER"                            |
|                       3: LOOKUP.SEACRH = 0                                   |
|                       4: CDD                                                 |
|  3 * Delete Hook...:  1:                                                     |
|                       2:                                                     |
|  4 * Input Source..:  1: PROMPT_WIDE , ,"HR Person LookUp"                   |
|                       2:                                                     |
|------------------------------------------------------------------------------|
|  5 Field Label...........: Employees                                         |
|  6 * Val/Xlat Table......:  1:                                               |
|  7 * Default Code........:  1:                                               |
|  8 CDD Element To Inherit: ID                                                |
|  9 Secure Display........:                                                   |
|XX Controller Output Editing XXXXXXXXXXXXXXXXXXXXXXXXXXXXX No Values XXXXXXXXX|

Additional code that makes this lookup work is attached to CDD ID, and can be viewed in DEL.

---------------------------------------------------------------------------------
| 04/30/07  09:30        PROCESS LOOKUP SPECIFICATIONS              HR    LPTD |
| Process:                               Element: JS.LIST.VAR1                 |
|------------------------------------------------------------------------------|
|  1 Prompt Text..........: HRPER LookUp                                       |
|  2 Allow New Records....: No                                                 |
|  3 File Name............: HRPER                                              |
|  4 Current Key Var......: CRNT.HRPER.ID                                      |
|  5 Argument Var.........:                                                    |
|  6 * Attribute Table....:                                                    |
|  7 Inherit From File....: Yes                                                |
|  8 * New Key Options....:                                                    |
|  9 * Sort/Select Options:                                                    |
|------------------------------------------------------------------------------|
| 10 * Do Before Resolve:  1:                                                  |
| 11 * Do For Resolution:  1:                                                  |
| 12 * Do After Resolve.:  1:                                                  |
|------------------------------------------------------------------------------|
| 13 * Do If Not Found..:  1:                                                  |
| 14 * Do If Found......:  1:                                                  |
| 15 * Do If Add Record.:  1:                                                  |
|                                                                              |
|XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|