View previous topic :: View next topic
|
Author |
Message |
vel2k8
New User
Joined: 10 Jun 2005 Posts: 11 Location: Jacksonville
|
|
|
|
Anybody there,
I have a input file with X number of records.
I want a sort out file with the "filename,todays date,record count,yesterdays date".
Thanks
Vel. |
|
Back to top |
|
|
vel2k8
New User
Joined: 10 Jun 2005 Posts: 11 Location: Jacksonville
|
|
|
|
Already I am using the following card but I dont know how to create the yesterdays date.
SORT FIELDS=COPY
OUTFIL TRAILER1=('TEST.FILE.NAME ',',',
&DATENS=(4MD),',',COUNT=(M12,LENGTH=10),',',&DATENS=(4MD)),NODETAIL
Thanks
Vel. |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
/*
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,
BUILD=(C'TODAY,''',DATE1,C'''',80:X,/,
C'YESTERDAY,''',DATE1-1,C'''')
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL TRAILER1=('TEST.FILE.NAME ',',',
TODAY,',',COUNT=(M12,LENGTH=10),',',YESTERDAY),NODETAIL
/*
|
|
|
Back to top |
|
|
|
|