gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
it's Friday afternoon here and I'm in a good mood
try this
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
DUMMY RECORD
//SORTOUT DD DSN=&&SYMBOLS,DISP=(,PASS,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(1,1))
//SYSIN DD *
SORT FIELDS=COPY
INREC BUILD=(DATE1-1)
OUTREC BUILD=(1,8,Y4T,TOJUL=Y4T)
OUTFIL BUILD=(C'DAYBEFR,''',01,07,C'''',80:X)
/*
//STEP0002 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&SYMBOLS,DISP=SHR
//SYMNOUT DD SYSOUT=*
//SORTIN DD *
2012297
2012299
2012298
2012300
2012301
//DAY#BEFR DD SYSOUT=*
//ELSE DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=DAY#BEFR,
INCLUDE=(01,07,CH,EQ,DAYBEFR)
OUTFIL FNAMES=ELSE,SAVE
/* |
Gerry |
|
