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
 
Easy retreive : inserting current date in variable

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
amar naik

New User


Joined: 29 Aug 2007
Posts: 8
Location: NY

PostPosted: Fri Sep 21, 2007 1:20 am    Post subject: Easy retreive : inserting current date in variable
Reply with quote

I have defined a variable in my easyretrieve program

Code:

DEFINE    TEMPOR  W 80 A VALUE '      FILE EMPTY-INSERTED BY +
                     TST TEAM   DATE: 09/20/2007'


the date that is mentioned is hard coded. I want to insert the date at run time in the variable TEMPOR

I get the current system date by using below code.
Code:

DEFINE CURRENT-DATE                  W  10  A
DEFINE CURRENT-MM  CURRENT-DATE         02  A
DEFINE CURRENT-DD  CURRENT-DATE      +3 02  A
DEFINE CURRENT-YY  CURRENT-DATE      +6 04  A

JOB INPUT NULL                         
   CURRENT-DATE = SYSDATE               
   DISPLAY 'CURRENT-DATE'  CURRENT-DATE


before i write the 'TEMPOR' variable to the file i want it to have the system date embedded. how do i do it?
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Fri Sep 21, 2007 1:32 am    Post subject:
Reply with quote

Cant you split the TEMPOR into different fields and move the date ?
Back to top
View user's profile Send private message
amar naik

New User


Joined: 29 Aug 2007
Posts: 8
Location: NY

PostPosted: Fri Sep 21, 2007 1:35 am    Post subject:
Reply with quote

i am working on it. thought somebody might have a better idea icon_biggrin.gif
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri Sep 21, 2007 1:42 am    Post subject:
Reply with quote

Are you planning on continuing this topic at this site or are you going to continue it at both sites.
Back to top
View user's profile Send private message
amar naik

New User


Joined: 29 Aug 2007
Posts: 8
Location: NY

PostPosted: Fri Sep 21, 2007 1:46 am    Post subject:
Reply with quote

both sites.. icon_neutral.gif
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Fri Sep 21, 2007 2:00 am    Post subject:
Reply with quote

CraigG wrote:
Are you planning on continuing this topic at this site or are you going to continue it at both sites.
Aw, Craig, did you have to tell.......
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Date in where clause - Windows Karthikeyan Subbarayan DB2 9 Wed Nov 15, 2017 9:07 pm
No new posts Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
No new posts Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
This topic is locked: you cannot edit posts or make replies. Can a alphanumeric data be moved to a... nico_neoz COBOL Programming 10 Mon Oct 30, 2017 8:28 am

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