








	*SMF Tools*

Sample SMF 30 Report -- Step Completion Codes

It's easy to report on SMF data!

We have a low-cost 4GL report writer especially for SMF files. It's called Spectrum SMF Writer.

Spectrum SMF Writer handles the difficult SMF record parsing for you automatically. You just specify which fields you want to see.

Spectrum SMF Writer also converts the arcane date and time fields and reformats them into an attractive report.

Plus Spectrum SMF Writer even exports SMF data as comma delimited files to use on your PC.

This sample report was created with Spectrum SMF Writer, the low-cost 4GL SMF report writer. It reads as input the SMF file and selects just the type 30 records with a subtype of 4 ("step termination" records.) It prints data to identify the job and step and indicate how it completed.

The SMF record itself just contains a 2-byte binary value for step completion code (SMF30SCC). (See SMF 30 record layout). Depending on the form of the value in SMF30SCC, we format it as a system abend code, user abend code, user return code or a normal (zero) completion code.

A useful modification to this job would be to select only records with a non-zero completion code. That could be the basis of a daily exception report.

These Spectrum SMF Writer Statements:

**************************************************
* SPECIFY THE INPUT FILE (AND LAYOUT) FOR THIS RUN
**************************************************
INPUT: SMF30

**************************************************
* SPECIFY WHICH SMF RECORDS TO INCLUDE IN REPORT
**************************************************
INCLUDEIF: SMF30RTY = 30 AND SMF30STP = 4

**************************************************
* CREATE A FORMATTED COMP CODE TO SHOW IN REPORT 
* SMF30SCC CAN BE: 0NNN -- SYSTEM ABEND CODE
*                  8NNN -- USER ABEND CODE
*                  0000 -- NORMAL TERM, OR FLUSHED
*                  NNNN -- USER COMPLETION CODE
**************************************************
COMPUTE: CC-HEX  = #FORMAT(SMF30SCC,HEX) /* GET 4-BYTE CHAR */
COMPUTE: CC-NIB1 = #SUBSTR(CC-HEX,1,1)   /* GET 1-BYTE 1ST NIBBLE*/
COMPUTE: CC-NIB2 = #SUBSTR(CC-HEX,2,1)   /* GET 1-BYTE 2ND NIBBLE*/

COMPUTE: COMP-CODE =  /* ASSIGN SNNN, UNNN, ZZZ9 OR BLANKS */
     WHEN(SMF30SCC = 0)       ASSIGN('    ')
     WHEN(CC-NIB2 <> '0' AND CC-NIB1 = '0')
                              ASSIGN('S' + #SUBSTR(CC-HEX,2,3))
     WHEN(CC-NIB2 <> '0' AND CC-NIB1 = '8')
                              ASSIGN('U' + #SUBSTR(CC-HEX,2,3))
     ELSE                     ASSIGN(#FORMAT(SMF30SCC,P'ZZZ9'))

**************************************************
* SPECIFY REPORT TITLE
**************************************************
TITLE: 'STEP COMPLETION CODES FROM SMF 30 RECORDS, SUBTYPE 4'

**************************************************
* SPECIFY WHICH SMF FIELDS TO SHOW IB RPT COLUMNS
* WE ALSO OVERIDE SOME COLUMN WIDTHS AND HEADINGS
**************************************************
COLUMNS: SMF30DTE
         SMF30TME(HH-MM)
         SMF30RTY(4,'SMF|REC|TYPE')
         SMF30STP(4,'SMF|SUB|TYPE')
         SMF30JBN('JOBNAME')
         SMF30STN('STEP|NUM',4)
         SMF30STM('STEPNAME')
         SMF30SCC(HEX,'HEX|COMP/CODE')
         COMP-CODE('FORMATTED|COMP|CODE')

Produce This SMF Report:

       STEP COMPLETION CODES FROM SMF 30 RECORDS, SUBTYPE 4

                  SMF  SMF                         HEX  FORMATTED
                  REC  SUB           STEP          COMP   COMP   
SMF30DTE SMF30TME TYPE TYPE JOBNAME  NUM  STEPNAME CODE   CODE   
________ ________ ____ ____ ________ ____ ________ ____ _________

02/03/08    11:42   30    4 SMFDUMPS    1 DUMP1    0000
02/03/08    11:46   30    4 SXFSTC      1 STEP1    0004      4
02/03/08    11:54   30    4 SXFSTC      1 STEP1    0004      4
02/03/08    11:56   30    4 TTAP01A     1 SPFPROCE 0000
02/06/08    10:59   30    4 BPXAS       0 IEFPROC  0000
02/06/08    11:01   30    4 FTPSERVE    1 STEP1    0000
02/06/08    11:01   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    11:10   30    4 XAC99       1 STEP1    0004      4
02/06/08    11:11   30    4 TTAP01A     1 STEP1    0000
02/06/08    11:13   30    4 XAC99       1 STEP1    0004      4
02/06/08    11:15   30    4 XAC99       1 STEP1    0004      4
02/06/08    11:19   30    4 XAC99       1 STEP1    0004      4
02/06/08    11:22   30    4 FTPSERVE    1 STEP1    0000
02/06/08    11:22   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    11:28   30    4 TTAP01A     1 STEP1    0000
02/06/08    11:30   30    4 FTPSERVE    1 STEP1    0000
02/06/08    11:30   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    11:33   30    4 BPXAS       1 IEFPROC  0000
02/06/08    11:37   30    4 WMF30       1 STEP1    0004      4
02/06/08    11:41   30    4 WMF30       1 STEP1    0004      4
02/06/08    11:46   30    4 XAC99       1 STEP1    0004      4
02/06/08    11:47   30    4 TTAP01A     1 STEP1    0000
02/06/08    11:49   30    4 XAC99       1 STEP1    0000
02/06/08    11:52   30    4 XAC99       1 STEP1    0008      8
02/06/08    11:53   30    4 XAC99       1 STEP1    0000
02/06/08    11:59   30    4 FTPSERVE    1 STEP1    0000
02/06/08    11:59   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    12:01   30    4 TTAP01A     1 STEP1    0000
02/06/08    12:14   30    4 FTPSERVE    1 STEP1    0000
02/06/08    12:15   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    12:15   30    4 FTPSERVE    1 STEP1    0000
02/06/08    12:15   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    12:17   30    4 ASMX        1 ASM      0806   S806
02/06/08    12:20   30    4 TTAP01A     1 STEP1    0000
02/06/08    12:39   30    4 ASMX        1 ASM      000C     12
02/06/08    12:40   30    4 ASMX        1 ASM      000C     12
02/06/08    12:50   30    4 BPXAS       0 IEFPROC  0000
02/06/08    13:01   30    4 ASMX        1 ASM      0000
02/06/08    13:04   30    4 ASMX        1 ASM      0000
02/06/08    13:08   30    4 TTAP01A     1 SPFPROCE 0622   S622
02/06/08    13:09   30    4 TTAP01A     1 SPFPROCE 0000
02/06/08    16:46   30    4 FTPSERVE    1 STEP1    0000
02/06/08    16:47   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    16:47   30    4 FTPSERVE    1 STEP1    0000
02/06/08    16:47   30    4 FTPSERVE    1 *OMVSEX  0000
02/06/08    16:57   30    4 TTAP01A     1 STEP1    0000

*** GRAND TOTAL (    46 ITEMS)

See Other Sample SMF Reports