Hi,
I used two steps to perform subtraction (minus 1) from the year taken from the system date. Could a one step process be used instead ?
//STEP1 EXEC PGM=SORT
//*
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTIN DD DSN=DATA1…,DISP=SHR
//SORTOUT DD DSN=DATA2…,DISP=OLD
//SYSIN DD *
SORT FIELDS=(5,2,CH,A)
INCLUDE COND=(5,2,CH,EQ,C'H7')
OUTREC FIELDS=(C'1',YEAR,2,2)
//SYMNAMES DD *
YEAR,S'&YR4'
/*
DATA2
12010H7…
12010H7…
12010H7…
12010H5..
//STEP2 EXEC PGM=SORT
//*
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTIN DD DSN=DATA2,…..DISP=OLD
//SORTOUT DD DSN=DATA3,….DISP=SHR
//SYSIN DD *
SORT FIELDS=COPY
OUTREC OVERLAY=(2:2,4,ZD,SUB,1,1,ZD,EDIT=(TTTT))
/*
//SYSOUT DD SYSOUT=*
DATA3
12009H7
12009H7
12009H7
:
Regards, Eric