Increase DATE in date field

Goodday All,

Please can anyone advise how to increment date in a date field.

eg Date is 20010707, what command can use to increase this by 10 years in a routine.

Note: Output should be 20110707.

Thank you
This email address is being protected from spambots. You need JavaScript enabled to view it.
jbase 5

In the field LD.LOANS.AND.DEPOSITS>FIN.MAT.DATE you can put (for example) 120M, and the IN2 routine makes the calculation ... and the result is 20220412 (reference to VALUE.DATE)

The IN2 routine is IN2MATLMM ...

Thanks for your response John I know this is possible in the field I am asking how this can be coded in routine say for instance as explained above 20010101 + 10YEARS.
perhaps 20010101 is opening date in customer table.

Simply adding is not an option?

DATE.1 = 20010707
YEAR.1 = DATE.1[1,4]
MONTH.DAY = DATE.1[4,4]
YEAR.2 = YEAR.1 + 10
DATE.2 = YEAR.2:MONTH.DAY

Function CFQ
Description:
Calculates the next date from today's date and a frequency code.
Arguments:
COMI from I COMMON
Incoming:
COMI
YYYYMMDDXXXXX where XXXXX is the frequency code.
Returned:
COMI
YYYYMMDDXXXXX the calculated date and the frequency code.

Dear dfixx,

If you are going to use IN2MATLMM then you have to pass the N & T array. You can see the details of N & T array in I_RULES in GLOBUS.BP/T24.BP respect to your release.

CALL IN2MATLMM(N1,T1)

And also before using this you have to know how it works.
For example, take maturity date itself. When you enter 10M in maturity date field of LD application, based on the field value date of the contract, system will calculate the maturity date. To achieve this, internally before calling this IN2 routine, field position of value date in R.NEW should be passed, along with the country code. Else it won't work. In COMI, you can pass either nnW,nnM & nnD for week, month & days.

CFQ is another option. Also try for CDT & WORKING.DAYS, else you can write a logic of your own as Azizfatkh said, but you have to cater for working day and the date part.

Thank you all will try which options works best.

Eventually I was able to use 'Azizfatkh' solution. Thanks all for your contributions

johnperez yes, i knew about that issue and that's why i appreciated durai's and jpb's knowledge...

In case dfixx you want to develop your own calculation just add this simple check to determine validity of 29th Feb

0006 YEAR = 2003
0007
0008 IF MOD(YEAR,4) EQ 0 THEN
0009 IF MOD(YEAR,100) EQ 0 THEN
0010 IF MOD(YEAR,400) EQ 0 THEN
0011 PRINT "LEAP YEAR"
0012 END ELSE
0013 PRINT "NOT LEAP YEAR"
0014 END
0015 END ELSE
0016 PRINT "LEAP YEAR"
0017 END
0018 END ELSE
0019 PRINT "NOT LEAP YEAR"
0020 END

durai611 could give example for CALL IN2MATLMM(N1,T1) and to form frequency code for CFQ. Thanks

Thanks so much I appreciate your input!

Check this program for WORKING.DAY

Hi durai611

Can you send me more information about the WORKING.DAY routine .i.e. which variables it takes in and which it returns.

Thank you.

Hi,

Onething I forgot to mention. You have to check whether this routine WORKING.DAY is allowed to use in your local development.