sqlcode1
Active Member
Joined: 08 Apr 2010 Posts: 577 Location: USA
|
|
|
|
jr3011,
Sorry I didn't read that clearly the first time...
See if below helps... I am assuming your input is FB80.
Code: |
//STEP0001 EXEC PGM=SORT
//SORTIN DD INPUT FB/80
//SORTOUT DD OUTPUT FB/80
//SYSIN DD *
INREC OVERLAY=(81:DATE1,89:81,8,Y4T,SUBYEARS,+3,TOGREG=Y4T)
SORT FIELDS=COPY
OUTFIL INCLUDE=((1,8,ZD,GE,89,8,ZD),AND,
(1,8,ZD,LE,81,8,ZD)),BUILD=(1,80)
/*
//SYSOUT DD SYSOUT=*
//* |
Thanks, |
|