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.        *
*************************************************************************
*
* Routine takes many date formats and converts them to a common output format; 
* the SDK timestamp format "YYYYMMDD HH:MM:SS.SSS".
*
* Expected input formats:
*    If Arg2 = 1 then format of Date is expected to be (CC)YY MM DD with delimiters.
*    If Arg2 = 0 then format of the date is expected as stated below.
*	- Any delimited date with Month Day Year, e.g. 4/19/1999, 4.19.1999, 4/19/99, 4.19.99
*       - Alpha month dates ie. Apr 19 1999, Apr 19 99
*       - Non-delimited date with Year Month day e.g. 19990419, 990419
*       - Jullian Year Days ie. 99126, 1999126
*       These could also have a time entry, e.g. 10:30:49.000, 10:30:49 or 10:30

    RoutineName = 'DateGenericToTimeStamp'

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

*
* Following variables are for Y2K automation:
* 	Y2KDate is the year to 99 that will use the Y2KCentury
*       If year coming in is less then Y2KDate then use Y2KCentury + 1

    Y2KDate = 30
    Y2KCentury = 19

* Remove extra spaces, and count number of spaces remaining
    PDate = Trim(Arg1)
    NumbofSpace = Count(PDate," ")

    Begin Case
        Case NumbofSpace = 1
            IDate = Field(PDate," ",1)
            ITime = Field(PDate," ",2)
        Case NumbofSpace = 3
            Pos = Index(PDate," ",3)
            IDate = PDate[1,Pos-1]
            ITime = Field(PDate," ",4)
        Case 1
            If Index(PDate,":",1) Then
               IDate = Oconv(@date,"D")
               ITime = PDate
            End Else
               IDate = PDate
               ITime = "00:00:00.000"
            End
    End Case

    Begin Case
    	Case Len(ITime) = 5
            ITime = ITime:":00.000"
        Case Len(ITime)=8
            ITime = ITime:".000"
        Case Len(ITime)=11
            ITime = ITime:"0"
    End Case

    If not(isnull(Arg1)) then
        If Arg2 then
            IDate = Iconv(IDate,"DYMD[2,2,2]")
        End Else
            IDate = Iconv(IDate,"D")
        End
        If Status() or Field(ITime,":",1) > 23 or Field(ITime,":",2) > 59 or Field(ITime,":",3) > 59.999 Then
            Message = DSRMessage("DSTAGE_TRX_E_0015", "Could not convert date/time :%1", Arg1)
            CALL DSLogWarn(Message, RoutineName)
            Ans = ""
        End Else
            Year = Oconv(IDate,"DY")
            If Index(Arg1,Year,1) else
               Year = Oconv(IDate,"D2Y")
               Month = Oconv(IDate,"DM")
               Day = Oconv(IDate,"DD")
               If Year GE Y2KDate then
                  Year = Y2KCentury:Year
               End Else
                  Year = Y2KCentury+1:Year
               End
               IDate = Iconv(Year:"-":Month:"-":Day,"D-YMD[4,2,2]")
            End
            Ans = Trim(Oconv(IDate,"DYMD[4'',2'',2'']")," ","A"):" ":ITime
        End
    End Else
        Ans = Arg1
    End

Code: Select all

ICONV('20121231','D')

Code: Select all

ICONV('20130102','D')