//SYSIN DD *
SORT FIELDS=(1,2,BI,A)
OUTREC IFTHEN=(WHEN=(1,2,BI,EQ,0),OVERLAY=(40:SEQNUM,2,ZD)),
IFTHEN=(WHEN=(1,2,BI,NE,0),OVERLAY=(35:SEQNUM,4,BI),HIT=NEXT),
IFTHEN=(WHEN=(1,2,BI,EQ,999),
OVERLAY=(11:35,4,BI,SUB,+1,BI,LENGTH=4,42:SEQNUM,2,ZD))
OUTFIL OMIT=(40,2,ZD,GT,1,OR,42,2,ZD,GT,1),BUILD=(1,34)
//*
SORT FIELDS=(1,2,BI,A)
OUTREC IFTHEN=(WHEN=(1,2,BI,EQ,0),OVERLAY=(40:SEQNUM,2,ZD)),
IFTHEN=(WHEN=(1,2,BI,NE,0),OVERLAY=(35:SEQNUM,4,BI),HIT=NEXT),
IFTHEN=(WHEN=(1,2,BI,EQ,999),
OVERLAY=(11:35,4,BI,SUB,+1,BI,LENGTH=4,42:SEQNUM,2,ZD))
OUTFIL OMIT=(40,2,ZD,GT,1,OR,42,2,ZD,GT,1),BUILD=(1,34)
//*