Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a z/OS DFSORT V1R5 job that will do what you asked for. If the date in the record matches the current date, you'll get RC=16. If the date in the record does not match the current date, you'll get RC=0. You can use the RC to skip the next step or not.
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY
INREC BUILD=(5,4,3,2,1,2)
OUTFIL OMIT=(1,6,CH,EQ,DATE1),NULLOFL=RC16
/*
|
|
|