Although this isn't quite as clean of a way as I'd like, you could use the character function to convert the date into a character field, from which you could then substring the 3rd & 4th positions of the year, so you could bypass setting up a data structure.

Assuming that year is a character field, you could do something like this:

Year = %Subst( %Char( SomeDateField: *ISO): 3: 2);


CWC

///////

Hi,

Or you can define a date field with DatFmt(*YMD) to convert original date to this format. Then you can use %Subdt.

D DateYMD S D DatFmt(*YMD) (or *DMY)

C Eval DateYMD = YourDateISO
C Eval YY = %SubDt(DateYMD:*Y)

Regards,
Wilson

Also assuming char field
EVAL %SUBST(@temp:3:2) = @YY
GL
Nitzinger

-----------------------
Note that using *Y as the second parameter for the %SubDt BIF will always return a four digit year, even if the date format is *MDY or *YMD, so that is why %SubSt would seem the only sure way of getting a two digit year, at this point.

CWC
-----------------------

CWC is right! %SubDt will return 4 digits year and as he said %SubSt will be the right way.

Wilson

Please complete the following information:

REGISTER / LOG-IN TO DISCUSS

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Submit your e-mail address below to continue

E-mail: 

E-mail: 

Handle:   

Password: 

Forgot Password?

Create Handle: 

Your handle identifies you in ITKnowledgeExchange. Max 30 char.

Create Password: 

Confirm Password: 

Yes, I agree to the IT Knowledge Exchange  Terms and Conditions.

hidden modal window