* %GOTO IFAL47; /* 00050004 MACRO 00100004 &NAME IFASMFR5 &RECTYPE 00150004 .* * * 00200004 .* * MACMEAN IFASMFR5 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 * 00401004 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR5) * 00451004 .* * * 00501004 .* * THIS MACRO EXPANDS RECORDS 47 - 54. * 00551004 .* * * 00601004 .* * 00651004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 47-54. THE REQUIRED 00701004 .* FORMAT IS - 00751004 .* 00801004 .* IFASMFR5 &RECTYPE 00851004 .********************************************************************** 00901004 AIF (&RECTYPE EQ 47).IFAS047 Y02120 00951004 AIF (&RECTYPE EQ 48).IFAS048 Y02120 01001004 AIF (&RECTYPE EQ 49).IFAS049 @YL026WA 01051004 AIF (&RECTYPE EQ 50).IFAS050 01071003 .E5 ANOP Y02120 01101004 SPACE 3 01151004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01201004 .CONTB ANOP 01251004 MEXIT 01301004 .IFAS047 ANOP Y02120 01351004 EJECT Y02120 01401004 * SUBSYSTEM EVENT START RECORD TYPE 47 Y02120 01451004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02120 01501004 SMFRCD47 EQU * START OF RECORD @ZA05171 01551004 SMF47HDR EQU * HEADER SEGMENT Y02120 01601004 SMF47LEN DS BL2 RECORD LENGTH Y02120 01651004 SMF47SEG DS BL2 SEGMENT DESCRIPTOR Y02120 01701004 SMF47FLG DS BL1 HEADER FLAG BYTE Y02120 01751004 SMF47RTY DS BL1 RECORD TYPE 47 Y02120 01801004 SMF47TME DS BL4 TOD FROM TIME MACRO BINARY Y02120 01851004 SMF47DTE DS PL4 DATE FROM TIME MACRO Y02120 01901004 SMF47SID DS CL4 SYSTEM IDENTIFICATION Y02120 01951004 * SUBSYSTEM IDENTIFICATION SECTION Y02120 02001004 SMF47SBS DS BL2 SUBSYSTEM IDENTIFIER Y02120 02051004 * X'0002' JES2 Y02120 02101004 * X'0005' JES3 @ZA05171 02151004 * X'0006' SS06 @Z40EPPF 02201004 SMF47RSV DS BL2 RESV Y02120 02251004 SMF47LRR DS BL2 LGTH OF REMAINDER OF RECORD Y02120 02301004 * (NOT INCLUDING THIS FIELD) Y02120 02351004 SMF47SBG EQU * SUBSYSTEM SECTION BEGINNING Y02120 02401004 * JES2 AND JES3 SECTION @ZA05171 02451004 SMF47EVT DS BL2 EVENT STARTING @ZA05171 02501004 SMF47SON EQU 1 TERMINAL SIGNED ON @ZA05171 02551004 SMF47STL EQU 2 LINE STARTED @ZA05171 02601004 * BEGINNING OF GENERAL SECTION Y02120 02651004 SMF47LN1 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-26) Y02120 02701004 SMF47RMT DS CL8 REMOTE NAME Y02120 02751004 SMF47LIN DS CL8 LINE NAME Y02120 02801004 SMF47PSW DS CL8 PASSWORD Y02120 02851004 * BEGINNING OF SIGNON MESSAGE SECTION Y02120 02901004 * THIS SECTION EXISTS ONLY FOR SIGNON EVENT STARTS Y02120 02951004 SMF47LN2 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-38) Y02120 03001004 SMF47MSG DS CL36 MESSAGE FOR SIGNON, COLUMNS 35-70 OF Y02120 03051004 * SIGNON CARD. Y02120 03101004 SMF47RVJ DS CL8 RESERVED FOR JES3 @ZA05171 03151004 SMF47RVU DS CL4 RESERVED FOR USER @ZA05171 03201004 SMF47END DS 0X END OF JES3 RECORD @ZA05171 03251004 SMF47SIZ DS 0XL(SMF47END-SMFRCD47) SIZE OF JES3 47 RECORD @ZA05171 03301004 ORG SMF47SBG Y02120 03351004 * SS06 SECTION @Z40EPPF 03401004 SMF47LCF DS BL1 LOGON CONDITION FLAG @Z40EPPF 03451004 SMF47UNL EQU 128 USER NOT LOGGED OFF @Z40EPPF 03501004 SMF47CWK EQU 32 CONTINUE WORKSPACE EXISTED AT LOGON @Z40EPPF 03551004 SMF47SPA EQU 4 SERVICE PROGRAM ACCOUNT RECORD @Z40EPPF 03601004 SMF47ULK EQU 1 USER LOCKED @Z40EPPF 03651004 SMF47UID DS BL3 USER ID @Z40EPPF 03701004 SMF47LTC DS BL1 LIBRARY TYPE CODE @Z40EPPF 03751004 SMF47PLI DS BL3 PROJECT LIB ID @Z40EPPF 03801004 SMF47JID DS CL6 JOB ENTRY ID CODE @Z40EPPF 03851004 SMF47LAA DS BL1 LANGUAGE ATTRIBUTE ASSIGNED @Z40EPPF 03901004 SMF47PCI DS BL1 PRIVILEGED CLASS INDICATORS @Z40EPPF 03951004 SMF47DSL DS BL4 DASD SPACE IN LIBRARY @Z40EPPF 04001004 * (1K UNITS) @Z40EPPF 04051004 SMF47DPL DS BL4 DASD SPACE PROJECT/PUBLIC @Z40EPPF 04101004 * LIBRARIES(1K UNITS) @Z40EPPF 04151004 ORG SMF47SBG @Z40EPPF 04201004 AGO .CONTB Y02120 04251004 .IFAS048 ANOP Y02120 04301004 EJECT Y02120 04351004 * SUBSYSTEM EVENT STOP RECORD TYPE 48 Y02120 04401004 DS 0F ALIGN TO FULL WORD BOUNDRY Y02120 04451004 SMFRCD48 EQU * START OF RECORD @ZA05171 04501004 SMF48HDR EQU * HEADER SEGMENT Y02120 04551004 SMF48LEN DS BL2 RECORD LENGTH Y02120 04601004 SMF48SEG DS BL2 SEGMENT DESCRIPTOR Y02120 04651004 SMF48FLG DS BL1 HEADER FLAG BYTE Y02120 04701004 SMF48RTY DS BL1 RECORD TYPE 48 Y02120 04751004 SMF48TME DS BL4 TOD FROM TIME MACRO BINARY Y02120 04801004 SMF48DTE DS PL4 DATE FROM TIME MACRO Y02120 04851004 SMF48SID DS CL4 SYSTEM IDENTIFICATION Y02120 04901004 * SUBSYSTEM IDENTIFICATION SECTION Y02120 04951004 SMF48SBS DS BL2 SUBSYSTEN IDENTIFIER Y02120 05001004 * X'0002' JES2 Y02120 05051004 * X'0005' JES3 @ZA05171 05101004 * X'0006' SS06 @Z40EPPF 05151004 SMF48RSV DS BL2 RESV Y02120 05201004 SMF48LRR DS BL2 LGTH OF REMAINDER OF RECORD Y02120 05251004 * (NOT INCLUDING THIS FIELD) Y02120 05301004 SMF48SBP EQU * SUBSYSTEM SECTION BEGINNING Y02120 05351004 * JES2 AND JES3 COMMON SECTION @ZA05171 05401004 SMF48EVT DS BL2 TYPE OF EVENT STOPPED @ZA05171 05451004 SMF48SOF EQU 1 LINE HAS SIGNED OFF @ZA05171 05501004 SMF48CAN EQU 2 LINE CANCELLED BY OPERATOR @ZA05171 05551004 SMF48RV1 DS BL2 RESV Y02120 05601004 SMF48RMT DS CL8 REMOTE NAME Y02120 05651004 SMF48LIN DS CL8 LINE NAME Y02120 05701004 SMF48PSW DS CL8 PASSWORD Y02120 05751004 SMF48SBG EQU * JES2 AND JES3 UNCOMMON SECTIONS @ZA05171 05801004 * JES2 SECTION @ZA05171 05851004 SMF48IO DS BL4 # EXCPS(NOT INCLUDING LINE REPEATS) @YL02120 05901004 SMF48NAK DS BL4 # NAKS TO WRITE TEXT-NEG ACKNOWLEDGEMTS@YL02120 05951004 SMF48DCK DS BL4 # DATA CHECKS TO READ TEXT @YL02120 06001004 SMF48OUT DS BL4 # TIME OUTS TO READ TEXT @YL02120 06051004 SMF48ERR DS BL4 SUM OF ALL OTHER LINE ERRORS @YL02120 06101004 SMF48LAA DS CL3 LINE ADAPTER ADDRESS FROM UCB @YL02120 06151004 ORG SMF48SBG @ZA05171 06201004 * JES3 SECTION @ZA05171 06251004 SMF48XCP DS BL28 EXCP COUNTS AND ERROR STATISTICS @ZA05171 06301004 ORG SMF48XCP @ZA05171 06351004 SMF48TRN DS BL4 NUMBER OF TRANSMISSIONS @ZA05171 06401004 SMF48ERS DS BL4 NUMBER OF LINE ERRORS @ZA05171 06451004 SMF48TOT DS BL2 NUMBER OF TIME-OUTS @ZA05171 06501004 SMF48NKS DS BL2 NUMBER OF NAK RESPONSES TO WRITE @ZA05171 06551004 SMF48S0 DS BL1 NUMBER OF COMMAND REJECTS @ZA05171 06601004 SMF48S1 DS BL1 NUMBER OF INTERVENTIONS REQUIRED @ZA05171 06651004 SMF48S2 DS BL1 NUMBER OF BUS-OUT CHECKS @ZA05171 06701004 SMF48S3 DS BL1 NUMBER OF EQUIPMENT CHECKS @ZA05171 06751004 SMF48S4 DS BL1 NUMBER OF DATA CHECKS @ZA05171 06801004 SMF48S5 DS BL1 NUMBER OF DATA OVERRUNS @ZA05171 06851004 SMF48S6 DS BL1 NUMBER OF LOST DATAS @ZA05171 06901004 SMF48USR DS BL9 RESERVED FOR USER @ZA05171 06951004 SMF48ADP DS CL3 LINE ADAPTER ADDRESS @ZA05171 07001004 SMF48RVJ DS CL8 RESERVED FOR JES3 @ZA05171 07051004 SMF48RVU DS CL4 RESERVED FOR USER @ZA05171 07101004 SMF48END DS 0X END OF JES3 RECORD @ZA05171 07151004 SMF48SIZ DS 0XL(SMF48END-SMFRCD48) SIZE OF JES3 48 RECORD @ZA05171 07201004 ORG SMF48SBP Y02120 07251004 * SS06 SECTION @Z40EPPF 07301004 SMF48FLS DS BL1 LOGOFF FLAGS @Z40EPPF 07351004 SMF48RPI EQU 128 RECORD FOR PREVIOUS INCOMPLETE SESSION @Z40EPPF 07401004 SMF48CNI EQU 64 CANCEL ISSUED @Z40EPPF 07451004 SMF48CWK EQU 32 CONTINUE WORKSPACE SAVED @Z40EPPF 07501004 SMF48CPG EQU 16 CONTINUE PURGED @Z40EPPF 07551004 SMF48HSI EQU 8 HALT OR STOP ISSUED @Z40EPPF 07601004 SMF48SPA EQU 4 SERVICE PROGRAM ACCOUNT RECORD @Z40EPPF 07651004 SMF48ULK EQU 1 USER LOCKED @Z40EPPF 07701004 SMF48UID DS BL3 USER ID @Z40EPPF 07751004 SMF48CPU DS BL4 CPU TIME @Z40EPPF 07801004 SMF48CNT DS BL4 CONNECT TIME (SECONDS FOR @Z40EPPF 07851004 * THIS TERMINAL SESSION @Z40EPPF 07901004 SMF48CTH DS BL4 CONNECT TIME (SECONDS) FOR THIS @Z40EPPF 07951004 * TERMINAL SESSION FOR ATTACHED @Z40EPPF 08001004 * HARDCOPY DEVICE @Z40EPPF 08051004 SMF48VIR DS BL4 VIRTUAL STORAGE USED @Z40EPPF 08101004 * (THOUSANDS OF BYTE-SECONDS) @Z40EPPF 08151004 * DURING TERMINAL SESSION @Z40EPPF 08201004 SMF48DIO DS BL4 DASD I/O COUNT FOR THIS @Z40EPPF 08251004 * TERMINAL SESSION @Z40EPPF 08301004 SMF48TIO DS BL4 TELEPROCESSING I/O COUNTS @Z40EPPF 08351004 * DURING TERMINAL SESSION @Z40EPPF 08401004 SMF48DSL DS BL4 DASD SPACE IN THIS LIBRARY @Z40EPPF 08451004 * (IN 1K UNITS) @Z40EPPF 08501004 SMF48DSP DS BL4 DASD SPACE IN PROJECT/PUB @Z40EPPF 08551004 * LIBRARIES (1K UNITS) @Z40EPPF 08601004 SMF48CPD DS BL4 CPU TIME TO DATE (HUNDREDTHS @Z40EPPF 08651004 * OF SECONDS @Z40EPPF 08701004 SMF48CTD DS BL4 CONNECT TIME TO DATE (SECS) @Z40EPPF 08751004 SMF48CDH DS BL4 CONNECT TIME FOR HARDCOPY @Z40EPPF 08801004 * DEVICE TO DATE (SECONDS) @Z40EPPF 08851004 SMF48VSD DS BL4 VIRT STORAGE USED TO DATE @Z40EPPF 08901004 * (THOUSANDS OF BYTE-SECONDS) @Z40EPPF 08951004 SMF48DID DS BL4 DASD I/O COUNTS TO DATE @Z40EPPF 09001004 SMF48TID DS BL4 TP I/O COUNTS TO DATE @Z40EPPF 09051004 AGO .CONTB Y02120 09101004 .IFAS049 ANOP @YL026WA 09151004 EJECT @YL026WA 09201004 * SUBSYSTEM INTEGRITY RECORD TYPE 49 @YL02120 09251004 DS 0F ALIGN TO FULL WORD BOUNDRY @YL026WA 09301004 SMFRCD49 EQU * START OF RECORD @ZA05171 09351004 SMF49HDR EQU * HEADER SEGMENT @YL026WA 09401004 SMF49LEN DS BL2 RECORD LENGTH @YL026WA 09451004 SMF49SEG DS BL2 SEGMENT DESCRIPTOR @YL026WA 09501004 SMF49FLG DS BL1 HEADER FLAG BYTE @YL026WA 09551004 SMF49RTY DS BL1 RECORD TYPE 49 @YL026WA 09601004 SMF49TME DS BL4 TOD FROM TIME MACRO BINARY @YL026WA 09651004 SMF49DTE DS PL4 DATE FROM TIME MACRO @YL026WA 09701004 SMF49SID DS CL4 SYSTEM IDENTIFICATION @YL026WA 09751004 * SUBSYSTEM IDENTIFICATION SECTION @YL026WA 09801004 SMF49SBS DS BL2 SUBSYSTEM IDENTIFIER @YL026WA 09851004 * X'0002' JES2 @YL026WA 09901004 * X'0005' JES3 @ZA05171 09951004 * X'0006' SS06 @Z40EPPF 10001004 SMF49RSV DS BL2 RESV @YL026WA 10051004 SMF49LRR DS BL2 LGTH OF REMAINED OF RECORD @YL026WA 10101004 * (NOT INCLUDING THIS FIELD) @YL026WA 10151004 SMF49SBG EQU * SUBSYSTEM SECTION BEGINNING @YL026WA 10201004 * JES2 AND JES3 SECTION @ZA05171 10251004 SMF49EVT DS BL2 EVENT STARTING @ZA05171 10301004 * FOLLOWING BIT DEFINITIONS APPLY TO JES2 @ZA05171 10351004 * EQU X'01' SIGNON @ZA05171 10401004 * EQU X'02' START LINE @ZA05171 10451004 * FOLLOWING BIT DEFINITIONS APPLY TO JES3 @ZA05171 10501004 SMF49NER EQU 1 TERMINAL NOT DEFINED @ZA05171 10551004 SMF49PER EQU 2 INVALID PASSWORD @ZA05171 10601004 SMF49LER EQU 3 LINE ALREADY SIGNED ON @ZA05171 10651004 SMF49TER EQU 4 TERMINAL ALREADY SIGNED ON @ZA05171 10701004 * BEGINNING OF GENERAL SECTION @YL026WA 10751004 SMF49LN1 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-26)@YL026WA 10801004 SMF49RMT DS CL8 REMOTE NAME @YL026WA 10851004 SMF49LIN DS CL8 LINE NAME @YL026WA 10901004 SMF49PSW DS CL8 PASSWORD USED(INVALID) @YL02120 10951004 * BEGINNING OF SIGNON MESSAGE SECTION @YL026WA 11001004 * THIS SECTION EXISTS ONLY FOR SIGNON EVENT STARTS @YL026WA 11051004 SMF49LN2 DS BL2 LGTH OF THIS SECTION(INCLUDING SELF-38)@YL026WA 11101004 SMF49MSG DS CL36 MESSAGE FOR SIGNON, COLUMNS 35-70 OF @YL026WA 11151004 * SIGNON CARD. @YL026WA 11201004 SMF49END DS 0X END OF JES3 RECORD @ZA05171 11251004 SMF49SIZ DS 0XL(SMF49END-SMFRCD49) SIZE OF JES3 49 RECORD @ZA05171 11301004 ORG SMF49SBG @YL026WA 11351004 * SS06 SECTION @Z40EPPF 11401004 SMF49VID DS BL3 VIOLATOR IDENTIFICATION @Z40EPPF 11451004 SMF49LNA DS BL3 LIBRARY NUMBER OR ACCESSED LIBRARY @Z40EPPF 11501004 SMF49RV1 DS BL2 RESERVED @Z40EPPF 11551004 SMF49FLN DS CL12 FILENAME OF FILE ATTEMPTED @Z40EPPF 11601004 SMF49UFO DS BL3 USERNUMBER OF FILE OWNER @Z40EPPF 11651004 ORG SMF49SBG @Z40EPPF 11701004 AGO .CONTB @YL026WA 11751004 .IFAS050 ANOP 11753003 EJECT 11755003 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 50 (VTAM @ZA20643 11757003 * TUNING STATISTICS). THE RECORD LENGTH IS 58 BYTES. @ZA20643 11759003 * @ZA20643 11761003 DS 0F ALIGN TO FULL WORD BOUNDARY @ZA20643 11763003 SMFRCD50 EQU * READER SEGMENT @ZA20643 11765003 SMF50LEN DS BL2'0' RECORD LENGTH @ZA20643 11767003 SMF50SEG DS BL2'0' SEGMENT DESCRIPTOR @ZA20643 11769003 SMF50FLG DC BL1'0' HEADER FLAG TYPE @ZA20643 11771003 SMF50RTY DC BL1'0' RECORD TYPE 50 @ZA20643 11773003 SMF50TME DC BL4'0' TOD,FORMAT FROM TIME MAC W/BIN INTRVL @ZA20643 11775003 SMF50DTE DC PL4'0000' DATE IN PACKED DEC FORM: 00YYDDDF @ZA20643 11777003 SMF50SID DS CL4 SYSTEM IDENTIFICATION @ZA20643 11779003 SMF50NME DS CL8 LOCALLY ATTCHD INTELLIGENT CONTROLLER @ZA20643 11781003 SMF50DLR DS BL4 DUMP/LOAD/RESTART TCB COUNT @ZA20643 11783003 SMF50CWR DS BL4 NUMBER OF WRITE CHANNEL PROGRAMS @ZA20643 11785003 SMF50CRD DS BL4 NUMBER OF READ CHANNEL PROGRAMS @ZA20643 11787003 SMF50ATN DS BL4 ATTENTIONS (TOTAL) @ZA20643 11789003 SMF50ATR DS BL4 ATTENTIONS ON READ @ZA20643 11791003 SMF50PUI DS BL4 PIO'S INBOUND @ZA20643 11793003 SMF50PUO DS BL4 PIO'S OUTBOUND @ZA20643 11795003 SMF50BUF DS BL4 READ BUFFERS USED @ZA20643 11797003 SMF50SLD DS BL4 NCP SLOWDOWN @ZA20643 11799003 AGO .CONTB 11811003 MEND */ 11821003 %IFAL47: IF IFAR47='' %THEN %GOTO IFAL48; 11851004 DCL 1 SMFRCD47 BASED(SMF47PTR) BDY(WORD), 11901004 /* RECORD TYPE 47 - SUBSYSTEM EVENT START */ 11951004 3 SMF47LEN FIXED(15), /* RDW RECORD LENGTH */ 12001004 3 SMF47SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 12051004 3 SMF47FLG BIT(8), /* OPERATING ENVIRONMENT */ 12101004 3 SMF47RTY FIXED(8), /* RECORD TYPE 47 */ 12151004 3 SMF47TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 12201004 3 SMF47DTE CHAR(4), /* DATE RECORD WRITTEN */ 12251004 3 SMF47SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 12301004 /* SUBSYSTEM IDENTIFICATION SECTION*/ 12351004 3 SMF47SBS FIXED(15), /* SUBSYSTEM IDENTIFIER */ 12401004 /* 2 JES2 */ 12451004 /* 5 JES3 @ZA05171*/ 12501004 /* 6 SS06 @Z40EPPF*/ 12551004 3 SMF47RSV CHAR(2), /* RESV */ 12601004 3 SMF47LRR PTR(15), /* LGTH OF REMAINDER OF RECORD 12651004 (NOT INCLUDING THIS FIELD) */ 12701004 3 SMF47SBG CHAR(28), /* SUBSYSTEM SECTION @ZA05171*/ 12751004 /* JES2 AND JES3 SUBSYSTEM DATA @ZA05171*/ 12801004 5 SMF47EVT FIXED(15) BDY(BYTE), /* EVENT TYPE STARTING */ 12851004 7 * BIT(6), /* RESERVED @ZA05171*/ 12901004 7 SMF47STL BIT(1), /* LINE STARTED @ZA05171*/ 12951004 7 SMF47SON BIT(1), /* TERMINAL SIGNED ON @ZA05171*/ 13001004 7 * BIT(8), /* RESERVED @ZA05171*/ 13051004 /* GENERAL SECTION */ 13101004 5 SMF47LN1 PTR(15) BDY(BYTE), /* LGTH OF GENERAL SECTION */ 13151004 5 SMF47RMT CHAR(8), /* REMOTE NAME */ 13201004 5 SMF47LIN CHAR(8), /* LINE NAME */ 13251004 5 SMF47PSW CHAR(8); /* PASSWORD */ 13301004 DCL 1 SMF47A BASED(ADDR(SMF47LN1)+SMF47LN1) BDY(HWORD), 13351004 /* MESSAGE SECTION FOR SIGNON */ 13401004 3 SMF47LN2 PTR(15), /* LGTH OF MESSAGE SECTION */ 13451004 3 SMF47MSG CHAR(36), /* MESSAGE FOR SIGNON, COLUMNS 13501004 35-70 OF SIGNON CARD. */ 13551004 3 SMF47RVJ CHAR(8), /* RESERVED FOR JES3 @ZA05171*/ 13601004 3 SMF47RVU CHAR(4), /* RESERVED FOR USER @ZA05171*/ 13651004 3 SMF47END CHAR(0); /* END OF JES3 RECORD @ZA05171*/ 13701004 /* SS06 SUBSYSTEM DATA @Z40EPPF*/ 13751004 DCL 1 SMF47PCO BASED(ADDR(SMF47SBG)), 13801004 3 SMF47LCF BIT(8), /* LOGON CONDITION FLAG @Z40EPPF*/ 13851004 5 SMF47UNL BIT(1), /* USER NOT LOGGED OFF @Z40EPPF*/ 13901004 5 SMF47RV1 BIT(1), /* RESERVED @Z40EPPF*/ 13951004 5 SMF47CWK BIT(1), /* CONTINUE WORKSPACE EXISTED 14001004 AT LOGON @Z40EPPF*/ 14051004 5 SMF47RV2 BIT(2), /* RESERVED @Z40EPPF*/ 14101004 5 SMF47SPA BIT(1), /* SERVICE PROGRAM ACCOUNT 14151004 RECORD @Z40EPPF*/ 14201004 5 SMF47RV3 BIT(1), /* RESERVED @Z40EPPF*/ 14251004 5 SMF47ULK BIT(1), /* USER LOCKED @Z40EPPF*/ 14301004 3 SMF47UID CHAR(3), /* USER ID @Z40EPPF*/ 14351004 3 SMF47LTC CHAR(1), /* LIBRARY TYPE @Z40EPPF*/ 14401004 3 SMF47PLI CHAR(3), /* PROJECT LIB ID @Z40EPPF*/ 14451004 3 SMF47JID CHAR(6), /* JOB ENTRY ID CODE @Z40EPPF*/ 14501004 3 SMF47LAA CHAR(1), /* LANGUAGE ATTRIBUTE ASSIGNED 14551004 @Z40EPPF*/ 14601004 3 SMF47PCI CHAR(1), /* PRIVILEGED CLASS INDICATORS 14651004 @Z40EPPF*/ 14701004 3 SMF47DSL FIXED(31), /* DASD SPACE IN LIBRARY 14751004 (1K UNITS) @Z40EPPF*/ 14801004 3 SMF47DPL FIXED(31); /* DASD SPACE PROJECT/PUBLIC 14851004 LIBRARIES (1K UNITS) @Z40EPPF*/ 14901004 %IFAL48: IF IFAR48='' %THEN %GOTO IFAL49; 14951004 DCL 1 SMFRCD48 BASED(SMF48PTR) BDY(WORD), 15001004 /* RECORD TYPE 48 - SUBSYSTEM EVENT STOP */ 15051004 3 SMF48LEN FIXED(15), /* RDW RECORD LENGTH */ 15101004 3 SMF48SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 15151004 3 SMF48FLG BIT(8), /* OPERATING ENVIRONMENT */ 15201004 3 SMF48RTY FIXED(8), /* RECORD TYPE 48 */ 15251004 3 SMF48TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 15301004 3 SMF48DTE CHAR(4), /* DATE RECORD WRITTEN */ 15351004 3 SMF48SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 15401004 /* SUBSYSTEM IDENTIFICATION SECTION*/ 15451004 3 SMF48SBS FIXED(15), /* SUBSYSTEM IDENTIFIER */ 15501004 /* 2 JES2 */ 15551004 /* 6 SS06 @Z40EPPF*/ 15601004 3 SMF48RSV CHAR(2), /* RESV */ 15651004 3 SMF48LRR PTR(15), /* LGTH OF REMAINDER OF RECORD 15701004 (NOT INCLUDING THIS FIELD) */ 15751004 3 SMF48SBP CHAR(28), /* SUBSYSTEM SECTION @ZA05171*/ 15801004 /* JES2 AND JES3 COMMON SECTION @ZA05171*/ 15851004 5 SMF48EVT FIXED(15) BDY(BYTE), /* EVENT TYPE STARTING */ 15901004 7 * BIT(6), /* RESERVED @ZA05171*/ 15951004 7 SMF48CAN BIT(1), /* LINE HAS SIGNED OFF @ZA05171*/ 16001004 7 SMF48SOF BIT(1), /* LINE CANCELLED BY OPER @ZA05171*/ 16051004 7 * BIT(8), /* RESERVED @ZA05171*/ 16101004 5 SMF48RV1 CHAR(2), /* RESV */ 16151004 5 SMF48RMT CHAR(8), /* REMOTE NAME */ 16201004 5 SMF48LIN CHAR(8), /* LINE NAME */ 16251004 5 SMF48PSW CHAR(8), /* PASSWORD */ 16301004 3 SMF48SBG CHAR(23), /* JES2,JES3 UNCOMMON AREA @ZA05171*/ 16351004 /* JES2 SUBSYSTEM DATA @ZA05171*/ 16401004 5 SMF48IO FIXED(31) BDY(BYTE), /* # EXCPS(NOT LINE REPEATS */ 16451004 5 SMF48NAK FIXED(31) BDY(BYTE), /* # NAKS TO WRITE TEXT */ 16501004 5 SMF48DCK FIXED(31) BDY(BYTE), /* # DATA CHECKS TO RD TEXT*/ 16551004 5 SMF48OUT FIXED(31) BDY(BYTE), /* # TIME OUTS TO READ TEXT*/ 16601004 5 SMF48ERR FIXED(31) BDY(BYTE), /*SUM OF ALL OTHER LINE ERR*/ 16651004 5 SMF48LAA CHAR(3); /* LINE ADAPTER ADDRESS FROM UCB */ 16701004 /* JES3 SUBSYSTEM DATA @ZA05171*/ 16751004 DCL 1 SMF48JS3 BASED(ADDR(SMF48SBG)), /*@ZA05171*/ 16801004 3 SMF48XCP CHAR(28), /* EXCP COUNTS AND 16851004 ERROR STATISTICS @ZA05171*/ 16901004 5 SMF48TRN CHAR(4), /* NO. OF TRANSMISSIONS @ZA05171*/ 16951004 5 SMF48ERS CHAR(4), /* NO. OF LINE ERRORS @ZA05171*/ 17001004 5 SMF48TOT CHAR(2), /* NO. OF TIME-OUTS @ZA05171*/ 17051004 5 SMF48NKS CHAR(2), /* NO. OF NAK RESPONSES TO 17101004 WRITE @ZA05171*/ 17151004 5 SMF48S0 CHAR(1), /* NO. OF CMD. REJECTS @ZA05171*/ 17201004 5 SMF48S1 CHAR(1), /* NO. OF INTERVENTION REQ.@ZA05171*/ 17251004 5 SMF48S2 CHAR(1), /* NO. OF BUS-OUT CHECKS @ZA05171*/ 17301004 5 SMF48S3 CHAR(1), /* NO. OF EQUIP. CHECKS @ZA05171*/ 17351004 5 SMF48S4 CHAR(1), /* NO. OF DATA CHECKS @ZA05171*/ 17401004 5 SMF48S5 CHAR(1), /* NO. OF DATA OVERRUNS @ZA05171*/ 17451004 5 SMF48S6 CHAR(1), /* NO. OF LOST DATA @ZA05171*/ 17501004 5 SMF48USR CHAR(9), /* RESERVED FOR USER @ZA05171*/ 17551004 3 SMF48ADP CHAR(3), /* LINE ADAPTER ADDRESS @ZA05171*/ 17601004 3 SMF48RVJ CHAR(8), /* RESERVED FOR JES3 @ZA05171*/ 17651004 3 SMF48RVU CHAR(4), /* RESERVED FOR USER @ZA05171*/ 17701004 3 SMF48END CHAR(0); /* END OF JES3 RECORD @ZA05171*/ 17751004 /* SS06 SUBSYSTEM DATA @Z40EPPF*/ 17801004 DCL 1 SMF48PCO BASED(ADDR(SMF48SBP)), 17851004 3 SMF48FLS BIT(8), /* LOGOFF FLAGS @ZA05171*/ 17901004 5 SMF48RPI BIT(1), /* RECORD FOR PREVIOUS 17951004 INCOMPLETE SECTION @Z40EPPF*/ 18001004 5 SMF48CNI BIT(1), /* CANCEL ISSUED @Z40EPPF*/ 18051004 5 SMF48CWK BIT(1), /* CONTINUE WORKSPACE SAVED 18101004 @Z40EPPF*/ 18151004 5 SMF48CPG BIT(1), /* CONTINUE PURGED @Z40EPPF*/ 18201004 5 SMF48HSI BIT(1), /* HALT OR STOP ISSUED @Z40EPPF*/ 18251004 5 SMF48SPA BIT(1), /* SERVICE PROGRAM ACCOUNT RECORD 18301004 @Z40EPPF*/ 18351004 5 SMF48RV2 BIT(1), /* RESERVED @Z40EPPF*/ 18401004 5 SMF48ULK BIT(1), /* USER LOCKED @Z40EPPF*/ 18451004 3 SMF48UID CHAR(3), /* USER ID @Z40EPPF*/ 18501004 3 SMF48CPU FIXED(31), /* CPU TIME @Z40EPPF*/ 18551004 3 SMF48CNT FIXED(31), /* CONNECT TIME (SECONDS) FOR 18601004 THIS TERMINAL SESSION @Z40EPPF*/ 18651004 3 SMF48CTH FIXED(31), /* CONNECT TIME (SECONDS) FOR 18701004 ATTACHED HARDCOPY DEV. @Z40EPPF*/ 18751004 3 SMF48VIR FIXED(31), /* VIRTUAL STORAGE USED 18801004 (THOUSANDS OF BYTE-SECONDS) 18851004 DURING TERMINAL SESSION@Z40EPPF*/ 18901004 3 SMF48DIO FIXED(31), /* DASD I/O COUNT FOR THIS 18951004 TERMINAL SESSION @Z40EPPF*/ 19001004 3 SMF48TIO FIXED(31), /* TP I/O COUNTS DURING 19051004 TERMINAL SESSION @Z40EPPF*/ 19101004 3 SMF48DSL FIXED(31), /* DASD SPACE IN THIS LIBRARY 19151004 (IN 1K UNITS) @Z40EPPF*/ 19201004 3 SMF48DSP FIXED(31), /* DASD SPACE IN PROJECT/PUBLIC 19251004 LIBRARIES (1K UNITS) @Z40EPPF*/ 19301004 3 SMF48CPD FIXED(31), /* CPU TIME TO DATE (HUNDREDTHS 19351004 OF SECONDS @Z40EPPF*/ 19401004 3 SMF48CTD FIXED(31), /* CONNECT TIME TO DATE (SECS) 19451004 @Z40EPPF*/ 19501004 3 SMF48CDH FIXED(31), /* CONNECT TIME FOR HARDCOPY 19551004 DEVICE TO DATE (SECONDS) 19601004 @Z40EPPF*/ 19651004 3 SMF48VSD FIXED(31), /* VIRT STORAGE USED TO DATE 19701004 (THOUSANDS OF BYTE-SECONDS) 19751004 @Z40EPPF*/ 19801004 3 SMF48DID FIXED(31), /* DASD I/O COUNTS TO DATE@Z40EPPF*/ 19851004 3 SMF48TID FIXED(31); /* TP I/O COUNTS TO DATE @Z40EPPF*/ 19901004 %IFAL49: IF IFAR49='' %THEN %GOTO IFAL50; /*@YL026WA*/ 19951004 DCL 1 SMFRCD49 BASED(SMF49PTR) BDY(WORD), /*@YL026WA*/ 20001004 /* RECORD TYPE 49 - SUBSYSTEM INTEGRITY @YL02120*/ 20051004 3 SMF49LEN FIXED(15), /* RDW RECORD LENGTH @YL026WA*/ 20101004 3 SMF49SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR @YL026WA*/ 20151004 3 SMF49FLG BIT(8), /* OPERATING ENVIRONMENT @YL026WA*/ 20201004 3 SMF49RTY FIXED(8), /* RECORD TYPE 49 @YL026WA*/ 20251004 3 SMF49TME FIXED(31) BDY(BYTE), /* TOD REC WRITTEN @YL026WA*/ 20301004 3 SMF49DTE CHAR(4), /* DATE RECORD WRITTEN @YL026WA*/ 20351004 3 SMF49SID CHAR(4), /* SYS ID FROM INSTALLATION@YL026WA*/ 20401004 /* SUBSYSTEM IDENT SECTION @YL026WA*/ 20451004 3 SMF49SBS FIXED(15), /* SUBSYSTEM IDENTIFIER @YL026WA*/ 20501004 /* 2 JES2 @YL026WA*/ 20551004 /* 5 JES3 @ZA05171*/ 20601004 /* 6 SS06 @Z40EPPF*/ 20651004 3 SMF49RSV CHAR(2), /* RESV @YL026WA*/ 20701004 3 SMF49LRR PTR(15), /* LGTH OF REMAINDER OF REC@YL026WA 20751004 (NOT INCLUDING THIS FLD)@YL026WA*/ 20801004 3 SMF49SBG CHAR(2), /* SUBSYSTEM SECTION @ZA05171*/ 20851004 /* JES2 AND JES3 SECTION @ZA05171*/ 20901004 5 SMF49EVT FIXED(15) BDY(BYTE), /* EVENT TYPE STARTING */ 20951004 /* FOLLOWING BIT DEFINITIONS APPLY TO JES2 @ZA05171*/ 21001004 /* 1 - SIGNON @ZA05171*/ 21051004 /* 2 - START LINE @ZA05171*/ 21101004 /* FOLLOWING BIT DEFINITIONS APPLY TO JES3 @ZA05171*/ 21151004 7 * BIT(4), /* RESERVED @ZA05171*/ 21201004 7 SMF49TER BIT(1), /*TERMINAL ALREADY SIGNED ON@ZA05171*/ 21251004 7 SMF49LER BIT(1), /* LINE ALREADY SIGNED ON @ZA05171*/ 21301004 7 SMF49PER BIT(1), /* INVALID PASSWORD @ZA05171*/ 21351004 7 SMF49NER BIT(1), /* TERMINAL NOT DEFINED @ZA05171*/ 21401004 7 * BIT(8), /* RESERVED @ZA05171*/ 21451004 3 SMF49LN1 PTR(15) BDY(BYTE), /* LGTH OF GEN SECT @YL026WA*/ 21501004 3 SMF49RMT CHAR(8), /* REMOTE NAME @YL026WA*/ 21551004 3 SMF49LIN CHAR(8), /* LINE NAME @YL026WA*/ 21601004 3 SMF49PSW CHAR(8); /* PASSWORD USED(INVALID) @YL02120*/ 21651004 DCL 1 SMF49A BASED(ADDR(SMF49LN1)+SMF49LN1) BDY(HWORD), 21701004 /* MSG SECT FOR JES2 SIGNON@YL026WA*/ 21751004 3 SMF49LN2 PTR(15), /* LGTH OF MESSAGE SECTION @YL026WA*/ 21801004 3 SMF49MSG CHAR(36), /* MSG FOR SIGNON, COLUMNS @Z40EPPF 21851004 35-70 OF SIGNON CARD. @YL026WA*/ 21901004 3 SMF49END CHAR(0); /* END OF JES3 RECORD @ZA05171*/ 21951004 /* SS06 SUBSYSTEM SECTION @Z40EPPF*/ 22001004 DCL 1 SMF49PCO BASED(ADDR(SMF49SBG)), 22051004 3 SMF49VID CHAR(3), /* VIOLATOR IDENTIFICATION@Z40EPPF*/ 22101004 3 SMF49LNA CHAR(3), /* LIBRARY NUMBER @Z40EPPF*/ 22151004 3 SMF49RV1 CHAR(2), /* RESERVED @Z40EPPF*/ 22201004 3 SMF49FLN CHAR(12), /* FILENAME OF FILE ATTEMPTED 22251004 @Z40EPPF*/ 22301004 3 SMF49UFO CHAR(3); /* USERNUMBER OF FILE OWNER 22351004 @Z40EPPF*/ 22401004 %IFAL50: IF IFAR50='' %THEN %GOTO IFALXX; 22421003 DCL 1 SMFRCD50 BASED(SMF50PTR) BDY(WORD), /* @ZA20643*/ 22451003 /* RECORD TYPE 50 - VTAM TUNING STATISTICS RECORD @ZA20643*/ 22501003 /* RECORD LENGTH IS 58 BYTES @ZA20643*/ 22551003 3 SMF50LEN FIXED(15), /* RECORD LENGTH @ZA20643*/ 22601003 3 SMF50SEG FIXED(15), /* SEGMENT DESCRIPTOR @ZA20643*/ 22651003 3 SMF50FLG BIT(8), /* OPERATING ENVIRONMENT @ZA20643*/ 22701003 3 SMF50RTY FIXED(8), /* RECORD TYPE 50 @ZA20643*/ 22751003 3 SMF50TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN 22801003 @ZA20643*/ 22851003 3 SMF50DTE CHAR(4), /* DATE IN PACKED FORM @ZA20643*/ 22901003 3 SMF50SID CHAR(4), /* SYSTEM IDENTIFICATION @ZA20643*/ 22951003 3 SMF50NME CHAR(8), /* LOCALLY ATTACHED INTELLIGENT 23001003 CONTROLLER @ZA20643*/ 23051003 3 SMF50DLR FIXED(31), /* DUMP,LOAD,RESTART,TCB COUNT 23101003 @ZA20643*/ 23151003 3 SMF50CWR FIXED(31), /* # OF WRITE CHANNEL PGMS@ZA20643*/ 23201003 3 SMF50CRD FIXED(31), /* # OF READ CHANNEL PGMS @ZA20643*/ 23251003 3 SMF50ATN FIXED(31), /* ATTENTIONS (TOTAL) @ZA20643*/ 23301003 3 SMF50ATR FIXED(31), /* ATTENTIONS ON READ @ZA20643*/ 23351003 3 SMF50PUI FIXED(31), /* PIO'S INBOUND @ZA20643*/ 23401003 3 SMF50PUO FIXED(31), /* PIO'S OUTBOUND @ZA20643*/ 23451003 3 SMF50BUF FIXED(31), /* READ BUFFER'S USED @ZA20643*/ 23501003 3 SMF50SLD FIXED(31); /* NCP SLOWDOWN @ZA20643*/ 23551003 %IFALXX: ; 23601003