Janet, Here is a sample Job using DFSORT
//*************************************************************** //* CREATE INPUT FILE WITH 8 BYTE START AND END TIMES * //*************************************************************** //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * CF115F56BCCEB945 CF115F571ED82BC3 CF115F5819228AC5 CF115F582B2F8951 //SORTOUT DD DSN=&&IN,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE) //SYSIN DD * OPTION COPY INREC BUILD=(01:01,16,TRAN=UNHEX, 10:21,16,TRAN=UNHEX) //* //*************************************************************** //* SHOW THE START AND END TIMES AND DIFFERENCE IN HH:MM:SS:XX * //*************************************************************** //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=&&IN //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC OVERLAY=(25:10,8,BI,SUB, $ END_TIME - 01,8,BI,BI,LENGTH=8) $ START_TIME OUTREC BUILD=(01,8,TC4,EDIT=(TT:TT:TT:TT), $ START_TIME X, $ SPACE 10,8,TC4,EDIT=(TT:TT:TT:TT), $ END_TIME X, $ SPACE 25,8,TC4,EDIT=(TT:TT:TT:TT)) $ DIFFERENCE OUTFIL REMOVECC, HEADER2=('START_TIME END_TIME DIFFERENCE',/, '=========== =========== ===========') //* The output from this job is START_TIME END_TIME DIFFERENCE =========== =========== =========== 18:18:54:61 18:18:55:01 00:00:00:40 18:18:56:04 18:18:56:11 00:00:00:07 Hope this helps... Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 06/09/2015 09:07:57 AM: > From: Janet Graff <0000004dc9e91b6d-dmarc-requ...@listserv.ua.edu> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 06/09/2015 09:08 AM > Subject: Re: STCK question > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Thanks for everyone's suggestions! I did ask for formatting so the > output looks like time but I think the decimal output will be useful as well. > > Janet > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN