Go to Home Page
Questions?
Call 1-800-572-5517
 
  Go to Home Page  
  See all products
  See price schedules
  See manuals, tutorials, articles
  Download a free 30-day trial
  See user testimonials
  About Pacific Systems Group
 
 
SMF Tools
  See SMF Record Layouts
  See Sample SMF Reports
  Learn How to Export SMF Data
  Download Free SMF Reporting Software (30 days)
 
One of the greatest SMF record parsing programming languages I've ever seen. Chief, Large Systems Services Branch, NIH
  Choose Spectrum Writer to add 4GL to your product
  Free 60-Page Book (PDF) - How to Make an SMF Report
Spectrum DCOLLECT Reporter - the 4GL DCOLLECT Report Writer.

Spectrum SMF Writer - the 4GL SMF Report Writer.

SMF Type 220 Record

This table shows the record layout for type 220 SMF records
(SMF Record for Folder from RSD).

List of other SMF record layouts available.
List of sample SMF reports.


It's easy to report on SMF 220 data!

SMF Spectrum Writer
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 can export SMF data as comma delimited files to use on your PC.
 
Try It FREE Now!

The Spectrum Writer definitions for the SMF type 220 record below are based on the description provided by IBM in its "MVS Systems Management Facilities (SMF)" manual and/or DSECTs mapped by its Assembler macros.

 

Spectrum SMF Writer
File Definition for Type 220 SMF Records
SMF Record for Folder from RSD

***********************************************************************
*          SPECTRUM SMF WRITER -- FILE DEFINITION STATEMENTS          *
*       SMF TYPE 220 RECORD - "SMF RECORD FOR FOLDER FROM RSD"        *
***********************************************************************
*******************************************************************
*        ACCREC - ASTRES SMF ACCOUNTING RECORD
*******************************************************************
*------------------------------------------------------------------
*        SMF RECORD HEADER
*------------------------------------------------------------------
FLD: ACCLEN   LEN(2) TYPE(BIN) DISP(0)                /*RECORD LENGTH*/
FLD: ACCSEG   LEN(2) TYPE(BIN) DISP(2)           /*SEGMENT DESCRIPTOR*/
FLD: ACCRFLG  LEN(1) DISP(4)      /*SYSTEM INDICATOR*/
FLD: ACCRCDTY LEN(1) TYPE(BU) DISP(5)                   /*RECORD TYPE*/
FLD: ACCRCDTS LEN(4) TYPE(B-SECS) DISP(6) DEC(2)               /*TIME*/
FLD: ACCRCDTE TYPE(P-CYYDDD) DISP(10)                          /*DATE*/
FLD: ACCCPUID LEN(4) DISP(14)     /*SYSTEM IDENTIFICATION*/
*------------------------------------------------------------------
FLD: ACCJOBN  LEN(8) DISP(18)     /*JOBNAME*/
FLD: ACCJOBID LEN(8) DISP(26)     /*JOBID*/
FLD: ACCDATA  LEN(4) TYPE(BIN) DISP(36)
FLD: ACCUSER  LEN(8) DISP(36)     /*USER NAME*/
FLD: ACCACCT  LEN(60) DISP(44)    /*ACCOUNTING (IF ANY)*/
*
FLD: ACCTYPE  LEN(1) DISP(104)    /*RECORD SUBTYPE*/
*
COMP: ACCONLIN = 00               /*ONLINE TYPE*/
COMP: ACCPERF = 04                /*BATCH PERFORM TYPE*/
COMP: ACCGVIEW = 08               /*GLOBAL VIEW*/
FLD: ACCOTYP  LEN(1) DISP(108)    /*MACRO: EQU **/
*

