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
 
Giving date as a qualifier in a dataset name

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
hyuzen

New User


Joined: 10 Jul 2005
Posts: 58

PostPosted: Fri Sep 30, 2005 12:35 am    Post subject: Giving date as a qualifier in a dataset name
Reply with quote

Hi All,

Is it possible to create a dataset with date qualifier ? I do not want to do it manually. An example for a dataset name:

PROD.ATM.30092005.NVSAM

30092005 is the date format I want.

Thanks in advance,
Hyuzen
Back to top
View user's profile Send private message

jon_s_rice

Active User


Joined: 24 Mar 2005
Posts: 102
Location: Douglasville, GA USA

PostPosted: Fri Sep 30, 2005 1:11 am    Post subject:
Reply with quote

This will not work. Each segment must begin with a letter or #. The segmant would have to be generated with a program, perhaps CLIST or ReXX.
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Fri Sep 30, 2005 1:22 am    Post subject: Re: Giving date as a qualifier in a dataset name
Reply with quote

As jon_s_rice said, you can't have a dataset node with 8 numeric characters. You'll have to re-think your requirements. However, since this is the DFSORT forum, I'll offer a template DFSORT job to do what you want:

Code:

//STEP0001 EXEC PGM=SORT                                         
//SORTIN   DD   *                                                 
NOTHING                                                           
/*                                                               
//SORTOUT  DD   SYSOUT=(*,INTRDR)
//SYSOUT   DD   SYSOUT=*
//SYSIN    DD   *                                                 
  OPTION COPY                                                     
  INREC FIELDS=(DATE1,80:X)                                       
  OUTFIL OUTREC=(C'//MYJOB JOB (...),CLASS=X,MSGCLASS=X',80:X,/, 
            C'//STEP0001 EXEC PGM=IEFBR14',/,                     
            C'//FILE0001',                                       
            C' DD DSN=PROD.ATM.D',7,2,5,2,3,2,C'.NVSAM,',/,       
            C'// UNIT=SYSDA,SPACE=(TRK,(5,5)),',/,               
            C'// DISP=(,CATLG,DELETE)')                           
/*                                                               
//                                                               
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Sep 30, 2005 3:53 am    Post subject:
Reply with quote

Here's another way to do it with DFSORT:

Code:

//STEP0002 EXEC PGM=SORT
//SORTIN   DD   *
//SORTOUT  DD   SYSOUT=(*,INTRDR)
//SYSOUT   DD   SYSOUT=*
//SYSIN    DD   *
  OPTION COPY
  OUTFIL REMOVECC,NODETAIL,
    TRAILER1=(C'//MYJOB JOB (...),CLASS=X,MSGCLASS=X',/,
            C'//STEP0001 EXEC PGM=IEFBR14',/,
            C'//FILE0001',
            C' DD DSN=PROD.ATM.D',DATENS=(DMY),C'.NVSAM,',/,
            C'// UNIT=SYSDA,SPACE=(TRK,(5,5)),',/,
            C'// DISP=(,CATLG,DELETE)')
/*
Back to top
View user's profile Send private message
Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Fri Sep 30, 2005 4:41 am    Post subject: Re: Giving date as a qualifier in a dataset name
Reply with quote

Oops! My bad. A little cut-and-paste error (the test DID work).
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Sep 30, 2005 5:27 am    Post subject:
Reply with quote

I fixed your post.
Back to top
View user's profile Send private message
hyuzen

New User


Joined: 10 Jul 2005
Posts: 58

PostPosted: Fri Sep 30, 2005 11:30 pm    Post subject: Re: Giving date as a qualifier in a dataset name
Reply with quote

Hi Frank and Kevin,

Thank you very much for your posts.

Regards,
Hyuzen
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am
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