Look Up

Generic

   On Paint 'ID Field Name'

      C21.CCCAPPLY.ID  ID from file in LKUP.FILE on SGH screen.

   In SGH 'Do Before Main Loop ENTRY'

      LKUP.FILE = "C21.CCCAPPLY"  Look Up file name.
      LKUP.SEL.STMT = "SELECT C21.CCCAPPLY BY-DSND CCC.BATCH.NUMBER BY CCC.LASTNAME BY CCC.FIRSTNAME"
      LKUP.SEL.STMT is used to filter the records that the screen will have to select from.
      R.LKUP.FILE = ""
      LKUP.ID.LIST = ""
      LKUP.RESOLVE.ID = "XSTF18"  Resolution screen, defined on LURS.

   SEIO 'Input Editing'

      ADD.MODE.ALLOWED = 0  Records can't be added to file.
      ADD.MODE.ALLOWED = 1  Records can be added to file.
      IF LEN(EDITED.DATA) THEN
        $NUM ;* veries that EDITED.DATA is numeric.
      * $UC  ;* changes EDITED.DATA to all upper case letters.
        IF NOT(ERROR.OCCURRED) THEN
           EDITED.DATA = STR("0",(10-(LEN(EDITED.DATA)))):EDITED.DATA
        END
        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.C21.CCCAPPLY.ID,LKUP.ID.LIST,LKUP.RESOLVE.ID:
          IF LKUP.RETURN.CODE LT 0 THEN
            REPROMPT
          END
        END
      END

   In SEIO 'Input Source'

      PROMPT_WIDE ,,'LookUp'b

   Examples

      XUBF (XSTF18)

Person File Look Up Restricted to IDs in a Secondary file

   On Paint 'Field Name'

      JS.VAR1

   In SEIO 'Output Editing'

      $XLAT.STAFF.NAME

   In SEIO 'Input Editing'

      A.PERSON.ID = "" 
      ADD.MODE.ALLOWED = 0
      LOOKUP.SUBFILE = "HRPER"  IDs displayed on the resolution screen must exist in HRPER.
      LOOKUP.SEARCH = 0
      CDD

      IF LEN(EDITED.DATA) THEN
        :CORE.INSERTS I_INPUT.PERSON.LOOKUP.SEC:
        IF LKUP.RETURN.CODE NE 0 THEN
          REPROMPT
        END
      END

   In SEIO 'Input Source'

      PROMPT_WIDE ,,"HR Person LookUp" 

   Examples

      XIMR (XHRF16)

References

   Screen Processing Learning Guide

   Took Kit Developer's Guide