FLD: ACCIO    LEN(4) TYPE(BIN) DISP(108)
*
FLD: ACCRPDDS LEN(44) DISP(108)   /*RPD DSNAME*/
FLD: ACCRPDIO LEN(4) TYPE(BIN) DISP(152)              /*RPD I/O COUNT*/
FLD: ACCRPIDS LEN(44) DISP(156)   /*RPI DSNAME (MK)*/
FLD: ACCRPIIO LEN(4) TYPE(BIN) DISP(200)     /*RPI DATABASE I/O COUNT*/
FLD: ACCEXQDS LEN(44) DISP(204)   /*EXTRACT QUEUE DSNAME*/
FLD: ACCEXQIO LEN(4) TYPE(BIN) DISP(248)    /*EXTRACT QUEUE I/O COUNT*/
FLD: ACCPRQDS LEN(44) DISP(252)   /*PREPARE QUEUE DSNAME*/
FLD: ACCPRQIO LEN(4) TYPE(BIN) DISP(296)    /*PREPARE QUEUE I/O COUNT*/
FLD: ACCJCLDS LEN(44) DISP(300)   /*ASTRJCL DSNAME*/
FLD: ACCJCLIO LEN(4) TYPE(BIN) DISP(344)       /*I/O COUNT ON ASTRJCL*/
FLD: ACCARCIO LEN(4) TYPE(BIN) DISP(348)      /*I/O COUNT ON ARCHIVES*/
*
FLD: ACCIOX   LEN(4) TYPE(BIN) DISP(352)  /*RESERVED FOR INTERNAL USE*/
*                                       *** DO NOT USE THIS FIELD !
*ACCIOEND   EQU *
FLD: ACCTCPU  LEN(4) TYPE(B-SECS) DISP(364) DEC(6)
                                  /*CPU TIME BINARY MICROSECON*/
FLD: ACCTELAP LEN(4) TYPE(B-SECS) DISP(368) DEC(2)
                                  /*ELAPSED TIME BINARY 1/100 S*/
FLD: ACCMSTOR LEN(4) TYPE(BIN) DISP(372)  /*MAX STORAGE USED IN BYTES*/
FLD: ACCVTAMS LEN(8) DISP(376)    /*VTAM LU NAME*/
FLD: ACCIPAD  LEN(4) DISP(376)    /*IP ADDRESS IN BINARY FORMAT*/
*                                      IF ACCOTCPIP IS ON
* USE ACCIPAD_IP4 FOR NNN.NNN.NNN.NNN FORMAT          
FLD: ACCIPAD1          LEN(1)  TYPE(BU) COL(ACCIPAD) /*REDEFINE*/
FLD: ACCIPAD2          LEN(1)  TYPE(BU)
FLD: ACCIPAD3          LEN(1)  TYPE(BU)
FLD: ACCIPAD4          LEN(1)  TYPE(BU)
COMPUTE: ACCIPAD_IP4(15)  =   #COMPRESS(
 #FORMAT(ACCIPAD1 P'ZZ9.' LEFT), 0,
 #FORMAT(ACCIPAD2 P'ZZ9.' LEFT), 0,
 #FORMAT(ACCIPAD3 P'ZZ9.' LEFT), 0, 
 #FORMAT(ACCIPAD4 P'ZZ9'  LEFT)     ) 
*
FLD: ACCLDATE TYPE(P-CYYDDD) DISP(384)                   /*LOGON DATE*/
*                                      IN THE FORM 0CYYDDDF
FLD: ACCLTIME  LEN(4) TYPE(PU-SECS) DEC(2)               /*LOGON TIME*/
*                                      IN PACKED FORM HHMMSSTH
FLD: ACCRCVEC LEN(4) TYPE(BIN) DISP(388)   /*NUMBER OF RECEIVED CHAR.*/
FLD: ACCSENDC LEN(4) TYPE(BIN) DISP(392)       /*NUMBER OF SENT CHAR.*/
FLD: ACCSENDU LEN(4) TYPE(BIN) DISP(396)
                                  /*NUMBER OF CHAR.BEFORE COMPRE*/
FLD: ACCRESP1 TYPE(HALF) DISP(400)/*NB RESPONSE < 1 SEC.*/
FLD: ACCRESP2 TYPE(HALF) DISP(402)/*NB RESPONSE < 2 SEC.*/
FLD: ACCRESP3 TYPE(HALF) DISP(404)/*NB RESPONSE < 5 SEC.*/
FLD: ACCRESP4 TYPE(HALF) DISP(406)/*NB RESPONSE > 5 SEC.*/
*
*        MISCELLEANOUS INFORMATION
*
FLD: ACCOSTAT LEN(1) DISP(408)    /*ONLINE SECTION STATUS*/
COMP: ACCORSDF = X'80'            /*@CLI RSD FOLDER SESSION (SEE ACCO*/
COMP: ACCOCLI = X'80'             /*@CLI CLIENT SESSION*/
COMP: ACCOHOST = X'40'            /*HOST SESSION*/
COMP: ACCOTCPIP = X'20'           /*CONNECTED THROUGH TCP/IP*/
FLD: ACCOCLIT LEN(1) DISP(409)    /*@CLI CLIENT TYPE*/
COMP: ACCOTHIN = X'80'            /*@CLI THIN CLIENT*/
COMP: ACCOAPI = X'40'             /*@CLI API*/
COMP: ACCOWIN = X'20'             /*@CLI RSD FOLDERS/WIN*/
COMP: ACCOGW = X'10'              /*@CLI GLOBAL VIEW*/

