Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need to reduce 2006 year by 1 (2005 ) in Assembler code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
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    Post subject: Need to reduce 2006 year by 1 (2005 ) in Assembler code
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Sr SW Eng-Rocket Software (Assembler,... Kenneth Barton Lasky Mainframe Jobs 0 Fri Aug 25, 2017 12:29 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us