IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to reduce 2006 year by 1 (2005 ) in Assembler code


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
kalpana

New User


Joined: 19 Nov 2004
Posts: 24
Location: Banglore

PostPosted: Fri Jul 14, 2006 2:20 pm
Reply with quote

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
View user's profile Send private message
bengtpelle

New User


Joined: 28 Aug 2006
Posts: 24
Location: St. Petersburg, FL

PostPosted: Mon Aug 28, 2006 10:46 pm
Reply with quote

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
icon_biggrin.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Parallelization in CICS to reduce res... CICS 4
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top