FLD: ACCAPR   LEN(4) TYPE(BIN) DISP(412)         /*APR EXTENSION AREA*/
*
FLD: ACCAPRDS LEN(44) DISP(412)   /*APR DSNAME (RK)*/
FLD: ACCAPRIO LEN(4) TYPE(BIN) DISP(456)              /*APR I/O COUNT*/
*
*ACCAPEND EQU *
FLD: ACCREC#  LEN(4) TYPE(BIN) DISP(108)  /*NUMBER OF RECORDS WRITTEN*/
FLD: ACCPAG#  LEN(4) TYPE(BIN) DISP(112)    /*NUMBER OF PAGES WRITTEN*/
*
FLD: ACCSTAT1 LEN(1) DISP(116)    /*TYPE OF OUTPUT*/
*
COMP: ACCOUTSY = X'80'            /*OUTPUT IS ON SYSOUT*/
COMP: ACCOUTDS = X'40'            /*OUTPUT IS ON DATASET*/
COMP: ACCOUTDY = X'20'            /*DYNAMIC EXTRACT OUTPUT*/
FLD: ACCTOUT  LEN(1) DISP(132)    /*MACRO: EQU **/
FLD: ACCFCB   LEN(4) DISP(132)    /*FCB*/
FLD: ACCFORM  LEN(4) DISP(136)    /*FORM*/
FLD: ACCWTR   LEN(8) DISP(144)    /*WRITER*/
FLD: ACCDEST  LEN(8) DISP(152)    /*DESTINATION*/
FLD: ACCROOM  LEN(4) DISP(160)    /*ROOM*/
FLD: ACCCOPIE LEN(1) DISP(164)    /*COPIES*/
*----
FLD: ACCSTAT2 LEN(1) DISP(165)
COMP: ACC38001 = X'80'            /*3800 1*/
COMP: ACC38003 = X'40'            /*3800 3*/
FLD: ACCCLASS LEN(1) DISP(166)    /*SYSOUT CLASS*/
*
FLD: ACCRSV1  LEN(1) DISP(167)    /*RESERVED (DO NOT USE)*/
*
FLD: ACCLASER LEN(4) TYPE(BIN) DISP(180)
FLD: ACCCHARS LEN(4) DISP(180)    /*4 X CHARS ENTRIES*/
FLD: ACCSTAT0 LEN(1) DISP(196)    /*STATUS*/
COMP: ACCBURSY = X'80'            /*BURST Y GENERATED*/
COMP: ACCBURSN = X'40'            /*BURST N GENERATED*/
COMP: ACCOPTJ = X'20'             /*OPTCD J*/
COMP: ACCOPTB = X'10'             /*OPTCD B*/
COMP: ACCOPTU = X'08'             /*OPTCD U*/
FLD: ACCMDFY  LEN(5) DISP(197)    /*MODIFY*/
FLD: ACCMDFY1 LEN(4) DISP(197)
FLD: ACCMDFY2 LEN(1) DISP(201)
*
FLD: ACCFLASH LEN(7) DISP(202)    /*FLASH*/
FLD: ACCFLSH1 LEN(4) DISP(202)
FLD: ACCFLSH2 LEN(3) DISP(206)
FLD: ACCCPYNN TYPE(HALF) DISP(210)/*COPIES NUMBER*/
FLD: ACCCPYGR LEN(1) DISP(212)    /*8 GROUP VALUES*/
*ACC38M1L EQU   *-ACCLASER              LENGTH OF 3800-1 PARAMETERS
*
*        --- SPECIFIC PARAMETERS FOR 3800-3 ---
*
*ACC38M3  EQU   *
FLD: ACCFODEF LEN(6) DISP(220)    /*FORMDEF*/
FLD: ACCPDEF  LEN(6) DISP(226)    /*PAGEDEF*/
FLD: ACCSTM3  LEN(1) DISP(232)    /*SPECIFIC STATUS*/
COMP: ACCPIMSG = X'80'            /*PIMSG YES*/
COMP: ACCPIMSN = X'40'            /*PIMSG NO*/
COMP: ACCTRCY = X'20'             /*TRC YES*/
COMP: ACCTRCN = X'10'             /*TRC NO*/
FLD: ACCDSN   LEN(44) DISP(132)   /*DATA SET NAME*/
FLD: ACCUNIT  LEN(8) DISP(176)    /*UNIT NAME*/
FLD: ACCDEVCL LEN(1) DISP(184)    /*DEVICE CLASS OR ZERO*/
COMP: ACCTAPE = X'80'             /*TAPE DEVICE*/
COMP: ACCDASD = X'40'             /*DIRECT ACCESS DEVICE*/

