|
Sample SMF 30 Report -- Step Completion Codes
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)
| ||||||||||||||||||||||||||||||||||||||||
|
Copyright 2025.
Pacific Systems Group. All rights reserved. |
Home |
Products |
Prices |
Documentation |
30-Day Trials |
Customer Reviews |
Company
| FAQ
| Sample Reports
| SMF Records
| ||||||||||||||||||||||||||||||||||||||||
