Which records are you trying to process? There might be samples on 
_www.cbttape.org_ (http://www.cbttape.org) .
 
DFSORT and SAS/MXG are SMFTIME knowledgeable. From DFSORT Smart Tricks  
manual(pg 80).
 
Likewise, you can use the TOD date and time formats (DC1-3 and TC1-4) and  
the ETOD date and time formats (DE1-3 and TE1-4) in INREC, OUTREC, OUTFIL,  
DISPLAY and OCCUR to display the normally unreadable TOD (STCK) and ETOD 
(STCKE)  date and time values, respectively, in a wide range of recognizable 
ways. For  example, DC1 automatically converts the TOD date value to a 
Z'yyyymmdd'  (=C'yyyymmdd') value and TE4 automatically converts the ETOD time 
value to a  Z'hhmmssxx' (=C'hhmmssxx') value. These ZD values can be used as 
is, 
or further  edited using the editing features of DFSORT or ICETOOL. Here's 
an ICETOOL job  that produces the report with readable SMF date and time 
that Jorg was looking  for:
 //SMFRPT JOB ...
 //STEP0010 EXEC PGM=ICETOOL 
//TOOLMSG DD SYSOUT=* ICETOOL messages 
//DFSMSG DD SYSOUT=* DFSORT messages //RAWSMF DD DSN=... SMF data
 //SMF# DD DSN=&&TEMPV,SPACE=(CYL,(15,15)),UNIT=SYSDA
 //SMF#REP DD SYSOUT=* Report
 //TOOLIN DD * ICETOOL statements 
COPY FROM(RAWSMF) TO(SMF#) USING(SMFI) DISPLAY FROM(SMF#) LIST(SMF#REP)  -
 TITLE('SMF Type-14 Records') DATE TIME PAGE -
 HEADER('Time') ON(7,4,TM1,E'99:99:99') -
 C'hh:mm:ss' HEADER('Date') ON(11,4,DT3,E'9999-999') -
 C'yyyy-ddd' HEADER('Sys') ON(15,4,CH) - 
HEADER('SMF#') ON(6,1,BI) -
 HEADER('Jobname') ON(19,8,CH) - 
HEADER('Datasetname') ON(69,44,CH) -
 BLANK /*
 //SMFICNTL DD *
 INCLUDE COND=(6,1,BI,EQ,14) - Select SMF Type-14 records only /*  Here's a 
sample of what the report might look like:
 SMF TYPE-14 RECORDS 02/24/05 10:35:11 - 1
 - TIME DATE SYS SMF# JOBNAME DATASETNAME -------- -------- ---- ----  
-------- --------------------- 
21:30:01 2005-052 SMEP 14 TMVSLFS TMON.MVS30.TMVINST
 21:30:07 2005-052 SMEP 14 TMONADMP TMON.SS.LMKLOAD
 22:07:00 2005-052 SMEP 14 TMVSLFS TMON.MVS30.TMVINST
 22:07:00 2005-052 SMEP 14 TMVSLFS TMON.MVS30.TMVINST
 22:07:06 2005-053 SMEP 14 TMONADMP TMON.SS.LMKLOAD
 00:00:05 2005-053 SMEP 14 TMONMVS TMON.SS.LMKASET 
00:00:05 2005-053 SMEP 14 TMONCICS TMON.STRATS.LMKASET 
00:00:23 2005-053 SMEP 14 ESS148XC SYS.EOR.CNTL
 
 
In a message dated 1/5/2016 5:38:55 P.M. Central Standard Time,  
[email protected] writes:

What  macro would we use to convert TIME BIN to a readable DATE TIME?  It  
doesn't look like STCKCONV to CONVTOD take input of a 32-bit unsigned  
binary.


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to