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

Enter an ID in field e and the name appears in field f.

---------------------------------------------------------------------------------
| aaaaaaaa  bbbbbb        ccccccccccccccccccccccccccccc                 dddddd |
|                                                                              |
|                                                                              |
|                                                                              |
|------------------------------------------------------------------------------|
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
| 1. HRPER ID .1: eeeeeee ffffffffffffffffffffffffffffff                       |
|             .2: ....... ..............................                       |
|             .3: ....... ..............................                       |
|             .4: ....... ..............................                       |
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
|                                                                              |
|X HR            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX|


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

       
f is LIST.VAR1 as an Inquiry field.



  
From field e press F7 and choose Windows
  


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


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

Name (here Employees or whatever name)
  

Count (here equals 4 or number of lines down screen.)
  

Last (here LIST.VAR1)



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:                                                     |
|                       2:                                                     |
|                       3:                                                     |
|------------------------------------------------------------------------------|
|  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                                                |
|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|


---------------------------------------------------------------------------------
| 04/30/07  09:36           SCREEN WINDOW DEFINITION                HR     SWD |
| Menu:                       Personnel Action Form        Process:            |
|                                                                              |
|------------------------------------------------------------------------------|
|  1    First/Last Elements             Sets  Spacing  Direction     Digits    |
|    1: JS.LIST.VAR1                      4      1     Vertical        2       |
|         LIST.VAR1                                                            |
|                                                                              |
|    2:                                                                        |
|                                                                              |
|                                                                              |
|    3:                                                                        |
|                                                                              |
|                                                                              |
|    4:                                                                        |
|                                                                              |
|                                                                              |
|    5:                                                                        |
|                                                                              |
|                                                                              |
|                                                                              |
|XX Controller XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Value 1/1 XXXXXXXXX|


Detail into field f (f2).

---------------------------------------------------------------------------------
| 04/30/07  09:39          SCREEN ELEMENT INPUT/OUTPUT              HR    SEIO |
| Menu:                       Personnel Action Form        Process:            |
| File:                        *** LIST.VAR1 ***               Inqry Only      |
| Output Convert:                Mask:                                         |
|------------------------------------------------------------------------------|
|  1 * Output Editing:  1: IF LEN(V.JS.LIST.VAR1) THEN                         |
|                       2:    CALL S.FORMAT.NAME(OUTPUT.DATA, V.JS.LIST.VAR1,  |
|                       3: END                                                 |
|------------------------------------------------------------------------------|
|  2 * Input Editing.:  1:                                                     |
|                       2:                                                     |
|                       3:                                                     |
|  3 * Delete Hook...:  1:                                                     |
|                       2:                                                     |
|  4 * Input Source..:  1:                                                     |
|                       2:                                                     |
|------------------------------------------------------------------------------|
|  5 Field Label...........: Employee's Name                                   |
|  6 * Val/Xlat Table......:  1:                                               |
|  7 * Default Code........:  1:                                               |
|  8 CDD Element To Inherit:                                                   |
|XX Controller Output Editing XXXXXXXXXXXXXXXXXXXXXXXXXXXXX Value 1/3 XXXXXXXXX|



IF LEN(V.JS.LIST.VAR1) THEN
 
    CALL S.FORMAT.NAME(OUTPUT.DATA, V.JS.LIST.VAR1, "", "6")
 
END