These sort statements will take a r11.3 BTI Output(listed below) and format it as input to a BTI
//SYSIN DD *
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=NONE
INREC FIELDS=(1:2,8,72X)
INCLUDE COND=(33,3,CH,EQ,C'000')
OUTFIL HEADER1=(1:'JOB'),REMOVECC
OUTREC FIELDS=(1:C'PURGE,',1,8,66X)
/*
OUTPUT OF SORT
EDIT WXYZ.TESTS
Command ===>
****** ***************************** Top of Data
000001 JOB
000002 PURGE,WXYZBAT1
000003 PURGE,WXYZBAT2
000004 PURGE,WXYZBTI
INPUT TO SORT
1BSTR-00 *** INPUT TO BATCH TERMINAL ***
/LOGON ******** * GENERATED LOGON *
LJOB,JOB=WXYZ*
/LOGOFF * GENERATED LOGOFF *
0BSTR-00 *** END OF INPUT ***
1 16056 131454 /LOGON ********
CA-7.023 - r11.3( ) OPERATOR IS LOGGED ON TO TERMINAL TBATCH7 AT 13:
- 16056 131454 LJOB,JOB=WXYZ*
1LJOB,JOB=WXYZ*
JOB=WXYZ* DATE=16.056 P
JOB ----JCL---- SYSTEM USR MAIN PROSE SCHED --NUMBER OF- LA
NAME ID MEMBER -NAME- -ID -ID- DSNBR DSNBR STP DDS RUNS DA
WXYZBAT1 005 WXYZBAT1 OPER 000 ALL *NONE* *NONE* 001 006 0352 160
WXYZBAT2 005 WXYZBAT2 OPER 000 ALL *NONE* *NONE* 001 011 0042 153
WXYZBTI 005 WXYZBTI OPER 000 ALL *NONE* *NONE* 002 009 0496 160