Generic LookUp Example XHRF21 Prepared/Revised by
F7
Enter (A)dd, (L)ine, (F)ld Seq, (M)ove, (D)isplay:
Enter (F)ield, (P)hantom, (I)nquiry, (G)raphic, (V)ideo:
Data Element LookUp: JS.LIST.VAR3
Enter Field sequence number/character:
F7
Enter (L)ine, (F)ld Seq, (M)ove, (D)isplay, (C)hange, (W)indows:
Make new (V)ertical or (H)orizontal window:
Wndw 6-No Name: (N)ame, (C)ount, (S)ep, (L)ast, (D)igits, (U)ndo:
Unnamed window. New name: SomethingWindow
Wndw 6-sbc: (N)ame, (C)ount, (S)ep, (L)ast, (D)igits, (U)ndo: Whatever is needed 1,2,3,or 4
Enter (L)ine, (F)ld Seq, (M)ove, (D)isplay, (C)hange, (W)indows:
Enter (S)ize (J)ustif (R)eq'd (N)ame (D)ata (C)onv (F)ield (P)hant (I)nq:
15 columns (CDD default). Enter NEW.SIZE, (DEL), or (return): 20 to 30 columns
---------------------------------------------------------------------------------
| 09/27/07 15:21 SCREEN ELEMENT INPUT/OUTPUT HR SEIO |
| Menu: XXXX Faculty Assignment Contract Process: XXXXXX |
| File: *** JS.LIST.VAR5 *** |
| Output Convert: Mask: |
|------------------------------------------------------------------------------|
| 1 * Output Editing: 1: X.KEY = OUTPUT.DATA |
| 2: CALL @MIO.READ.RECORD(MIO.READ,'ASGMT.CONTRACT.TYPE |
| 3: OUTPUT.DATA = X.KEY:" ":R.REC<1> ;* ACTYP.DESC |
|------------------------------------------------------------------------------|
| 2 * Input Editing.: 1: CRNT.IMP.FIELD1.ID = '' |
| 2: ADD.MODE.ALLOWED = -1 |
| 3: IF LEN(EDITED.DATA) THEN |
| 4: IF INDEX(EDITED.DATA,'...',1) NE 0 OR EDITED.DATA |
| 5: :UT.INSERTS T_INPUT.LOOKUP USING LKUP.FILE,LKUP |
| 6: IF LKUP.RETURN.CODE LT 0 THEN |
| 7: REPROMPT |
| 8: END |
| 9: END |
| 10: END |
| 3 * Delete Hook...: 1: |
| 4 * Input Source..: 1: PROMPT_WIDE ,,'Contract Type LookUp' |
| 2: |
|------------------------------------------------------------------------------|
| 5 Field Label...........: |
| 6 * Val/Xlat Table......: 1: |
| 7 * Default Code........: 1: |
| 8 CDD Element To Inherit: |
| 9 Secure Display........: |
|XX Controller Output Editing XXXXXXXXXXXXXXXXXXXXXXXXXXXXX Value 1/3 XXXXXXXXX|
1 * Output Editing:
X.KEY = OUTPUT.DATA
CALL @MIO.READ.RECORD(MIO.READ,'FILE.NAME',X.KEY,R.REC)
OUTPUT.DATA = X.KEY:" ":R.REC<1> ;* ACTYP.DESC
2 * Input Editing.:
LKUP.FILE = "FILE.NAME"
LKUP.SEL.STMT = "SSELECT FILE.NAME "
R.LKUP.FILE = ""
LKUP.ID.LIST = ""
LKUP.RESOLVE.ID = ""
*
CRNT.IMP.FIELD1.ID = ''
ADD.MODE.ALLOWED = -1
IF LEN(EDITED.DATA) THEN
IF INDEX(EDITED.DATA,'...',1) NE 0 OR EDITED.DATA[1,1] = ";" OR EDITED.DATA[1,1] = "@" OR NUM(EDITED.DATA) THEN
:UT.INSERTS T_INPUT.LOOKUP USING LKUP.FILE,LKUP.SEL.STMT,R.LKUP.FILE,CRNT.IMP.FIELD1.ID,LKUP.ID.LIST,LKUP.RESOLVE.ID:
IF LKUP.RETURN.CODE LT 0 THEN
REPROMPT
END
END
END
