On May 30, 2005, Antonio Fonseca wrote:
>I'm looking at ICETOOL for displaying SMF71 records and for
>the majority of the fields it works OK. But...
>Is there a way to process the floating fields (like the
>high-medium-low impact central storage frames...) in ICETOOL
>or it is necessary to make a Assembler or C program to do that?
With z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006),
you can now display/convert FL (hexadecimal floating point) fields with
DFSORT and
ICETOOL.
Here's an example:
//REPT71 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SMFIN DD DSN=... input file
//SMF71 DD DSN=&&SMF71,DISP=(,PASS),SPACE=(CYL,(5,5)),UNIT=SYSDA
//SMF71RPT DD SYSOUT=*
//TOOLIN DD *
* Sort SMF Type 71 records by id, date and time.
SORT FROM(SMFIN) TO(SMF71) USING(TY71)
* Create report with SMFID sections.
DISPLAY FROM(SMF71) LIST(SMF71RPT) -
TITLE('Low impact central storage frames') -
BREAK(15,4,CH,L'System: ') -
HEADER('Date') ON(11,4,DT1,E'9999-99-99') -
HEADER('Time') ON(7,4,TM1,E'99:99:99') -
HEADER('Min Frames') ON(925,8,FL,U10) -
HEADER('Max Frames') ON(933,8,FL,U10) -
HEADER('Avg Frames') ON(941,8,FL,U10) -
BLANK PAGE
/*
//TY71CNTL DD *
* Select type 71 records that are more than
* 18 bytes long.
OMIT COND=(6,1,BI,NE,+71,OR,1,2,BI,LE,+18)
* Sort by SMFID, SMFDATE and SMFTIME
SORT FIELDS=(15,4,CH,A,11,4,PD,A,7,4,BI,A)
/*
For more details, see my paper at:
http://www.ibm.com/servers/storage/support/software/sort/mvs/peug/
In particular, see Example 1 in the "Floating-Point Display (FL)" section.
Frank Yaeger - DFSORT Team (IBM)
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
