To Search for a particular string within a file when
the exact position of that string within a record is not known and to write
that record in the Output file, the following SORT card can be used.
//SYSIN DD
*
SORT
FIELDS=COPY
INCLUDE
COND=(1,80,SS,EQ,C'PQ2222222222')
/*
Here,
SS - Sub string,
1 - Starting position of the range
80 - Width of the search range
EQ - Comparison operators
Note:
- Only EQ
& NE can be used for comparison.
- We can
even use OMIT COND instead of INCLUDE
Consider input files:
ABC.SORTIN
PQ000003 1000001 PQ2222222222 123
PQ000002 1000002 EF1111111111
PQ000004 1000002 AB3333333333 530 PQ2222222222
PQ000003 1000001 CD5555555555 005
PQ000001 1000004 RQ1111111111
PQR.SORTOUT
PQ000003 1000001 PQ2222222222 123
PQ000004 1000002 AB3333333333 530 PQ2222222222
We can also use AND/OR to combine conditions
//SYSIN DD *
SORT
FIELDS=COPY
INCLUDE
COND=(1,80,SS,EQ,C'PQ2222222222',AND,
1,80,SS,EQ,C'AB3333333333')
/*
XYZ.SORTOUT
PQ000004 1000002 AB3333333333 530 PQ2222222222