Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
suzeet,
Here's a DFSORT job that will do what I think you asked for. I'm assuming there's only one record in file2 with two PD values.
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file2 (FB/80)
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,
BUILD=(C'TARG1,+',1,6,PD,TO=ZD,80:X,/,
C'TARG2,+',10,6,PD,TO=ZD)
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=... input file1 (VB/500)
//SORTOUT DD DSN=... output file (VB/500)
//SYSIN DD *
OPTION COPY
INCLUDE COND=(8,6,ZD,GE,TARG1,AND,8,6,ZD,LE,TARG2)
/*
|
|
|