IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Giving date as a qualifier in a dataset name


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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
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
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 Developer


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

PostPosted: Fri Sep 30, 2005 3:53 am
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
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 Developer


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

PostPosted: Fri Sep 30, 2005 5:27 am
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Replacing 'YYMMDD' with date, varying... SYNCSORT 3
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Need to convert date format DFSORT/ICETOOL 20
Search our Forums:

Back to Top