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
 
To fetch system date in YYYYMMDD format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Sathishbabu M

New User


Joined: 08 May 2008
Posts: 2
Location: Hyderabad

PostPosted: Fri Nov 14, 2008 3:51 pm    Post subject: To fetch system date in YYYYMMDD format
Reply with quote

Hi Friends,

Can any one help me to fetch the system date in YYYYMMDD format using sort.

Thanks,
Sathishbabu
Back to top
View user's profile Send private message

Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2285
Location: @my desk

PostPosted: Fri Nov 14, 2008 3:55 pm    Post subject:
Reply with quote

Sathish,

You can use the DATE1 function to achieve this.

Code:
//STEP01  EXEC PGM=SORT
//SYSOUT    DD SYSOUT=*
//SORTOUT   DD SYSOUT=*
//SORTIN    DD *       
DUMMY RECORD           
//SYSIN     DD *       
  OPTION COPY         
  INREC BUILD=(&DATE1)
Back to top
View user's profile Send private message
Sathishbabu M

New User


Joined: 08 May 2008
Posts: 2
Location: Hyderabad

PostPosted: Fri Nov 14, 2008 3:58 pm    Post subject:
Reply with quote

Thanks Arun....it works..
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

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