Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts A not very Christmassy PL/I tale, wit... prino PL/I & Assembler 3 Mon Dec 26, 2016 1:01 am
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us