View previous topic :: View next topic
|
Author |
Message |
kalpana
New User
Joined: 19 Nov 2004 Posts: 24 Location: Banglore
|
|
|
|
Hi all,
I need to reduce 2006 year by 1 (2005 ).
I have to change the end date only when the end date is greater than 2006
IF the End date is greater than 2006 I have to subtract 1 year from that ie; 2005
If the End date is less than 2006 means no need to change the end date value.
For this Iam coding like this
CLC XNTEDAT2(4),=XL4'106F001C'
BH ROUT2
ROUT2 EQU *
MVC XNTEDAT2(4),=XL4'105F365C'
If it is End date is less than 2006 means I have to restore the original value of the end date.
If u have any idea regarding this plzz let me know
XNTEDAT2 -> This field contains the End date value which is defined as XL4 |
|
Back to top |
|
|
bengtpelle
New User
Joined: 28 Aug 2006 Posts: 24 Location: St. Petersburg, FL
|
|
|
|
The XNTEDAT2 field contains two packed values. You can work on them separately.
CP XNTEDAT2(2),=P'106'
BL DONE
SP XNTEDAT2(2),=P'1'
ZAP XNTEDAT2+2(2),=P'365'
DONE DS 0H
|
|
Back to top |
|
|
|