Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like this to do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD *
* Use system symbols to create a DFSORT symbol for:
* CURDATE,C'dd/mm/yyyy'
CURDATE,S'&DAY./&MON./&YR4'
//SYMNOUT DD SYSOUT=*
//SORTIN DD *
12/10/2007.......
13/10/2007.....
15/10/2007.....
16/10/2007.....
17/10/2007.....
18/10/2007....
19/10/2007....
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//SYSIN DD *
OPTION COPY
* Use the CURDATE symbol in INCLUDE.
OUTFIL FNAMES=OUT1,INCLUDE=(1,10,CH,EQ,CURDATE)
OUTFIL FNAMES=OUT2,SAVE
/*
|
For complete information on DFSORT's System Symbol String Constants function, see:
Use [URL] BBCode for External Links |
|