Code so far:
SORT FIELDS=(06,01,BI,A)
INCLUDE COND=(06,01,BI,EQ,X'46',AND,23,02,BI,EQ,X'0001')
OUTFIL FNAMES=SORTRPT,VTOF,BUILD=(02:11,4,DT1,EDIT=(TTTT/TT/TT),
15:07,4,TM1,EDIT=(TT:TT:TT),
25:225,4,BI)
INCLUDE COND=(06,01,BI,EQ,X'46',AND,23,02,BI,EQ,X'0001')
OUTFIL FNAMES=SORTRPT,VTOF,BUILD=(02:11,4,DT1,EDIT=(TTTT/TT/TT),
15:07,4,TM1,EDIT=(TT:TT:TT),
25:225,4,BI)