*******************************************************************
*        AUDREC - ASTRES SMF AUDITING RECORD
*******************************************************************
*------------------------------------------------------------------
*        SMF RECORD HEADER
*------------------------------------------------------------------
FLD: AUDLEN   LEN(2) TYPE(BIN) DISP(0)                /*RECORD LENGTH*/
FLD: AUDSEG   LEN(2) TYPE(BIN) DISP(2)           /*SEGMENT DESCRIPTOR*/
FLD: AUDRFLG  LEN(1) DISP(4)      /*SYSTEM INDICATOR*/
FLD: AUDRCDTY LEN(1) TYPE(BU) DISP(5)                   /*RECORD TYPE*/
FLD: AUDRCDTS LEN(4) TYPE(B-SECS) DISP(6) DEC(2)               /*TIME*/
FLD: AUDRCDTE TYPE(P-CYYDDD) DISP(10)                          /*DATE*/
FLD: AUDCPUID LEN(4) DISP(14)     /*SYSTEM IDENTIFICATION*/
*------------------------------------------------------------------
*        START OF DATA AREA (FIXED PART)
*------------------------------------------------------------------
FLD: AUDDATA  TYPE(HALF) DISP(18) /*MACRO IS 'F'. DATA IS 'H'*/
FLD: AUDUSER  LEN(8) DISP(18)     /*USER NAME*/
FLD: AUDJOBN  LEN(8) DISP(26)     /*JOB NAME*/
FLD: AUDJOBID LEN(8) DISP(34)     /*JOB ID*/
FLD: AUDPREFIX LEN(33) DISP(42)   /*PRODUCT PREFIX*/
*
FLD: AUDPID   LEN(3) DISP(75)     /*PRODUCT ID*/
*                                       ----------
COMP: AUDRPI = 'RPI'              /*RPI*/
COMP: AUDRPD = 'RPD'              /*RPD*/
FLD: AUDACT   LEN(1) DISP(78)     /*ACTION CODE*/
*                                       ----------
COMP: AUDVIEW = 04                /*4 VIEW*/
COMP: AUDDELETE = 08              /*8 DELETE*/
COMP: AUDCREATE = 12              /*C CREATE*/
COMP: AUDCOPY = 16                /*10 COPY*/
COMP: AUDMOVE = 20                /*14 MOVE*/
COMP: AUDRENAME = 24              /*18 RENAME*/
COMP: AUDXTRACT = 28              /*1C EXTRACT*/
COMP: AUDXFER = 32                /*20 TRANSFER*/
COMP: AUDINFO = 36                /*24 INFO*/
FLD: AUDSTAT  LEN(1) DISP(79)     /*STATUS*/
COMP: AUDPC = X'80'               /*PC CLIENT CALLING*/
FLD: AUDOBJT  LEN(3) DISP(80)     /*TYPE OF OBJECT*/
*                                       --------------
COMP: AUDFLD = 'FOL'              /*FOLDER*/
COMP: AUDDOC = 'DOC'              /*DOCUMENT*/
COMP: AUDRID = 'RID'              /*RID*/
COMP: AUDARD = 'ARD'              /*ARD*/
COMP: AUDOUD = 'OUD'              /*OUD*/
COMP: AUDFLT = 'FIL'              /*FILTER*/
COMP: AUDTYPE = 'TYP'             /*TYPE*/
FLD: AUDFLGT  LEN(1) TYPE(BU) DISP(83)      /*FOLDER TYPE+NAME LENGTH*/
FLD: AUDFTYPE LEN(2) DISP(84)     /*FOLDER TYPE*/
*@FNL AUDFNAME DS    CL32               FOLDER NAME
FLD: AUDFNAME LEN(250) DISP(86)   /*FOLDER NAME @FNL*/
*AUDFLEN  EQU   *-AUDFLGT                FOLDER AREA LENGTH
*------------------- DOCUMENT REFERENCE----------------------------
FLD: AUDDLGT  LEN(1) TYPE(BU) DISP(336)   /*DOCUMENT TYPE+NAME LENGTH*/
FLD: AUDDTYPE LEN(2) DISP(337)    /*DOCUMENT TYPE*/
*@FNL AUDDNAME  DS   CL40               DOCUMENT NAME
FLD: AUDDNAME LEN(250) DISP(339)  /*DOCUMENT NAME*/
FLD: AUDDPAGE# LEN(2) TYPE(BIN) DISP(589)           /*NUMBER OF PAGES*/
FLD: AUDDRUN# LEN(3) TYPE(BIN) DISP(591)          /*RUN# BELONGING TO*/
FLD: AUDDWDATE TYPE(P-CYYDDD) DISP(594)                /*WORKING DATE*/
*AUDDLEN  EQU   *-AUDDLGT                DOCUMENT AREA LENGTH
*------------------------------------------------------------------
* THIS AREA IS USED WHEN COPY/MOVE FUNCTION IS INVOKED FROM PC
*------------------------------------------------------------------
*------------------- FOLDER REFERENCE TARGET NAME -----------------
FLD: AUDTFLGT LEN(1) TYPE(BU) DISP(598)
                                  /*TARGET FOLDER TYPE+NAME LENGTH*/
