DSXchange

Code: Select all

*************************************************************************
* Copyright (C) 2004, 1997-2003 Ascential Software Corporation. All Rights Reserved. *
* This code may be copied on condition that this copyright              *
* notice is included as is in any code derived from this source.        *
*************************************************************************
*
* Executes a lookup against a hashed file using a key
*
* Input Parameters :   Arg1 = Fully Qualified Path Of Hash Table
*                      Arg2 = Hash Key Value
*                      Arg3 = Column Position to return.
*                             If empty, return entire row in a dynamic array.
*
* Return  Values: If no record found, return value is:     "**RECORD NOT FOUND**".
*                 If hash file not found, return value is: "**TABLE NOT FOUND**"
*
*		  Note that the above strings may be localised.
*

    RoutineName = 'myUtilityHashLookup'

    Common /HashLookup/ FileHandles(100), FilesOpened

    Deffun DSRMessage(A1, A2, A3) Calling "*DataStage*DSR_MESSAGE"

    HashTable = Arg1
    HashKey = Arg2
    ColumnPosition = Arg3
    PositionReturn = 0

    * Determine if we are returning one column or entire row.
    If Num(ColumnPosition) then
    	ColumnPosition = Int(ColumnPosition)
        If ColumnPosition > 0 and ColumnPosition < 99999 Then
            PositionReturn = 1
        End
    End
 	
    * Attempt to find the table name in our cache.
    Locate HashTable in FilesOpened Setting POS Then
     	Read Rec From FileHandles(POS), HashKey Then
            If PositionReturn Then Ans = Rec<ColumnPosition> Else Ans = Rec
        End Else
            Ans = DSRMessage("DSTAGE_TRX_I_0010" , "**RECORD NOT FOUND**", "" )
        End
    End Else
	* Table is not in cache of opened tables, so open it.
        OpenPath HashTable To FileHandles(POS) Then
            FilesOpened<-1> = HashTable
            Read Rec From FileHandles(POS), HashKey Else
                Rec = DSRMessage("DSTAGE_TRX_I_0010" , "**RECORD NOT FOUND**", ""  )
            End
            If PositionReturn And Rec <> DSRMessage("DSTAGE_TRX_I_0010" , "**RECORD NOT FOUND**", ""  ) Then
                Ans = Rec<ColumnPosition>
            End Else
                Ans = Rec
            End
        End Else
            Rec = DSRMessage("DSTAGE_TRX_I_0011" , "**TABLE NOT FOUND**", "" )
            Ans = Rec
        End
    End