skgupta81
New User
Joined: 11 Nov 2008 Posts: 27 Location: Canada
|
|
|
|
Hi all,
I am using below sort card by referring to another forum "http://ibmmainframes.com/about59387.html" which is working for me as far as matching and replacing field is concerned.
But its changing the original sequence or records.
I know the way of doing it by making another 2 sort card, First by adding sequence in the original file and then below sort card and then another sort card for removing the sequence numbers.
But I want to do it in one sort card if possible. our system is the latest and support all kinds of sort instructions.
I want to keep the order of the records same(I mean Header, data and trailer). This file can contain multiple headers and trailers.
Code: |
/STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DISP=SHR,DSN=Your Input FB 144 Byte file
//INB DD DISP=SHR,DSN=Your Input FB 80 Byte file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(20,4,A)
JOINKEYS F2=INB,FIELDS=(1,4,A)
JOIN UNPAIRED,F1
REFORMAT FIELDS=(F1:1,144,?,F2:6,4)
INREC IFOUTLEN=144,
IFTHEN=(WHEN=(145,1,CH,EQ,C'B'),OVERLAY=(20:146,4))
//* |
|
|