|
|
| Author |
Message |
hyuzen
Active User
Joined: 10 Jul 2005 Posts: 50
|
|
|
|
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 |
|
 |
References
|
|
 |
jon_s_rice
Active User
Joined: 24 Mar 2005 Posts: 106 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 2005 Posts: 254
|
|
|
|
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 Moderator
Joined: 15 Feb 2005 Posts: 4684 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 2005 Posts: 254
|
|
|
|
| Oops! My bad. A little cut-and-paste error (the test DID work). |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005 Posts: 4684 Location: San Jose, CA
|
|
|
|
| I fixed your post. |
|
| Back to top |
|
 |
hyuzen
Active User
Joined: 10 Jul 2005 Posts: 50
|
|
|
|
Hi Frank and Kevin,
Thank you very much for your posts.
Regards,
Hyuzen |
|
| Back to top |
|
 |
|
|
|