Translate
 
         LOC = TRANS('filename', keyfield, 'field', 'code')


             filename = Name of file where data is located.

             keyfield = A field in current file that matches the key
                        of file where the data is located.

             field    = The field or file location number of field in
                        "filename" to be pulled back.

             code

                  x = Return null when no data fould.

                  c = Print key to the record that had no data.

                  v = Print an error message when no data is found.