* %GOTO IFAL07; /* 00050004 MACRO 00100004 &NAME IFASMFR1 &RECTYPE 00100704 .* * * 00200004 .* * MACMEAN IFASMFR1 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00250004 .* * MACCOMP Y-2 SC102/BL27P * 00300004 .* * MACSTAT Y-2 73298/42020 * 00350004 .* * METHOD OF ACCESS * 00400004 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00450004 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR1) * 00500004 .* * * 00550004 .* * THIS MACRO EXPANDS RECORDS 7-19. RECORD 15 CAN BE * 00556004 .* * SPECIFIED BUT TYPE 14 IS CREATED FOR IT. * 00604004 .* * * 00700004 .* * 00706004 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 7-19. THE REQUIRED 00754004 .* FORMAT IS - 00850004 .* 00856004 .* IFASMFR1 &RECTYPE 00904004 .********************************************************************** 00978004 AIF (&RECTYPE EQ 7).IFAS007 01028004 AIF (&RECTYPE EQ 8).IFAS008 01078004 AIF (&RECTYPE EQ 9).IFAS009 01128004 AIF (&RECTYPE EQ 10).IFAS010 01178004 AIF (&RECTYPE EQ 11).IFAS011 01228004 AIF (&RECTYPE EQ 14 OR &RECTYPE EQ 15).IFAS014 01278004 AIF (&RECTYPE EQ 17).IFAS017 01328004 AIF (&RECTYPE EQ 18).IFAS018 01378004 AIF (&RECTYPE EQ 19).IFAS019 01428004 .E5 ANOP 01478004 SPACE 3 01528004 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 01578004 .CONTB ANOP 01628004 MEXIT 01678004 .IFAS007 ANOP 01728004 EJECT 01778004 * THIS RECORD IS WRITTEN WHEN AN SMF DATA SET BECOMES AVAILABLE 01828004 * FOLLOWING THE UNAVAILABILITY OF AN SMF DATA SET. RECORD LENGTH IS 01878004 * 24 BYTES. 01928004 * 01978004 DS 0F ALIGN TO FULL WORD BOUNDARY 02028004 SMFRCD7 EQU * HEADER SEGMENT 02078004 SMF7LEN DS BL2'0' RECORD LENGTH 02128004 SMF7SEG DS BL2'0' SEGMENT DESCRIPTOR 02178004 SMF7FLG DC BL1'0' HEADER FLAG BYTE 02228004 SMF7RTY DC BL1'0' RECORD TYPE 7 02278004 SMF7TME DC BL4'0' TOD, USING FORMAT FROM TIME MACRO W/BIN. INTVL 02328004 SMF7DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM: 00YYDDDF 02378004 SMF7SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 02428004 SMF7NRO DC BL2'0' NUMBER OF SMF RECORDS OMITTED FROM DATA SET 02478004 SMF7STM DC BL4'0' STARTING TIME IN HUNDREDTHS OF SECONDS AT 02528004 * WHICH NO DATA SET WAS AVAILABLE FOR RECORDING 02578004 * SMF RECORDS 02628004 SMF7STD DC PL4'0000' STARTING DATE AT WHICH NO DATA SET WAS 02678004 * AVAILABLE FOR RECORDING SMF RECORDS 02728004 AGO .CONTB 02778004 .IFAS008 ANOP 02828004 EJECT 02878004 * THIS RECORD IS WRITTEN AFTER COMPLETION OF IPL, FOLLOWING THE SET 02928004 * DATE COMMAND. RECORD LENGTH IS VARIABLE. MINIMUM OF 16 BYTES. 02978004 * 03028004 DS 0F ALIGN TO FULL WORD BOUNDARY 03078004 SMFRCD8 EQU * HEADER SEGMENT 03128004 SMF8LEN DS BL2'0' RECORD LENGTH 03178004 SMF8SEG DS BL2'0' SEGMENT DESCRIPTOR 03228004 SMF8FLG DC BL1'0' HEADER FLAG BYTE 03278004 SMF8RTY DC BL1'0' RECORD TYPE 8 03328004 SMF8TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 03378004 SMF8DTE DC PL4'0000' DATE IN PACKED DEC.FORMAT: OOYYDDDF 03428004 SMF8SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 03478004 SMF8LENN DC BL2'0' LENGTH OF FIELD 03528004 * FOR EACH DEVICE ONLINE THERE IS A FOUR-BYTE ENTRY HAVING THE 03578004 * FOLLOWING FORMAT: 03628004 SMF8IODV DS 0C RESERVE FOUR BYTE AREA FOR EACH DEVICE 03678004 * BYTE 0 - DEVICE CLASS 03728004 * 1 - UNIT TYPE 03778004 * 2 - CHANNEL ADDRESS 03828004 * 3 - UNIT ADDRESS 03878004 SMF8VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 03928004 AGO .CONTB 03978004 .IFAS009 ANOP 04028004 EJECT 04078004 * THIS RECORD IS WRITTEN WHEN A DEVICE IS VARIED ONLINE. 04128004 * RECORD LENGTH IS VARIABLE. MINIMUM OF 20 BYTES. 04178004 * 04228004 DS 0F ALIGN TO FULL WORD BOUNDARY 04278004 SMFRCD9 EQU * HEADER SEGMENT 04328004 SMF9LEN DS BL2'0' RECORD LENGTH 04378004 SMF9SEG DS BL2'0' SEGMENT DESCRIPTOR 04428004 SMF9FLG DC BL1'0' HEADER FLAG BYTE 04478004 SMF9RTY DC BL1'0' RECORD TYPE 9 04528004 SMF9TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 04578004 SMF9DTE DC PL4'0000' DATE IN PACKED DEC. FORM: OOYYDDDF 04628004 SMF9SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 04678004 SMF9LENN DC BL2'0' LENGTH OF THIS FIELD PLUS REST OF RECORD 04728004 SMF9DVAD DS 0C DEVICES BEING ADDED TO THE I/O CONFIGURATION 04778004 * (VARIABLE,BINARY) 04828004 * FOR EACH DEVICE BEING ADDED THERE IS A FOUR 04878004 * BYTE ENTRY HAVING THE FOLLOWING FORMAT: 04928004 * BYTE 0-DEVICE CLASS 04978004 * 1-UNIT TYPE 05028004 * 2-CHANNEL ADDRESS 05078004 * 3-UNIT ADDRESS 05128004 SMF9VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 05178004 AGO .CONTB 05228004 .IFAS010 ANOP 05278004 EJECT 05328004 * THIS RECORD IS WRITTEN AFTER SUCCESSFUL DEVICE ALLOCATION RECOVERY. 05378004 * RECORD LENGTH IS VARIABLE. MINIMUM 0F 44 BYTES. 05428004 * 05478004 DS 0F ALIGN TO FULL WORD BOUNDARY 05528004 SMFRCD10 EQU * HEADER SEGMENT 05578004 SMF10LEN DS BL2'0' RECORD LENGTH 05628004 SMF10SEG DS BL2'0' SEGMENT DESCRIPTOR 05678004 SMF10FLG DC BL1'0' HEADER FLAG BYTE 05728004 SMF10RTY DC BL1'0' RECORD TYPE 10 05778004 SMF10TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 05828004 SMF10DTE DC PL4'0000' DATE IN PACKED DEC. FORM: OOYYDDDF 05878004 SMF10SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 05928004 SMF10JBN DC CL8' ' JOB NAME 05978004 SMF10RST DC BL4'0' READER START TIME 06028004 SMF10RSD DC PL4'0000' READER START DATE 06078004 SMF10UIF DC CL8' ' USER IDENTIFICATION FIELD 06128004 SMF10LN DC BL2'0' LENGTH OF THIS FIELD PLUS REST OF RECORD 06178004 SMF10DEV DS 0C DEVICES BEING MADE AVAILABLE (VARIABLE) 06228004 * 06278004 * FOR EACH DEVICE THERE IS A FOUR BYTE ENTRY 06328004 * HAVING THE FOLLOWING FORMAT: 06378004 * BYTE 0-DEVICE CLASS 06428004 * 1-UNIT TYPE 06478004 * 2-CHANNEL ADDRESS 06528004 * 3-UNIT ADDRESS 06578004 SMF10VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 06628004 AGO .CONTB 06678004 .IFAS011 ANOP 06728004 EJECT 06778004 * THIS RECORD IS WRITTEN WHEN A DEVICE IS VARIED OFFLINE. 06828004 * RECORD LENGTH IS VARIABLE. MINIMUM OF 20 BYTES. 06878004 * 06928004 DS 0F ALIGN TO FULL WORD BOUNDARY 06978004 SMFRCD11 EQU * HEADER SEGMENT 07028004 SMF11LEN DS BL2'0' RECORD LENGTH 07078004 SMF11SEG DS BL2'0' SEGMENT DESCRIPTOR 07128004 SMF11FLG DC BL1'0' HEADER FLAG BYTE 07178004 SMF11RTY DC BL1'0' RECORD TYPE 11 07228004 SMF11TME DC BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 07278004 SMF11DTE DC PL4'0000' DATE IN PACKED DEC. FORM: OOYYDDDF 07328004 SMF11SID DC CL4' ' SYSTEM IDENTIFICATION Y02901 07378004 SMF11LN DC BL2'0' LENGTH OF THIS FIELD PLUS REST OF RECORD 07428004 SMF11DEV DS 0C DEVICES BEING REMOVED FROM I/O CONFIGURATION 07478004 * 07528004 * FOR EACH DEVICE BEING REMOVED, THERE IS A 07578004 * FOUR BYTE ENTRY HAVING THE FOLLOWING FORMAT: 07628004 * BYTE O-DEVICE CLASS 07678004 * 1-UNIT TYPE 07728004 * 2-CHANNEL ADDRESS 07778004 * 3-UNIT ADDRESS 07828004 SMF11VDV EQU X'80' VIRTUAL INDICATOR @Y30AQPF 07878004 AGO .CONTB 07928004 .IFAS014 ANOP 07978004 EJECT 08028004 * THIS RECORD WRITTEN WHEN A USER'S DATA SET IS CLOSED OR PROCESSED 08078004 * BY EOV. LENGTH IS VARIABLE, MINIMUM OF 288 BYTES. 08128004 * RECORD TYPE: 14-DATA SET OPENED FOR INPUT/RDBACK 08178004 * 15-DATA SET OPENED FOR OUTPUT/INOUT/OUTIN/UPDAT 08228004 DS 0F ALIGN TO FULL WORD BOUNDARY 08278004 SMF14HDR EQU * HEADER SEGMENT FOR RECORD TYPE 14/15 08328004 SMF14LEN DS BL2'0' RECORD LENGTH 08378004 SMF14SEG DS BL2'0' SEGMENT DESCRIPTOR 08428004 SMF14FLG DS BL1'0' HEADER FLAG BYTE 08478004 SMF14RTY DS BL1'0' RECORD TYPE 14 08528004 SMF14TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 08578004 SMF14DTE DS PL4'0000' DATE, PACKED/DEC FORM; 00YYDDDF 08628004 SMF14SID DS CL4' ' SYSTEM ID Y02901 08678004 SMF14JBN DS CL8' ' JOB NAME 08728004 SMF14RST DS BL4'0' READER START TIME 08778004 SMF14RSD DS PL4'0000' READER START DATE, PK/DEC FORM: 00YYDDDF 08828004 SMF14UID DS CL8' ' USERID 08878004 SMF14RIN DS BL2'0' RECORD INDICATORS: 08928004 SMF14RV0 EQU 128 RESERVED 08978004 SMF14EOV EQU 64 RECORD WRITTEN BY EOV 09028004 SMF14DAD EQU 32 DASD DEVICE 09078004 SMF14TDS EQU 16 TEMPORARY DATA SET 09128004 SMF14DDA EQU 8 DCBDSORG = DA 09178004 SMF14IS EQU 4 DCBDSORG = IS 09228004 SMF14JIS EQU 2 JFCDSORG = IS 09278004 SMF14VIO EQU 1 VIO DATA SET ACCESS Y02132 09328004 * BITS 8 - 15 RESERVED 09378004 SMF14SDC DS BL1'0' SIZE OF DCB/DEB SEGMENT 09428004 SMF14NUC DS BL1'0' NO. UCB SEGMENTS 09478004 SMF14SUC DS BL1'0' SIZE OF EACH UCB SEGMENT 09528004 SMF14SET DS BL1'0' SIZE OF EXTENSION SEGMENT 09578004 SMF14RV1 DS BL4'0' RESERVED 09628004 SMFTIOT EQU * TIOT SEGMENT (FROM DD ENTRY) 09678004 SMFTIOE1 DS BL1'0' TIOELNGH 09728004 SMFTIOE2 DS BL1'0' TIOESSTA 09778004 SMFTIOE3 DS BL1'0' TIOEWTCT 09828004 SMFTIOE4 DS BL1'0' TIOELINK 09878004 SMFTIOE5 DS CL8' ' TIOEDDNM 09928004 SMFTIOE6 DS BL3'0' TIOEJFCB 09978004 SMFTIOE7 DS BL1'0' TIOESTTC 10028004 * 10078004 SMFJFCB1 DS XL176'0' JFCB SEGMENT (ENTIRE JFCB) 10128004 * 10178004 SMFDCBDE EQU * DCB/DEB SEGMENT (TAPE AND DASD) 10228004 SMFDCBOR DS BL2'0' DCBDSORG 10278004 SMFDCBRF DS BL1'0' DCBRECFM 10328004 SMFDCBMF DS BL2'0' DCBMACRF 10378004 SMFDCBFL DS BL1'0' DCBOFLGS 10428004 SMFDCBOP DS BL1'0' DCBOPTCD 10478004 SMF14RV2 DS BL1'0' RESERVED 10528004 SMFDEBFL DS BL1'0' DEBOFLGS 10578004 SMFDEBOP DS BL1'0' DEBOPATB 10628004 SMFDEBVL DS BL2'0' DEBVOLSQ 10678004 SMFTDDEX EQU * TAPE DCB/DEB EXTENSION 10728004 SMFDCBBL DS BL4'0' DCBBLKCT 10778004 SMFDSSNO DS BL6'0' DATA SET SERIAL NUMBER 10828004 SMF14RV3 DS BL2'0' RESERVED 10878004 ORG SMFTDDEX 10928004 SMF14NTU DS BL4'0' NUMBER OF TRACKS USED(LAST TTR-FROM DCBFDAD) 10978004 * PS ORGANIZATION ONLY (TTR0) 11028004 SMF14NTR DS BL4'0' NUMBER OF TRACKS RELEASED BY DADSM RELSE RTN 11078004 SMF14NER DS BL1'0' NUMBER OF EXTENTS RELEASED 11128004 SMF14RV4 DS BL3'0' RESERVED 11178004 SMF14UCB EQU * UCB SEGMENT(ONE FOR EACH UCB FOR THE DATA SET) 11228004 SMFUCBCH DS BL1'0' UCBCHA 11278004 SMFUCBUA DS BL1'0' UCBUA 11328004 SMFSRTEV DS BL6'0' SRTEVOLI 11378004 SMFUCBTY DS BL4'0' UCBTYP 11428004 SMFSRTES DS BL1'0' SRTESTAB 11478004 SMF14NEX DS BL1'0' NUMBER EXTENTS 11528004 SMF14RV5 DS BL2'0' RESERVED 11578004 SMFEXCP DS BL4'0' EXCP COUNT 11628004 SMFTAPEX EQU * SMF TAPE EXTENSION 11678004 * THIS SECTION DESCRIBES THE UCB TAPE EXTENSION SEGMENT 11728004 SMFSRTEF DS BL2'0' SRTEFSCT 11778004 SMFSRTEQ DS BL2'0' SRTEFSEQ 11828004 ORG SMFTAPEX 11878004 * THIS SECTION DESCRIBES THE UCB DASD EXTENSION SEGMENT 11928004 SMF14NTA DS BL4'0' NUMBER TRACKS ALLOCATED 11978004 SMF14UCE EQU * UCB SEGMENT END Y01901 12028004 ORG SMF14UCB 12078004 * 12128004 SMFISAMX EQU * ISAM EXTENSION SEG.(FOR DCBDSORG = IS) 12178004 SMF14RV6 DS BL2'0' RESERVED 12228004 SMFDCBMA DS BL1'0' DCBMAC 12278004 SMFDCBNL DS BL1'0' DCBNLEV 12328004 SMFDCBR3 DS BL4'0' DCBRORG3 12378004 SMFDCBNR DS BL4'0' DCBNREC 12428004 SMFDCBR2 DS BL2'0' DCBRORG2 12478004 SMFDCBNO DS BL2'0' DCBNOREC 12528004 SMFDCBR1 DS BL2'0' DCBRORG1 12578004 SMF14RV7 DS BL1'0' RESERVED 12628004 SMFDEBNI DS BL1'0' DEBNIEE 12678004 SMFDEBNP DS BL1'0' DEBNPEE 12728004 SMFDEBNO DS BL1'0' DEBNOEE 12778004 SMFNCYLS DS BL2'0' # CYL'S IN INDEPENDENT INDEX AREA 12828004 SMFNPCYL DS BL2'0' NUMBER OF CYL'S IN PRIME AREA 12878004 SMFNOCYL DS BL2'0' NUMBER OF CYL'S IN INDEPENDENT OVFL AREA 12928004 ORG SMFISAMX 12978004 AGO .CONTB 13028004 .IFAS017 ANOP 13078004 EJECT 13128004 * THIS RECORD WRITTEN WHEN A USER'S DATA SET IS SCRATCHED. 13178004 * LENGTH IS VARIABLE, MINIMUM 96. 13228004 DS 0F ALIGN TO FULL WORD BOUNDARY 13278004 SMF17HDR EQU * HEADER SEGMENT FOR RECORD TYPE17(SCRATCH) 13328004 SMF17LEN DS BL2'0' RECORD LENGTH 13378004 SMF17SEG DS BL2'0' SEGMENT DESCRIPTOR 13428004 SMF17FLG DS BL1'0' HEADER FLAG BYTE 13478004 SMF17RTY DS BL1'0' RECORD TYPE 17 13528004 SMF17TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 13578004 SMF17DTE DS PL4'0000' DATE, PACKED/DEC FORM; 00YYDDDF 13628004 SMF17SID DS CL4' ' SYSTEM ID Y02901 13678004 SMF17JBN DS CL8' ' JOB NAME 13728004 SMF17RST DS BL4'0' READER START TIME 13778004 SMF17RSD DS PL4'0000' READER START DATE, PK/DEC FORM: 00YYDDDF 13828004 SMF17UID DS CL8' ' USERID 13878004 SMF17RIN DS BL2'0' RECORD INDICATORS: ALL BITS RESERVED(0) 13928004 SMF17DSN DS CL44' ' DSNAME 13978004 SMF17RV1 DS BL3'0' RESERVED 14028004 SMF17NVL DS BL1'0' N, # VOL SERS 14078004 * VOLUME SERIAL ENTRY (ONE FOR EACH VOLUME) 14128004 SMF17RV2 DS BL2'0' RESERVED 14178004 SMF17FVL DS CL6' ' FIRST VOL SER # (SRTEVOLI) 14228004 SMF17LNV EQU *-SMF17RV2 LENGTH OF VOL SER ENTRY 14278004 ORG SMF17RV2 14328004 AGO .CONTB 14378004 .IFAS018 ANOP 14428004 EJECT 14478004 * THIS RECORD IS WRITTEN WHEN A USER'S DATA SET IS RENAMED. 14528004 * LENGTH IS VARIABLE, MINIMUM OF 140. 14578004 DS 0F ALIGN TO FULL WORD BOUNDARY 14628004 SMF18HDR EQU * HEADER SEGMENT FOR RECORD TYPE18(RENAME) 14678004 SMF18LEN DS BL2'0' RECORD LENGTH 14728004 SMF18SEG DS BL2'0' SEGMENT DESCRIPTOR 14778004 SMF18FLG DS BL1'0' HEADER FLAG BYTE 14828004 SMF18RTY DS BL1'0' RECORD TYPE 18 14878004 SMF18TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 14928004 SMF18DTE DS PL4'0000' DATE, PACKED/DEC FORM; 00YYDDDF 14978004 SMF18SID DS CL4' ' SYSTEM ID Y02901 15028004 SMF18JBN DS CL8' ' JOB NAME 15078004 SMF18RST DS BL4'0' READER START TIME 15128004 SMF18RSD DS PL4'0000' READER START DATE, PK/DEC FORM: 00YYDDDF 15178004 SMF18UID DS CL8' ' USERID 15228004 SMF18RIN DS BL2'0' RECORD INDICATORS: ALL BITS RESERVED(0) 15278004 SMF18ODS DS CL44' ' OLD DSNAME 15328004 SMF18NDS DS CL44' ' NEW DSNAME 15378004 SMF18RV1 DS BL3'0' RESERVED 15428004 SMF18NVL DS BL1'0' N, THE # VOL SERS 15478004 * VOLUME SERIAL ENTRY (ONE FOR EACH ENTRY) 15528004 SMF18RV2 DS BL2'0' RESERVED 15578004 SMF18FVL DS CL6' ' FIRST VOL SER # (SRTEVOLI) 15628004 SMF18LNV EQU *-SMF18RV2 LENGTH OF VOL SER ENTRY 15678004 ORG SMF18RV2 15728004 AGO .CONTB 15778004 .IFAS019 ANOP 15828004 EJECT 15878004 * THIS RECORD IS WRITTEN AT IPL, HALT EOD AND SWITCH SMF FOR EACH 15928004 * DASD VOLUME ONLINE. ALSO WRITTEN FOR EACH DASD VOLUME DEMOUNTED. 15978004 * LENGTH IS 64 BYTES. 16028004 DS 0F ALIGN TO FULL WORD BOUNDARY 16078004 SMF19HDR EQU * HEADER SEGMENT FOR RECORD TYPE19(LSPACE) 16128004 SMF19LEN DS BL2'0' RECORD LENGTH 16178004 SMF19SEG DS BL2'0' SEGMENT DESCRIPTOR 16228004 SMF19FLG DS BL1'0' HEADER FLAG BYTE 16278004 SMF19RTY DS BL1'0' RECORD TYPE 19 16328004 SMF19TME DS BL4'0' TOD, USING TIME MACRO W/BIN. INTVL. 16378004 SMF19DTE DS PL4'0000' DATE, PK/DEC. FORM: 00YYDDDF 16428004 SMF19SID DS CL4' ' SYSTEM IDENTIFICATION Y02901 16478004 SMF19RV1 DS BL2'0' RESERVED 16528004 SMF19VOL DS CL6' ' VOLUME SERIAL # 16578004 SMF19OID DS CL10' ' OWNER ID 16628004 SMF19DEV DS BL4'0' DEVICE TYPE 16678004 SMF19VTC DS BL5'0' VTOC ADDRESS 16728004 SMF19VTI DS BL1'0' DS4VTOCI 16778004 SMF19NDS DS BL2'0' # DSCB'S 16828004 SMF19DSR DS BL2'0' # FORMAT0 DSCB'S 16878004 SMF19NAT DS BL2'0' # UNUSED ALTERNATE TRACKS 16928004 SMF19SPC DS BL4'0' TOTAL # UNALLOCATED CYL'S AND TRKS 16978004 SMF19LEX DS BL4'0' # CYL'S AND TRKS IN LARGEST UNALLOCATED EXT. 17028004 SMF19NUE DS BL2'0' # UNALLOCATED EXTENTS 17078004 SMF19RV2 DS BL2'0' RESERVED 17128004 SMF19CUU DS BL2'0' CHANNEL AND UNIT ADDRESS A40793 17178004 SMF19IND DS BL2'0' DASD MODULE ID OR DRIVE NUMBER A40793 17228004 * INDICATING PHYSICAL IDENTITY OF DEVICES 17278004 * HAVING MOVEABLE ADDRESS PLUGS 17328004 AGO .CONTB 17378004 MEND */ 17428004 %IFAL07: IF IFAR07='' %THEN %GOTO IFAL08; 17478004 DCL 1 SMFRCD07 BASED(SMF07PTR) BDY(WORD), 17528004 /* RECORD TYPE 7 - DATA LOST CONDITION */ 17578004 /* WRITTEN BY SMF WRITER AFTER A SMF DATA SET BECOMES AVAILABLE */ 17628004 /* AFTER NEITHER SMF DATA SET WAS AVAILABLE */ 17678004 3 SMF7LEN FIXED(15), /* RDW RECORD LENGTH */ 17728004 3 SMF7SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 17778004 3 SMF7FLG BIT(8), /* OPERATING ENVIRONMENT */ 17828004 3 SMF7RTY FIXED(8), /* RECORD TYPE 7 */ 17878004 3 SMF7TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 17928004 3 SMF7DTE CHAR(4), /* DATE RECORD WRITTEN */ 17978004 3 SMF7SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 18028004 3 SMF7NRO FIXED(15), /* # OF RECORDS NOT WRITTEN */ 18078004 3 SMF7STM FIXED(31) BDY(BYTE), /* STARTING TOD RECORDS LOST */ 18128004 3 SMF7STD CHAR(4); /* STARTING DATE RECORDS LOST */ 18178004 %IFAL08: IF IFAR08='' %THEN %GOTO IFAL09; 18228004 DCL 1 SMFRCD08 BASED(SMF08PTR) BDY(WORD), 18278004 /* RECORD TYPE 8 - DEVICE CONFIGURATION */ 18328004 /* WRITTEN DURING SMF INITIALIZATION */ 18378004 3 SMF8LEN FIXED(15), /* RDW RECORD LENGTH */ 18428004 3 SMF8SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 18478004 3 SMF8FLG BIT(8), /* OPERATING ENVIRONMENT */ 18528004 3 SMF8RTY FIXED(8), /* RECORD TYPE 8 */ 18578004 3 SMF8TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 18628004 3 SMF8DTE CHAR(4), /* DATE RECORD WRITTEN */ 18678004 3 SMF8SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 18728004 3 SMF8LENN FIXED(15); /* LGTH OF DEVICE SECTION PLUS 18778004 THESE 2 BYTES */ 18828004 /* DEVICE ENTRY FOR EACH DEVICE 18878004 ONLINE AT IPL */ 18928004 DCL 1 SMF8IODV BASED BDY(WORD), /* DEVICE ENTRY SECTION */ 18978004 3 SMF8DUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 19028004 3 SMF8CHA CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 19078004 4 SMF8VDV BIT(1); /* VIRTUAL INDICATOR @Y30AQPF*/ 19128004 %IFAL09: IF IFAR09='' %THEN %GOTO IFAL10; 19178004 DCL 1 SMFRCD09 BASED(SMF09PTR) BDY(WORD), 19228004 /* RECORD TYPE 9 - VARY ONLINE */ 19278004 /* WRITTEN WHEN A DEVICE IS VARIED ONLINE */ 19328004 3 SMF9LEN FIXED(15), /* RDW RECORD LENGTH */ 19378004 3 SMF9SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 19428004 3 SMF9FLG BIT(8), /* OPERATING ENVIRONMENT */ 19478004 3 SMF9RTY FIXED(8), /* RECORD TYPE 9 */ 19528004 3 SMF9TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 19578004 3 SMF9DTE CHAR(4), /* DATE RECORD WRITTEN */ 19628004 3 SMF9SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 19678004 3 SMF9LENN FIXED(15); /* LGTH OF DEVICE SECTION + THESE 2*/ 19728004 DCL 1 SMF9DVAD BASED BDY(WORD), /* DEVICE SECTION, ONE ENTRY FOR 19778004 EACH DEVICE VARIED ONLINE */ 19828004 3 SMF9DUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 19878004 3 SMF9CUA CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 19928004 4 SMF9VDV BIT(1); /* VIRTUAL INDICATOR @Y30AQPF*/ 19978004 %IFAL10: IF IFAR10='' %THEN %GOTO IFAL11; 20028004 DCL 1 SMFRCD10 BASED(SMF10PTR) BDY(WORD), 20078004 /* RECORD TYPE 10 - ALLOCATION RECOVERY */ 20128004 /* WRITTEN AFTER SUCCESSFUL DEVICE ALLOCATION RECOVERY */ 20178004 3 SMF10LEN FIXED(15), /* RDW RECORD LENGTH */ 20228004 3 SMF10SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 20278004 3 SMF10FLG BIT(8), /* OPERATING ENVIRONMENT */ 20328004 3 SMF10RTY FIXED(8), /* RECORD TYPE 10 */ 20378004 3 SMF10TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 20428004 3 SMF10DTE CHAR(4), /* DATE RECORD WRITTEN */ 20478004 3 SMF10SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 20528004 3 SMF10JBN CHAR(8), /* JOB NAME */ 20578004 3 SMF10RST FIXED(31) BDY(BYTE), /*READER START TIME(.01 SEC)*/ 20628004 3 SMF10RSD CHAR(4), /* READER START DATE */ 20678004 3 SMF10UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 20728004 3 SMF10LN FIXED(15); /* LGTH OF DEVICE SECTION + THESE 2*/ 20778004 DCL 1 SMF10DEV BASED BDY(WORD), /* DEVICE SECTION, ONE ENTRY FOR 20828004 EACH DEVICE ALLOCATED */ 20878004 3 SMF10DUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 20928004 3 SMF10CUA CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 20978004 4 SMF10VDV BIT(1); /* VIRTUAL INDICATOR @Y30AQPF*/ 21028004 %IFAL11: IF IFAR11='' %THEN %GOTO IFAL12; 21078004 DCL 1 SMFRCD11 BASED(SMF11PTR) BDY(WORD), 21128004 /* RECORD TYPE 11 - VARY OFFLINE */ 21178004 /* WRITTEN WHEN A DEVICE IS VARIED OFFLINE */ 21228004 3 SMF11LEN FIXED(15), /* RDW RECORD LENGTH */ 21278004 3 SMF11SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 21328004 3 SMF11FLG BIT(8), /* OPERATING ENVIRONMENT */ 21378004 3 SMF11RTY FIXED(8), /* RECORD TYPE 11 */ 21428004 3 SMF11TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 21478004 3 SMF11DTE CHAR(4), /* DATE RECORD WRITTEN */ 21528004 3 SMF11SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 21578004 3 SMF11LN FIXED(15); /* LGTH OF DEVICE SECTION + THESE 2*/ 21628004 DCL 1 SMF11DEV BASED BDY(WORD), /* DEVICE SECTION, ONE ENTRY FOR 21678004 EACH DEVICE VARIED OFFLINE */ 21728004 3 SMF11DUT CHAR(2), /* DEVICE CLASS AND UNIT TYPE */ 21778004 3 SMF11CUA CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 21828004 4 SMF11VDV BIT(1); /* VIRTUAL INDICATOR @Y30AQPF*/ 21878004 %IFAL12: ; 21928004 %IFAL14: IF IFAR14^='' %THEN %GOTO IFAL15; 21978004 %IF IFAR15='' %THEN %GOTO IFAL16; 22028004 %IFAL15: ; 22078004 DCL 1 SMFRCD14 BASED(SMF14PTR) BDY(WORD), 22128004 /* RECORD TYPE 14 AND 15 - DATA SET CLOSED OR END-OF-VOLUME */ 22178004 /* WRITTEN WHEN A USER'S DATA SET IS CLOSED OR PROCESSED BY EOV */ 22228004 /* TYPE 14 IF DATA SET WAS OPENED FOR INPUT OR RDBACK */ 22278004 /* TYPE 15 IF DATA SET WAS OPENED FOR OUTPUT/INOUT/OUTIN/UPDATE */ 22328004 3 SMF14LEN FIXED(15), /* RDW RECORD LENGTH */ 22378004 3 SMF14SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 22428004 3 SMF14FLG BIT(8), /* OPERATING ENVIRONMENT */ 22478004 3 SMF14RTY FIXED(8), /* RECORD TYPE 14 OR 15 */ 22528004 3 SMF14TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 22578004 3 SMF14DTE CHAR(4), /* DATE RECORD WRITTEN */ 22628004 3 SMF14SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 22678004 3 SMF14JBN CHAR(8), /* JOB NAME */ 22728004 3 SMF14RST FIXED(31) BDY(BYTE), /*READER START TIME(.01 SEC)*/ 22778004 3 SMF14RSD CHAR(4), /* READER START DATE */ 22828004 3 SMF14UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 22878004 5 SMF14UID CHAR(8), 22928004 3 SMF14RIN BIT(16), /* RECORD INDICATORS */ 22978004 5 SMF14RV0 BIT(1), /* RESV */ 23028004 5 SMF14EOV BIT(1), /* RECORD WRITTEN BY EOV */ 23078004 5 SMF14DAD BIT(1), /* DASD DEVICE */ 23128004 5 SMF14TDS BIT(1), /* TEMPORARY DATA SET */ 23178004 5 SMF14DDA BIT(1), /* DCBDSORG = DA */ 23228004 5 SMF14IS BIT(1), /* DCBDSORG = IS */ 23278004 5 SMF14JIS BIT(1), /* JFCDSORG = IS */ 23328004 5 SMF14VIO BIT(1), /* VIO DATA SET */ 23378004 5 * BIT(8), /* RESV */ 23428004 3 SMF14SDC FIXED(8), /* SIZE OF DCB/DEB SEGMENT */ 23478004 3 SMF14NUC FIXED(8), /* # OF UCB SEGMENTS */ 23528004 3 SMF14SUC FIXED(8), /* SIZE OF EACH UCB SEGMENT */ 23578004 3 SMF14SET FIXED(8), /* SIZE OF EXTENSION SEGMENT */ 23628004 3 SMF14RV1 CHAR(4), /* RESV */ 23678004 3 SMFTIOT CHAR(16), /* TIOT SEGMENT FROM DD ENTRY */ 23728004 5 SMFTIOE1 FIXED(8), /* TIOELNGH */ 23778004 5 SMFTIOE2 FIXED(8), /* TIOESSTA */ 23828004 5 SMFTIOE3 FIXED(8), /* TIOEWTCT */ 23878004 5 SMFTIOE4 FIXED(8), /* TIOELINK */ 23928004 5 SMFTIOE5 CHAR(8), /* TIOEDDNM */ 23978004 5 SMFTIOE6 CHAR(3), /* TIOEJFCB */ 24028004 5 SMFTIOE7 CHAR(1), /* TIOESTTC */ 24078004 3 SMFJFCB1 CHAR(176), /* JFCB SEGMENT (ENTIRE JFCB) */ 24128004 3 SMFDCBDE CHAR(24) BDY(WORD), /* DCB/DEB SGMT (TAPE/DASD) */ 24178004 5 SMFDCBOR CHAR(2), /* DCBDSORG */ 24228004 5 SMFDCBRF CHAR(1), /* DCBRECFM */ 24278004 5 SMFDCBMF CHAR(2), /* DCBMACRF */ 24328004 5 SMFDCBFL CHAR(1), /* DCBOFLGS */ 24378004 5 SMFDCBOP CHAR(1), /* DCBOPTCD */ 24428004 5 SMF14RV2 CHAR(1), /* RESV */ 24478004 5 SMFDEBFL CHAR(1), /* DEBOFLGS */ 24528004 5 SMFDEBOP CHAR(1), /* DEBOPATB */ 24578004 5 SMFDEBVL FIXED(15), /* DEBVOLSQ */ 24628004 5 * CHAR(12) BDY(WORD), 24678004 7 SMFTDDEX CHAR(0), /* TAPE DCB/DEB EXTENSION */ 24728004 9 SMFDCBBL FIXED(31) BDY(BYTE), /* DCBBLKCT */ 24778004 9 SMFDSSNO CHAR(6), /* DATA SET SERIAL NUMBER */ 24828004 9 SMF14RV3 CHAR(2), /* RESV */ 24878004 7 SMFDDDEX CHAR(12), /* DASD DCB/DEB EXTENSION */ 24928004 9 SMF14NTU FIXED(31) BDY(BYTE), /*TRACKS USED, HIGHEST TTR 24978004 PS ONLY (TTR0) */ 25028004 9 SMF14NTR FIXED(31) BDY(BYTE), /* TRACKS RELEASED */ 25078004 9 SMF14NER FIXED(8), /* EXTENTS RELEASED */ 25128004 9 SMF14RV4 CHAR(3); /* RESV */ 25178004 DCL 1 SMF14UCB BASED BDY(HWORD), /* UCB SEGMENT, ONE FOR EACH UCB*/ 25228004 3 SMFUCBCH CHAR(1), /* UCBCHA */ 25278004 3 SMFUCBUA CHAR(1), /* UCBUA */ 25328004 3 SMFSRTEV CHAR(6), /* SRTEVOLI */ 25378004 3 SMFUCBTY CHAR(4), /* UCBTYP */ 25428004 3 SMFSRTES CHAR(1), /* SRTESTAB */ 25478004 3 SMF14NEX FIXED(8), /* # OF EXTENTS */ 25528004 3 SMF14RV5 CHAR(2), /* RESV */ 25578004 3 SMFEXCP FIXED(31) BDY(BYTE), /* EXCP COUNT */ 25628004 3 SMFTAPEX CHAR(0), /* SMF TAPE EXTENSION */ 25678004 5 SMFSRTEF CHAR(2), /* SRTEFSCT */ 25728004 5 SMFSRTEQ CHAR(2), /* SRTEFSEQ */ 25778004 3 SMF14NTA FIXED(31) BDY(BYTE); /* DASD EXT, # TRACKS ALLOC */ 25828004 DCL 1 SMFISAMX BASED BDY(HWORD), /* ISAM EXTENSION */ 25878004 3 SMF14RV6 CHAR(2), /* RESV */ 25928004 3 SMFDCBMA CHAR(1), /* DCBMAC */ 25978004 3 SMFDCBNL FIXED(8), /* DCBNLEV */ 26028004 3 SMFDCBR3 CHAR(4), /* DCBRORG3 */ 26078004 3 SMFDCBNR FIXED(31) BDY(BYTE), /* DCBNREC */ 26128004 3 SMFDCBR2 CHAR(2), /* DCBRORG2 */ 26178004 3 SMFDCBNO FIXED(15), /* DCBNOREC */ 26228004 3 SMFDCBR1 CHAR(2), /* DCBRORG1 */ 26278004 3 SMF14RV7 CHAR(1), /* RESV */ 26328004 3 SMFDEBNI CHAR(1), /* DEBNIEE */ 26378004 3 SMFDEBNP CHAR(1), /* DEBNPEE */ 26428004 3 SMFDEBNO CHAR(1), /* DEBNOEE */ 26478004 3 SMFNCYLS FIXED(15), /* # CYLS IN INDEPENDENT INDEX AREA*/ 26528004 3 SMFNPCYL FIXED(15), /* ## CYLS IN PRIME AREA */ 26578004 3 SMFNOCYL FIXED(15); /* # CYLS IN INDEPENDENT OVFL AREA */ 26628004 %IFAL16: ; 26678004 %IFAL17: IF IFAR17='' %THEN %GOTO IFAL18; 26728004 DCL 1 SMFRCD17 BASED(SMF17PTR) BDY(WORD), 26778004 /* RECORD TYPE 17 - DATA SET SCRATCH */ 26828004 /* WRITTEN WHENEVER A USER'S DATA SET IS SCRATCHED */ 26878004 3 SMF17LEN FIXED(15), /* RDW RECORD LENGTH */ 26928004 3 SMF17SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 26978004 3 SMF17FLG BIT(8), /* OPERATING ENVIRONMENT */ 27028004 3 SMF17RTY FIXED(8), /* RECORD TYPE 17 */ 27078004 3 SMF17TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 27128004 3 SMF17DTE CHAR(4), /* DATE RECORD WRITTEN */ 27178004 3 SMF17SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 27228004 3 SMF17JBN CHAR(8), /* JOB NAME */ 27278004 3 SMF17RST FIXED(31) BDY(BYTE), /*READER START TIME(.01 SEC)*/ 27328004 3 SMF17RSD CHAR(4), /* READER START DATE */ 27378004 3 SMF17UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 27428004 5 SMF17UID CHAR(8), 27478004 3 SMF17RIN BIT(16), /* RESV */ 27528004 3 SMF17DSN CHAR(44), /* DATA SET NAME */ 27578004 3 SMF17RV1 CHAR(3), /* RESV */ 27628004 3 SMF17NVL FIXED(8); /* # OF VOLUME SECTIONS FOLLOWING */ 27678004 DCL 1 * BASED CHAR(8), /* VOLUME SECTION, ONE FOR EACH 27728004 VOLUME CONTAINING PART OF THE DS*/ 27778004 3 SMF17RV2 CHAR(2), /* RESV */ 27828004 3 SMF17FVL CHAR(6); /* VOLUME SERIAL NUMBER */ 27878004 %IFAL18: IF IFAR18='' %THEN %GOTO IFAL19; 27928004 DCL 1 SMFRCD18 BASED(SMF18PTR) BDY(WORD), 27978004 /* RECORD TYPE 18 - DATA SET RENAME */ 28028004 /* WRITTEN WHENEVER A DATA SET IS RENAMED */ 28078004 3 SMF18LEN FIXED(15), /* RDW RECORD LENGTH */ 28128004 3 SMF18SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 28178004 3 SMF18FLG BIT(8), /* OPERATING ENVIRONMENT */ 28228004 3 SMF18RTY FIXED(8), /* RECORD TYPE 18 */ 28278004 3 SMF18TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 28328004 3 SMF18DTE CHAR(4), /* DATE RECORD WRITTEN */ 28378004 3 SMF18SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 28428004 3 SMF18JBN CHAR(8), /* JOB NAME */ 28478004 3 SMF18RST FIXED(31) BDY(BYTE), /* READER START TOD(.01 SEC)*/ 28528004 3 SMF18RSD CHAR(4), /* READER START DATE */ 28578004 3 SMF18UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 28628004 5 SMF18UID CHAR(8), 28678004 3 SMF18RIN BIT(16), /* RESV */ 28728004 3 SMF18ODS CHAR(44), /* OLD DATA SET NAME */ 28778004 3 SMF18NDS CHAR(44), /* NEW DATA SET NAME */ 28828004 3 SMF18RV1 CHAR(3), /* RESV */ 28878004 3 SMF18NVL FIXED(8); /* # OF VOLUME SECTIONS FOLLOWING */ 28928004 DCL 1 * BASED CHAR(8), /* VOLUME SECTION, ONE FOR EACH 28978004 VOLUME CONTAINING PART OF THE DS*/ 29028004 3 SMF18RV2 CHAR(2), /* RESV */ 29078004 3 SMF18FVL CHAR(6); /* VOLUME SERIAL NUMBER */ 29128004 %IFAL19: IF IFAR19='' %THEN %GOTO IFALR2; 29178004 DCL 1 SMFRCD19 BASED(SMF19PTR) BDY(WORD), 29228004 /* RECORD TYPE 19 - DIRECT ACCESS VOLUME */ 29278004 /* WRITTEN FOR EACH DASD VOLUME ONLINE AT IPL AND WHEN A HALT OR */ 29328004 /* SWITCH COMMAND IS PROCESSED. ALSO FOR EACH DASD VOLUME DEMOUNTED.*/ 29378004 3 SMF19LEN FIXED(15), /* RDW RECORD LENGTH */ 29428004 3 SMF19SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 29478004 3 SMF19FLG BIT(8), /* OPERATING ENVIRONMENT */ 29528004 3 SMF19RTY FIXED(8), /* RECORD TYPE 19 */ 29578004 3 SMF19TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 29628004 3 SMF19DTE CHAR(4), /* DATE RECORD WRITTEN */ 29678004 3 SMF19SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 29728004 3 SMF19RV1 CHAR(2), /* RESV */ 29778004 3 SMF19VOL CHAR(6), /* VOLUME SERIAL NUMBER */ 29828004 3 SMF19OID CHAR(10), /* OWNER ID */ 29878004 3 SMF19DEV CHAR(4), /* DEVICE TYPE */ 29928004 3 SMF19VTC CHAR(5), /* VTOC ADDRESS */ 29978004 3 SMF19VTI BIT(8), /* DS4VTOCI */ 30028004 3 SMF19NDS FIXED(15), /* # DSCB'S */ 30078004 3 SMF19DSR FIXED(15), /* # FORMAT0 DSCB'S */ 30128004 3 SMF19NAT FIXED(15), /* # UNUSED ALTERNATE TRACKS */ 30178004 3 SMF19SPC CHAR(4), /* # UNALOCATED CYL'S AND TRK'S */ 30228004 3 SMF19LEX CHAR(4), /* # CYL+TRK IN LARGEST UNALLC EXT */ 30278004 3 SMF19NUE FIXED(15), /* # UNALLOCATED EXTENTS */ 30328004 3 SMF19RV2 CHAR(2), /* RESV */ 30378004 3 SMF19CUU CHAR(2), /* CHANNEL AND UNIT ADDRESS */ 30428004 3 SMF19IND CHAR(2); /*MODULE ID OR DRIVE # FOR PHYSICAL 30478004 ID OF MOVEABLE ADDR PLUG DEVICES */ 30528004 %IFALR2: ; 30578004