Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (FB/80)
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY,STOPAFT=1
* Create DFSORT symbol as:
* MYDATE,'yyyy-mm-dd'
OUTREC FIELDS=(C'MYDATE,''',1,10,C'''',80:X)
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=... input file2 (VB/3606)
//SORTOUT DD DSN=... output file (VB/3606)
//SYSIN DD *
OPTION COPY
* Use MYDATE to overlay old date.
INREC OVERLAY=(9:MYDATE)
/*
|
|
|