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
 

 

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 FTP - JCL failed while passing FTP co... Suneetha1612 JCL & VSAM 12 Wed Nov 16, 2016 7:33 pm
No new posts TOT & DATE parameter in ICEMAN hemanthj642 DFSORT/ICETOOL 4 Mon Nov 14, 2016 5:19 am
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
This topic is locked: you cannot edit posts or make replies. Get correct date and time when curren... balaji81_k DB2 24 Fri Oct 14, 2016 10:40 pm
No new posts To trim spaces in a pipe delimited da... Nish84 COBOL Programming 16 Mon Oct 10, 2016 1:54 pm


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