View previous topic :: View next topic
Author
Message
hyuzen New User Joined: 10 Jul 2005Posts: 58
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
jon_s_rice Active User Joined: 24 Mar 2005Posts: 102 Location: Douglasville, GA USA
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
Kevin Active User Joined: 25 Aug 2005Posts: 234
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
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
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
Kevin Active User Joined: 25 Aug 2005Posts: 234
Oops! My bad. A little cut-and-paste error (the test DID work).
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
I fixed your post.
Back to top
hyuzen New User Joined: 10 Jul 2005Posts: 58
Hi Frank and Kevin,
Thank you very much for your posts.
Regards,
Hyuzen
Back to top
Please enable JavaScript!