This topic did not show up in my inbox but is available via google groups
https://groups.google.com/forum/#!topic/bit.listserv.ibm-main/YEB4cb-PRWs
It is quite simple to replace the values taking the change values from a
different file.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0000120150209
//SORTOUT DD DSN=&&S,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN DD *
OPTION COPY,STOPAFT=1,NULLOUT=RC4
OUTFIL BUILD=(C'DATEVAL,C''',6,8,C'''',/,
C'IDVAL,C''',1,5,C'''',80:X)
//*
//STEP0200 EXEC PGM=SORT,COND=(4,LE,STEP0100)
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DISP=SHR,DSN=&&S
//SYMNOUT DD SYSOUT=*
//SORTIN DD *
AND B.DATA_RIFERIMENTO = &DATA
AND B.CODICE_MOD_PER = 'CR'
WHERE A.ID = &ID
AND A.DATA_INIZIO < &DATA
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC FINDREP=(INOUT=(C'&DATA',DATEVAL,
C'&ID',IDVAL))
//*
The output from this job is
AND B.DATA_RIFERIMENTO = 20150209
AND B.CODICE_MOD_PER = 'CR'
WHERE A.ID = 00001
AND A.DATA_INIZIO < 20150209
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
