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>

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

4 Input Source..: PROMPT_WIDE ,,"Employee LookUp"

5 Field Label...: Person LookUp

Hosted by www.Geocities.ws