* %GOTO IFAL27; /* 00050004 MACRO 00100004 &NAME IFASMFR3 &RECTYPE 00150004 .* * * 00200004 .* * MACMEAN IFASMFR3 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00200904 .* * MACCOMP Y-2 SC102/BL27P * 00250404 .* * MACSTAT Y-2 73298/42020 * 00300804 .* * METHOD OF ACCESS * 00400004 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00408004 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR3) * 00458004 .* * * 00508004 .* * THIS MACRO EXPANDS RECORDS 28-36. * 00558004 .* * * 00608004 .* * 00658004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 28 - 36. THE REQUIRED 00708004 .* FORMAT IS - 00758004 .* 00808004 .* IFASMFR3 &RECTYPE 00858004 .********************************************************************** 00908004 AIF (&RECTYPE EQ 31).IFAS031 00958004 AIF (&RECTYPE EQ 34).IFAS034 01008004 AIF (&RECTYPE EQ 35).IFAS035 01058004 .E5 ANOP 01108004 SPACE 3 01158004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01208004 .CONTB ANOP 01258004 MEXIT 01308004 .IFAS031 ANOP 01358004 EJECT 01408004 * WRITTEN EACH TIME A MODIFY TCAM COMMAND IS PROCESSED WITH TS=START. 01458004 * LENGTH IS 54 BYTES. 01508004 DS 0F ALIGN TO FULL WORD BOUNDARY 01558004 TTISMF EQU * TIOC RECORD 01608004 TTIRLEN DS BL2'0' RECORD LENGTH 01658004 TTIRSEG DS BL2'0' SEGMENT DESCRIPTOR 01708004 TTIRFLG DC BL1'0' HEADER FLAG BYTE 01758004 TTIRCDTY DC BL1'0' RECORD TYPE (31 DECIMAL) 01808004 TTIRCDTS DC BL4'0' TIME STAMP TOD 100THS SECS 01858004 TTIRCDTE DC PL4'0000' DATE, PACK/DEC: 00YYDDDF 01908004 TTICPUID DC CL4' ' CPU IDENTIFICATION (SYSTEM, MODEL) 01958004 TTINBF DC BL2'0' TOTAL NUMBER OF BUFFER 02008004 TTIBUFSE DC BL2'0' BUFFER SIZE IN BYTES 02058004 TTIRSVRD DC BL2'0' RESERVED 02108004 TTIOMAX DC BL2'0' MAXIMUM NUMBER OF OUTPUT BUFFERS ALLOWED EACH 02158004 * TERMINAL BEFORE OWAIT 02208004 TTIIMAX DC BL2'0' MAXIMUM NUMBER OF INPUT BUFFERS ALLOWED EACH 02258004 * TERMINAL BEFORE LWAIT 02308004 TTIOWTH DC BL2'0' OWAIT THRESHOLD- THE NUMBER OF BUFFERS THAT 02358004 * MUST BE FREED IN ORDER TO ESCAPE FROM OWAIT 02408004 TTIRSTH DC BL2'0' RESTART THRESHOLD- THE NUMBER OF BUFFERS THAT 02458004 * MUST BE FREED IN ORDER TO ESCAPE FROM LWAIT 02508004 TTIUSLW DC BL2'0' NUMBER OF BUFFERS RESERVED ON THE FREE QUEUE. 02558004 * LESS THAN THIS NUMBER RESULTS IN SYSTEM LWAIT. 02608004 TTIUSSL DC BL2'0' RESV Y02133 02658004 TTITSBS DC BL1'0' SIZ OF TSB'S IN SYSTEM 02708004 TTIUSCH DC BL1'0' RESV Y02133 02758004 TTIRVA DC BL20'0' RESERVED 02808004 AGO .CONTB 02858004 .IFAS034 ANOP 02908004 EJECT 02958004 * WRITTEN AT TASK TERMINATION FOR BKGD JOB. 03008004 * LENGTH IS VARIABLE. MINIMUM OF 137 BYTES. 03058004 * 03108004 DS 0F ALIGN TO FULL WORD BOUNDARY 03158004 TIVSMF EQU * SMF TS STEP TERMINATION RECORD 03208004 TIVRLEN DS BL2'0' RECORD LENGTH 03258004 TIVRSEG DS BL2'0' SEGMENT DESCRIPTOR 03308004 TIVRFLG DC BL1'0' HEADER FLAG BYTE 03358004 TIVRCDTY DC BL1'0' RECORD TYPE (34 DECIMAL) 03408004 TIVRCDTS DC BL4'0' TIME STAMP TOD .01 SECS 03458004 TIVRCDTE DC PL4'0000' DATE 00YYDDDF 03508004 TIVCPUID DC CL4' ' CPU IDENTIFICATION (SYSTEM, MODEL) 03558004 TIVUIF DC CL8' ' USER IDENTIFICATION FIELD Y02901 03608004 TIVUID EQU TIVUIF 03658004 TIVONTME DC BL4'0' LOGON TIME TOD .01 SECS 03708004 TIVONDTE DC PL4'0000' DATE 00YYDDDF 03758004 TIVUDATA DC CL8' ' RESV FOR USER 03808004 TIVINVSQ DC BL1'0' STEP SEQUENCE NUMBER 03858004 TIVSIT DC BL4'0' TOD STEP INITIATION @YL026WA 03908004 TIVCRTME EQU TIVSIT WAS MAIN STOR OCCUPANCY TIME@YL026WA 03958004 TIVOUTCT DC BL4'0' LINE OUT COUNT 04008004 TIVINCT DC BL4'0' LINE IN COUNT 04058004 TIVSTAT DC BL2'0' STEP TERMINATION STATUS 04108004 TIVPRI DC BL1'0' STEP DISPATCHING PRIORITY 04158004 TIVPRGNM DC CL8' ' NAME OF PROGRAM INVOKED 04208004 TIVINVNM DC CL8' ' STEP (PROC) NAME 04258004 TIVEFRGN DC BL2'0' EFFECTIVE REGION SIZE IN 1K BLKS 04308004 TIVPRV EQU TIVEFRGN REG SIZE REQ(PRI AREA 1K) Y02901 04358004 TIVSYST DC BL2'0' SYST AREA USED, TOP PRI AREA Y02901 04408004 TIVRVB EQU TIVSYST Y02901 04458004 TIVMCRE DC BL2'0' CORE ACTUALLY USED IN 1K BLKS 04508004 TIVSTU EQU TIVMCRE STORAGE USED, LOW PRI AREA Y02901 04558004 TIVRVC DC BL6'0' RESERVED 04608004 TIVSPK DC BL1'0' STORAGE PROTECT KEY A40791 04658004 TIVSTI DC BL1'0' STEP TERMINATION INDICATORS 04708004 * BIT0 - RESERVED 04758004 * BIT1 - CANCELLED AT EXIT IEFUJV 04808004 * BIT2 - CANCELLED AT EXIT IEFUJI 04858004 * BIT3 - CANCELLED AT EXIT IEFUSI 04908004 * BIT4 - CANCELLED AT EXIT IEFACTRT 04958004 * BIT5 - STEP IS TO BE RESTARTED @YL026WA 05008004 * BIT6 - 0=NORMAL COMPLETION 05058004 * 1=ABEND 05108004 * BIT7 - STEP FLUSHED 05158004 TIVRV1 DC BL2'0' RESERVED A40791 05208004 TIVAST DC BL4'0' ALLOC. START TIME A40791 05258004 TIVPPST DC BL4'0' PROBLEM PROG. START TIME A40791 05308004 TIVRV2 DC BL1'0' RESERVED @YL026WA 05358004 TIVSRBT DC BL3'0' STEP CPU UNDER SRB(.01 SEC) @YL026WA 05408004 TIVRIN DC BL2'0' RECORD INDICATORS 05458004 * BIT0-5 RESERVED @YM02618 05508004 * 6 =1 POSSIBLE ERROR IN @YM02618 05558004 * DEVICE ENTRY DATA @YM02618 05608004 * 7 =0 STOR IS VIRT, =1 STOR IS REAL 05658004 * 8-15 RESERVED @YM02618 05708004 TIVRLCT DC BL2'0' OFFSET TO RELOCATE SECTION 05758004 TIVVAR DC BL2'0' LENGTH OF EXCP COUNT FIELDS 05808004 * (INCLUDING THESE TWO BYTES) 05858004 TIVEXCP EQU * DEVICES USED AND EXCP COUNTS 05908004 * 05958004 * EACH ENTRY 06008004 * 06058004 TIVDEVC DC BL1'0' DEVICE CLASS 06108004 TIVUTYP DC BL1'0' UNIT TYPE 06158004 TIVCUAD DC BL2'00' CHANNEL/UNIT ADDRESS 06208004 TIVVDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 06258004 TIVNEXCP DC BL4'0' EXCP COUNT 06308004 * 06358004 ORG TIVEXCP 06408004 TIVVARA DC BL1'0' LENGTH OF CPU AND ACCT. SECTION 06458004 * (NOT INCLUDING THIS BYTE) 06508004 TIVCPUTM DC BL3'0' STEP CPU UNDER TCB(.01 SEC) @YL026WA 06558004 TIVNBRAC DC BL1'0' NUMBER OF ACCOUNTING FIELDS 06608004 TIVACFLD EQU * ACCOUNTING FIELDS 06658004 * (THE FIRST BYTE OF EACH FIELD 06708004 * MUST CONTAIN THE NUMBER OF 06758004 * BYTES OF DATA THAT FOLLOWS) 06808004 * 06858004 * RELOCATE SECTION 06908004 TIVPGIN DC BL4'0' NUMBER OF PAGE-INS 06958004 TIVPGOUT DC BL4'0' NUMBER OF PAGE-OUTS 07008004 TIVPGOT EQU TIVPGOUT Y02901 07058004 TIVRGNS DC BL4'0' NUMBER OF SWAPS 07108004 TIVNSW EQU TIVRGNS Y02901 07158004 TIVSIN DC BL4'0' NUMBER OF TSO SWAP PAGE-INS 07208004 TIVPSI EQU TIVSIN Y02901 07258004 TIVSOUT DC BL4'0' NUMBER OF TSO SWAP PAGE-OUTS 07308004 TIVPSO EQU TIVSOUT Y02901 07358004 TIVVPI DS BL4 VIO PAGE INS Y02132 07408004 TIVVPO DS BL4 VIO PAGE OUTS Y02132 07458004 TIVSST DS BL4'0' STEP SERVICE TIME @YM07459 07508004 TIVACT DS BL4'0' STEP ACTIVE TIME @YM07459 07558004 TIVPGNO DS BL2'0' PERFORMANCE NUMBER @YM07459 07608004 TIVTRANT DS BL4'0' STEP TRANSACTION RESIDENCY TIME @Z40FPPF 07658004 TIVRECLM DS BL4'0' NUMBER OF RECLAIMS @Z40FPPF 07708004 TIVRCLAM DS BL4'0' NUMBER OF VIO RECLAIMS @Z40FPPF 07758004 TIVCPGIN DS BL4'0' NUMBER OF COMMON PAGE-INS @Z40FPPF 07808004 TIVCRECL DS BL4'0' NUMBER OF COMMON RECLAIMS @Z40FPPF 07858004 TIVPGSTL DS BL4'0' NUMBER OF PAGES STOLEN FROM THIS MEMORY 07908004 * @Z40FPPF 07958004 TIVPGSEC DS CL8 COUNT OF PAGE SECONDS (UNIT IS 1 PAGE 08008004 * MILLISECOND) @Z40FPPF 08058004 AGO .CONTB 08108004 .IFAS035 ANOP 08158004 EJECT 08208004 * WRITTEN AT LOGOFF FOR BKGD JOB. LENGTH IS VARIABLE. MINIMUM OF 117. 08258004 * 08308004 DS 0F ALIGN TO FULL WORD BOUNDARY 08358004 TLGSMF EQU * SMF TS LOGOFF RECORD FORMAT 08408004 TLGRLEN DS BL2'0' RECORD LENGTH 08458004 TLGRSEG DS BL2'0' SEGMENT DESCRIPTOR 08508004 TLGRFLG DC BL1'0' HEADER FLAG BYTE 08558004 TLGRCDTY DC BL1'0' RECORD TYPE (35 DECIMAL) 08608004 TLGRCDTS DC BL4'0' TIME STAMP TOD 100THS SECS 08658004 TLGRCDTE DC PL4'0000' DATE 00YYDDDF 08708004 TLGCPUID DC CL4' ' CPU IDENTIFICATION (SYSTEM, MODEL) 08758004 TLGUIF DC CL8' ' USER IDENTIFICATION FIELD Y02901 08808004 TLGUID EQU TLGUIF 08858004 TLGONTME DC BL4'0' LOGON TIME TOD 100THS SECS 08908004 TLGONDTE DC PL4'0000' DATE 00YYDDDF 08958004 TLGUDATA DC CL8' ' RESV FOR USER 09008004 TLGSTPCT DC BL1'0' NUMBER OF STEPS IN SESSION 09058004 TLGCRTME DC BL4'0' RESERVED 09108004 TLGOUTCT DC BL4'0' LINE OUT COUNT 09158004 TLGINCT DC BL4'0' LINE IN COUNT 09208004 TLGSTAT DC BL2'0' SESSION TERMINATION STATUS 09258004 TLGPRI DC BL1'0' LOGON PRIORITY 09308004 TLGNQTME DC BL4'0' LOGON ENQUEUE TIME TOD .01 SECS 09358004 TLGNQDTE DC PL4'0000' LOGON ENQUEUE DATE 00YYDDDF 09408004 TLGTRMI DC BL1'0' TERMINATION INDICATORS 09458004 * BIT0-RESERVED 09508004 * 1-CANCELLED AT EXIT IEFUJV 09558004 * 2-CANCELLED AT EXIT IEFUJI 09608004 * 3-CANCELLED AT EXIT IEFUSI 09658004 * 4-CANCELLED AT EXIT IEFACTRT 09708004 * 5-RESERVED 09758004 * 6-O=NORMAL COMPLETION 09808004 * 1=ABEND 09858004 * 7-RESERVED 09908004 TLGOUTCL DC BL1'0' RESV-FORMERLY SYSOUT CLASSES Y02120 09958004 TLGTRANT DS BL4 TOTAL TRANSACTION RESIDENCY 09968004 * TIME @ZM01380 09978004 TLGRVC DC BL4'0' RESERVED 10008004 TLGSPK DC BL1'0' STORAGE PROTECT KEY A40791 10058004 TLGSRBT DC BL3'0' JOB CPU UNDER SRB(.01 SEC) @YL026WA 10108004 TLGTJS DS BL4 TOTAL SESSION SERV(SERV UNITS)Y02133 10158004 TLGTTAT DS BL4 TOTAL ACTIVE TIME FOR SESSION Y02133 10208004 TLGNTSN DS BL4 TOTAL # OF TRANSACTIONS Y02133 10258004 TLGPGNO DS BL2 PERFORMANCE GROUP # @YL026WA 10308004 TLGRV2 DS BL2 RESERVED @YL026WA 10328004 TLGVAR DC BL1'0' LENGTH OF REST OF RECORD 10458004 * (NOT INCLUDING THIS BYTE) 10508004 TLGRVB DC CL20' ' RESERVED 10558004 TLGCPUTM DC BL3'0' JOB CPU UNDER TCB(.01 SEC) @YL026WA 10608004 TLGNBRAC DC BL1'0' NUMBER OF ACCOUNTING FIELDS 10658004 TLGACFLD EQU * ACCOUNTING FIELDS 10708004 * (THE FIRST BYTE OF EACH FIELD 10758004 * MUST CONTAIN THE NUMBER OF 10808004 * BYTES OF DATA THAT FOLLOWS) 10858004 AGO .CONTB 10908004 MEND */ 10958004 %IFAL27:; 11008004 %IFAL31: IF IFAR31='' %THEN %GOTO IFAL32; 11058004 DCL 1 SMFRCD31 BASED(SMF31PTR) BDY(WORD), 11108004 /* RECORD TYPE 31 - TIOC INITIALIZATION */ 11158004 /* WRITTEN WHENEVER A MODIFY TCAM COMMAND IS PROCESSED WITH TS=START*/ 11208004 3 TTIRLEN FIXED(15), /* RDW RECORD LENGTH */ 11258004 3 TTIRSEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 11308004 3 TTIRFLG BIT(8), /* OPERATING ENVIRONMENT */ 11358004 3 TTIRCDTY FIXED(8), /* RECORD TYPE 31 */ 11408004 3 TTIRCDTS FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 11458004 3 TTIRCDTE CHAR(4), /* DATE RECORD WRITTEN */ 11508004 3 TTICPUID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 11558004 3 TTINBF FIXED(15), /* TOTAL # OF BUFFERS */ 11608004 3 TTIBUFSE FIXED(15), /* BUFFER SIZE(BYTES) */ 11658004 3 TTIRSVRD CHAR(2), /* RESV */ 11708004 3 TTIOMAX FIXED(15), /* MAX # OUTPUT BUFFERS ALLOWED 11758004 EACH TERMINAL BEFORE OWAIT */ 11808004 3 TTIIMAX FIXED(15), /* MAX # INPUT BUFFERS ALLOWED 11858004 EACH TERMINAL BEFORE LWAIT */ 11908004 3 TTIOWTH FIXED(15), /* OWAIT THRESHOLD-# BUF THAT MUST 11958004 BE FREE IN ORDER TO ESCAPE OWAIT*/ 12008004 3 TTIRSTH FIXED(15), /* RESTART THRESHOLD-# BUF THAT MUST 12058004 BE FREE IN ORDER TO ESCAPE LWAIT*/ 12108004 3 TTIUSLW FIXED(15), /* # BUF RESV ON FREE QUEUE. 12158004 < THIS # RESULTS IN SYSTEM LWAIT*/ 12208004 3 TTIUSSL FIXED(15), /* RESV */ 12258004 3 TTITSBS FIXED(8), /* SIZE OF TSB'S */ 12308004 3 TTIUSCH FIXED(8), /* RESV */ 12358004 3 TTIRVA CHAR(20); /* RESV */ 12408004 %IFAL32: ; 12458004 %IFAL34: IF IFAR34='' %THEN %GOTO IFAL35; 12508004 DCL 1 SMFRCD34 BASED(SMF34PTR) BDY(WORD), 12558004 /* RECORD TYPE 34 - FOREGROUND STEP TERMINATION */ 12608004 /* WRITTEN WHENEVER A FGD TASK TERMINATES */ 12658004 3 TIVRLEN FIXED(15), /* RDW RECORD LENGTH */ 12708004 3 TIVRSEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 12758004 3 TIVRFLG BIT(8), /* OPERATING ENVIRONMENT */ 12808004 3 TIVRCDTY FIXED(8), /* RECORD TYPE 34 */ 12858004 3 TIVRCDTS FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 12908004 3 TIVRCDTE CHAR(4), /* DATE RECORD WRITTEN */ 12958004 3 TIVCPUID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 13008004 3 TIVUIF CHAR(8), /* USER ID FIELD */ 13058004 5 TIVUID CHAR(8), 13108004 3 TIVONTME FIXED(31) BDY(BYTE), /* TOD LOGON(.01 SEC) */ 13158004 3 TIVONDTE CHAR(4), /* LOGON DATE */ 13208004 3 TIVUDATA CHAR(8), /* RESV FOR USER */ 13258004 3 TIVINVSQ FIXED(8), /* STEP SEQUENCE # */ 13308004 3 TIVSIT FIXED(31) BDY(BYTE), /* TOD STEP INITIATED @YL026WA*/ 13358004 5 TIVCRTME FIXED(31) BDY(BYTE), /* WAS STOR OCCUPANCY TIME*/ 13408004 3 TIVOUTCT FIXED(31) BDY(BYTE), /* LINE-OUT COUNT */ 13458004 3 TIVINCT FIXED(31) BDY(BYTE), /* LINE-IN COUNT */ 13508004 3 TIVSTAT CHAR(2), /* STEP TERMINATION STATUS */ 13558004 3 TIVPRI FIXED(8), /* STEP DISPATCH PRIORITY */ 13608004 3 TIVPRGNM CHAR(8), /* TERMINAL MONITOR PGM NAME */ 13658004 3 TIVINVNM CHAR(8), /* STEP NAME(PROCEDURE) */ 13708004 3 TIVPRV FIXED(15), /* REG SIZE REQ(PRI AREA-1K) */ 13758004 5 TIVEFRGN FIXED(15), /* EFFECTIVE REGION SIZE */ 13808004 3 TIVSYST FIXED(15), /* SYST AREA USED, TOP PRI AREA */ 13858004 5 TIVRVB FIXED(15), /* RESV */ 13908004 3 TIVSTU FIXED(15), /* STORAGE USED, LOW PRI AREA(1K) */ 13958004 5 TIVMCRE FIXED(15), /* CORE USED IN 1K BLOCKS */ 14008004 3 TIVRVC CHAR(6), /* RESV */ 14058004 3 TIVSPK FIXED(8), /* STORAGE PROTECT KEY */ 14108004 3 TIVSTI BIT(8), /* STEP TERMINATION INDICATOR 14158004 0-RESV 14208004 1-CANCELLED AT EXIT IEFUJV 14258004 2-CANCELLED AT EXIT IEFUJI 14308004 3-CANCELLED AT EXIT IEFUSI 14358004 4-CANCELLED AT EXIT IEFACTRT 14408004 5-STEP TO BE RESTARTED @YL026WA 14458004 6-ABEND 14508004 7-STEP FLUSHED */ 14558004 3 TIVRV1 CHAR(2), /* RESV */ 14608004 3 TIVAST FIXED(31) BDY(BYTE), /* DEVICE ALLOC START TIME */ 14658004 3 TIVPPST FIXED(31) BDY(BYTE), /* PROB PROG START TIME */ 14708004 3 TIVRV2 CHAR(1), /* RESV @YL026WA*/ 14758004 3 TIVSRBT PTR(24) BDY(BYTE), /* STEP CPU UNDER SRB @YL026WA*/ 14808004 3 TIVRIN BIT(16), /* RECORD INDICATORS @YM02618*/ 14858004 5 * BIT(6), /* 0-5 RESV @YM02618*/ 14908004 5 TIVIEX BIT(1), /* POSSIBLE ERROR IN DEV ENTRY */ 14958004 5 * BIT(9), /* 7 =0 VIRT, =1 REAL STORAGE 15008004 8-15 RESV */ 15058004 3 TIVRLCT FIXED(15), /* OFFSET TO RELOCATE SECTION */ 15108004 3 TIVVAR FIXED(15); /* LGTH OF EXCP SECTION + THESE 2 */ 15158004 DCL 1 TIVEXCP BASED BDY(WORD), /* EXCP SECTION, ENTRY FOR EACH 15208004 DEVICE OF EACH NON-SPOOLED DS */ 15258004 3 TIVCUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 15308004 5 TIVDEVC CHAR(1), /* DEVICE CLASS */ 15358004 5 TIVUTYP CHAR(1), /* UNIT TYPE */ 15408004 3 TIVCUAD CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 15458004 4 TIVVDV BIT(1), /* VIRTUAL DEVICE @Y30AQPF*/ 15508004 3 TIVNEXCP FIXED(31); /* EXCP COUNT FOR DEVICE OF DS */ 15558004 DCL 1 TIVCPUA BASED BDY(WORD), /* CPU AND ACCT HDR SECTION */ 15608004 3 TIVVARA FIXED(8), /* LGTH OF CPU AND ACCT SECTION */ 15658004 3 TIVCPUTM PTR(24), /*STEP CPU UNDER TCB(.01 S)@YL026WA*/ 15708004 3 TIVNBRAC PTR(8); /* NUM OF ACCT FIELDS IN ACCT SECT */ 15758004 DCL 1 TIVACFLD BASED BDY(BYTE), /* ACCT SECTION */ 15808004 3 TIVANC PTR(8), /* # CHAR IN THIS ACCT FIELD */ 15858004 3 TIVBCD CHAR(*); /* ACCT FIELD CHARACTERS */ 15908004 DCL 1 TIVRELS BASED BDY(BYTE), /* RELOCATE SECTION */ 15958004 3 TIVPGIN FIXED(31) BDY(BYTE), /* # OF PAGE-INS */ 16008004 3 TIVPGOT FIXED(31) BDY(BYTE), /* # OF PAGE-OUTS */ 16058004 5 TIVPGOUT FIXED(31) BDY(BYTE), 16108004 3 TIVNSW FIXED(31) BDY(BYTE), /* # OF SWAPS */ 16158004 5 TIVRGNS FIXED(31) BDY(BYTE), 16208004 3 TIVPSI FIXED(31) BDY(BYTE), /* # OF PAGES SWAPPED IN */ 16258004 5 TIVSIN FIXED(31) BDY(BYTE), 16308004 3 TIVPSO FIXED(31) BDY(BYTE), /* # OF PAGES SWAPPED OUT */ 16358004 5 TIVSOUT FIXED(31) BDY(BYTE), 16408004 3 TIVVPI FIXED(31) BDY(BYTE), /* # OF VIO PAGE-INS */ 16458004 3 TIVVPO FIXED(31) BDY(BYTE), /* # OF VIO PAGE-OUTS */ 16508004 3 TIVSST FIXED(31) BDY(BYTE), /* STEP SERVICE TIME @Z40FPPF*/ 16558004 3 TIVTAT FIXED(31) BDY(BYTE), /* STEP TRANSACTION ACTIVE 16608004 TIME @Z40FPPF*/ 16658004 3 TIVPGNO FIXED(16), /* PERFORMANCE GROUP NUMBER 16708004 @Z40FPPF*/ 16758004 3 TIVTRANT FIXED(31) BDY(BYTE), /* STEP TRANSACTION RESIDENCY 16808004 TIME @Z40FPPF*/ 16858004 3 TIVRECLM FIXED(31) BDY(BYTE), /* NUMBER OF RECLAIMS 16908004 @Z40FPPF*/ 16958004 3 TIVRCLAM FIXED(31) BDY(BYTE), /* NUMBER OF VIO RECLAIMS 17008004 @Z40FPPF*/ 17058004 3 TIVCPGIN FIXED(31) BDY(BYTE), /* NUMBER OF COMMON PAGE-INS 17108004 @Z40FPPF*/ 17158004 3 TIVCRECL FIXED(31) BDY(BYTE), /* NUMBER OF COMMON RECLAIMS 17208004 @Z40FPPF*/ 17258004 3 TIVPGSTL FIXED(31) BDY(BYTE), /* NUMBER OF PAGES STOLEN FROM 17308004 THIS MEMORY @Z40FPPF*/ 17358004 3 TIVPGSEC CHAR(8); /* COUNT OF PAGE SECONDS (UNIT 17408004 IS 1 PAGE MILLISECOND 17458004 @Z40FPPF*/ 17508004 %IFAL35: IF IFAR35='' %THEN %GOTO IFAL36; 17558004 DCL 1 SMFRCD35 BASED(SMF35PTR) BDY(WORD), 17608004 /* RECORD TYPE 35 - LOGOFF */ 17658004 /* WRITTEN WHENEVER A TSO USER LOGS OFF */ 17708004 3 TLGRLEN FIXED(15), /* RDW RECORD LENGTH */ 17758004 3 TLGRSEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 17808004 3 TLGRFLG BIT(8), /* OPERATING ENVIRONMENT */ 17858004 3 TLGRCDTY FIXED(8), /* RECORD TYPE 35 */ 17908004 3 TLGRCDTS FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 17958004 3 TLGRCDTE CHAR(4), /* DATE RECORD WRITTEN */ 18008004 3 TLGCPUID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 18058004 3 TLGUIF CHAR(8), /* USER ID FIELD */ 18108004 5 TLGUID CHAR(8), 18158004 3 TLGONTME FIXED(31) BDY(BYTE), /* TOD LOGOF(.01 SEC) */ 18208004 3 TLGONDTE CHAR(4), /* LOGON DATE */ 18258004 3 TLGUDATA CHAR(8), /* RESV FOR USER */ 18308004 3 TLGSTPCT FIXED(8), /* # OF STEPS IN SESSION */ 18358004 3 TLGCRTME CHAR(4), /* RESV */ 18408004 3 TLGOUTCT FIXED(31) BDY(BYTE), /* LINE-OUT COUNT */ 18458004 3 TLGINCT FIXED(31) BDY(BYTE), /* LINE-IN COUNT */ 18508004 3 TLGSTAT CHAR(2), /* SESSION TERMINATION STATUS */ 18558004 3 TLGPRI FIXED(8), /* LOGON PRIORITY */ 18608004 3 TLGNQTME FIXED(31) BDY(BYTE), /* TOD LOGON ENQUEUE */ 18658004 3 TLGNQDTE CHAR(4), /* DATE LOGON ENQUEUE */ 18708004 3 TLGTRMI BIT(8), /* TERMINATION INDICATORS 18758004 0-RESV 18808004 1-CANCELLED AT EXIT IEFUJV 18858004 2-CANCELLED AT EXIT IEFUJI 18908004 3-CANCELLED AT EXIT IEFUSI 18958004 4-CANCELLED AT EXIT IEFACTRT 19008004 5-RESV 19058004 6-ABEND 19108004 7-RESV */ 19158004 3 TLGOUTCL CHAR(1), /* RESV-FORMERLY SYSOUT CLASSES */ 19208004 3 TLGTRANT FIXED(31) BDY(BYTE), /* TOTAL TRANSACTION 19218004 RESIDENCY TIME @ZM01380*/ 19228004 3 TLGRVC CHAR(4), /* RESV */ 19258004 3 TLGSPK FIXED(8), /* STORAGE PROTECT KEY */ 19308004 3 TLGSRBT PTR(24), /* JOB CPU UNDER SRB(.01 S)@YL026WA*/ 19358004 3 TLGTJS FIXED(31) BDY(BYTE), /* TOT SESS SERV(SERV UNITS) */ 19408004 3 TLGTTAT FIXED(31) BDY(BYTE), /* TOTAL SESSION ACTIVE TIME */ 19458004 3 TLGNTSN FIXED(31) BDY(BYTE), /* TOTAL # OF TRANSACTIONS */ 19508004 3 TLGPGNO FIXED(16) BDY(BYTE), /*PERFORMANCE GROUP# @YL026WA*/ 19558004 3 TLGRV2 CHAR(2), /* RESERVED @YL026WA*/ 19578004 3 TLGVAR FIXED(8), /* LENGTH OF REST OF RECORD */ 19708004 3 TLGRVB CHAR(20), /* RESV */ 19758004 3 TLGCPUTM FIXED(24) BDY(BYTE), /*JOB CPU TCB(.01 S)@YL026WA*/ 19808004 3 TLGNBRAC FIXED(8); /* # OF ACCT FIELDS IN ACCT SECTION*/ 19858004 DCL 1 TLGACFLD BASED BDY(BYTE), /* ACCT SECTION */ 19908004 3 TLGANC PTR(8), /* # CHAR IN THIS ACCT FIELD */ 19958004 3 TLGBCD CHAR(*); /* ACCT FIELD CHARACTERS */ 20008004 %IFAL36: ; 20058004