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 Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Dump analysis of an assembler module monica1 PL/I & Assembler 4 Tue May 09, 2017 10:05 am
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm


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