Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
Author Message
hyuzen

Active User


Joined: 10 Jul 2005
Posts: 50

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
References
jon_s_rice

Active User


Joined: 24 Mar 2005
Posts: 106
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: 254

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: 4684
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: 254

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: 4684
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

Active User


Joined: 10 Jul 2005
Posts: 50

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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1