FLD: AUDTFTYPE LEN(2) DISP(599)   /*TARGET FOLDER TYPE*/
*@FNL AUDTFNAME DS    CL32        TARGET FOLDER NAME
FLD: AUDTFNAME LEN(250) DISP(601) /*TARGET FOLDER NAME*/
*AUDTFLEN  EQU   *-AUDTFLGT        TARGET FOLDER AREA LENGTH
*------------------------------------------------------------------
* THIS AREA IS USED WHEN RENAME FUNCTION IS INVOKED FROM PC CLIENT
*------------------------------------------------------------------
*------------------- DOCUMENT REFERENCE NEW NAME ------------------
FLD: AUDRDLGT LEN(1) TYPE(BU) DISP(598)
                                  /*RENAMED DOCUMENT TYPE+NAME LENGTH*/
FLD: AUDRDTYPE LEN(2) DISP(599)   /*RENAMED DOCUMENT TYPE*/
*@FNL AUDRDNAME  DS   CL40      RENAMED DOCUMENT NAME
FLD: AUDRDNAME LEN(250) DISP(601) /*RENAMED DOCUMENT NAME*/
FLD: AUDRDPAGE# LEN(2) TYPE(BIN) DISP(851)  /*RENAMED NUMBER OF PAGES*/
FLD: AUDRDRUN# LEN(3) TYPE(BIN) DISP(853) /*RENAMED RUN# BELONGING TO*/
FLD: AUDRDWDATE TYPE(P-CYYDDD) DISP(856)       /*RENAMED WORKING DATE*/
*AUDRDLEN  EQU   *-AUDRDLGT      RENAMED DOCUMENT AREA LENGTH
*------------------- FOLDER REFERENCE NEW NAME --------------------
FLD: AUDRFLGT LEN(1) TYPE(BU) DISP(336)
                                  /*RENAMED FOLDER TYPE+NAME LENGTH*/
FLD: AUDRFTYPE LEN(2) DISP(337)   /*RENAMED FOLDER TYPE*/
*@FNL AUDRFNAME DS    CL32      RENAMED FOLDER NAME
FLD: AUDRFNAME LEN(250) DISP(339) /*RENAMED FOLDER NAME*/
*AUDRFLEN  EQU   *-AUDRFLGT      RENAMED FOLDER AREA LENGTH
*------------------------------------------------------------------
*WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WA
*
*       RPD AUDITING NOT AVAILABLE YET, FOLLOWING AREAS
*       NOT AVAILABLE
*
*WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WARNING-WA
*------------------- RID REFERENCE --------------------------------
FLD: AUDRIDN  LEN(8) DISP(83)     /*RID NAME*/
*------------------- ARD REFERENCE --------------------------------
FLD: AUDARDN  LEN(8) DISP(83)     /*ARD NAME*/
*------------------- OUD REFERENCE --------------------------------
FLD: AUDOUDN  LEN(8) DISP(83)     /*OUD NAME*/
*------------------- FILTER REFERENCE -----------------------------
FLD: AUDFLTN  LEN(8) DISP(83)     /*FILTER NAME*/
*------------------- TYPE REFERENCE -------------------------------
FLD: AUDTYPEN LEN(3) DISP(83)     /*DOCUMENT OR FOLDER TYPE*/
FLD: SMF220_END LEN(1) OFFSET(0)

 

Copyright 2017.
Pacific Systems Group.
All rights reserved.
Home | Products | Prices | Documentation | 30-Day Trials | Customer Reviews | Company | FAQ | Sample Reports | SMF Records
Send Your Comments or Questions