I tried this, and ended with S001-1 abend
//SORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=DASD,SPACE=(CYL,(500,500))
//SORTIN DD PATHOPTS=ORDONLY,
// PATH='/usr/lpp/internet/server_root/logs/httpd-log.Jan052018',
// FILEDATA=TEXT,
// RECFM=VB,LRECL=290,BLKSIZE=27998
//SORTOUT DD SYSOUT=*
//REPORT DD SYSOUT=*
//*
//SYSIN DD *
OPTION VLSHRT,VLSCMP
INREC PARSE=(%01=(ABSPOS=5,ENDBEFR=BLANKS,FIXLEN=15),
%02=(STARTAFT=X'AD',ENDBEFR=BLANKS,FIXLEN=20),
%03=(STARTAFT=X'BD407F',ENDBEFR=BLANKS,FIXLEN=6),
%04=(STARTAFT=BLANKS,ENDBEFR=X'7F',FIXLEN=200),
%05=(STARTAFT=BLANKS,ENDBEFR=BLANKS,FIXLEN=3)),
BUILD=(1,4,%01,%02,%03,%04,%05,X'00000001')
SORT FIELDS=(46,200,CH,A)
SUM FIELDS=(249,4,BI)
OUTREC BUILD=(1,4,46,200,X,249,4,BI,M10,LENGTH=9)
//*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
