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 <[email protected]> wrote on
06/09/2015 09:07:57 AM:
> From: Janet Graff <[email protected]>
> To: [email protected]
> Date: 06/09/2015 09:08 AM
> Subject: Re: STCK question
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> 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 [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
