Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 4579
Location: San Jose, CA
|
|
|
|
Nandita,
You can use the following DFSORT job to do what you asked for:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file2
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
* Create a DFSORT Symbol as follows:
* DEL,'n'
* where n is the first byte in the file2 record.
OUTREC FIELDS=(C'DEL,''',1,1,C'''',80:X)
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=SHR
//SORTIN DD DSN=... input file1
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
* Use DEL to delete the unwanted records from file1.
OMIT COND=(1,1,CH,EQ,DEL)
/*
|
|
|
