JCL: DFSORT, IFTHEN, Overlay,When,HIT

//SYSIN     DD     *

INREC  IFTHEN =(WHEN=(10,1,CH,EQ’C’),OVERLAY(10:C’+’),HIT=NEXT),

IFTHEN=(WHEN=(27,1,CH,EQ’C’),OVERLAY(27:C’+’),HIT=NEXT),

and so on

SORT FIELDS=COPY

OUTREC FIELDS=(1,3122)

//

Note: HIT=NEXT, tells that to process next IFTHEN