* %GOTO IFAL62; /* 00000104 MACRO 00000204 &NAME IFASMFR6 &RECTYPE 00000304 .* * * 00000404 .* * MACMEAN IFASMFR6 MEANS SYSTEM MANAGEMENT FACILITY RECORD MAPPING * 00000504 .* * MACCOMP Y-2 SC102/BL27P * 00000604 .* * MACSTAT Y-2 73298/42020 * 00000704 .* * METHOD OF ACCESS * 00000804 .* * PL/S - INCLUDE MACRO FROM LIBRARY * 00000904 .* * EXAMPLE - %INCLUDE SYSLIB(IFASMFR6) * 00001004 .* * * 00001104 .* * THIS MACRO EXPANDS RECORDS 55-69. * 00001204 .* * * 00001304 .* * 00001404 .* THIS IS AN SMF MACRO WHICH BUILDS SMF RECORDS 55-69. THE REQUIRED 00001504 .* FORMAT IS - 00001604 .* 00001704 .* IFASMFR6 &RECTYPE 00001804 .********************************************************************** 00001904 AIF (&RECTYPE EQ 62).IFAS062 Y02113 00002004 AIF (&RECTYPE EQ 63).IFAS063 00002104 AIF (&RECTYPE EQ 64).IFAS064 Y02113 00002204 AIF (&RECTYPE EQ 67).IFAS067 00002304 AIF (&RECTYPE EQ 68).IFAS068 Y02113 00002404 AIF (&RECTYPE EQ 69).IFAS069 Y02113 00002504 .E5 ANOP 00002604 SPACE 3 00002704 MNOTE 4,'&RECTYPE INVALID RECORD TYPE SPECIFIED' 00002804 .CONTB ANOP 00002904 MEXIT 00003004 .IFAS062 ANOP Y02113 00003104 EJECT Y02113 00003204 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 62 (VSAM DATA SETY02113 00003304 * OPEN RECORD). RECORD LENGTH IS VARIABLE. MINIMUM OF 148 BYTES. Y02113 00003404 DS 0F ALIGN TO FULL WORD BOUNDRY Y02113 00003504 SMFRCD62 EQU * HEADER SEGMENT Y02113 00003604 SMF62LEN DS BL2'0' RECORD LENGTH Y02113 00003704 SMF62SEG DS BL2'0' SEGMENT DESCRIPTOR Y02113 00003804 SMF62FLG DC BL1'0' HEADER FLAG BYTE Y02113 00003904 SMF62RTY DC BL1'0' RECORD TYPE 62 Y02113 00004004 SMF62TME DC BL4'0' TOD, USING FORMAT FROM TIME Y02113 00004104 * MACRO WITH BIN INTERVAL Y02113 00004204 SMF62DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM Y02113 00004304 * 00YYDDDF (F IS THE SIGN) Y02113 00004404 SMF62SID DC CL4' ' SYSTEM IDENTIFICATION Y02113 00004504 SMF62JBN DC CL8' ' JOBNAME Y02113 00004604 SMF62RST DC BL4'0' READER START TIMER (.01 SEC) Y02113 00004704 SMF62RSD DC PL4'0000' READER START DATE Y02113 00004804 SMF62UIF DC CL8' ' USER IDENTIFICATION FIELD Y02113 00004904 SMF62IND DC BL4'0' OPEN STATUS INDICATOR Y02113 00005004 * BIT MEANING WHEN SET Y02113 00005104 * BIT 0 - OPEN SUCCESSFUL Y02113 00005204 * BIT 1 - SECURITY VIOLATION Y02113 00005304 * (INVALID PASSWORD) Y02113 00005404 * BITS 2-31 - RESERVED Y02113 00005504 SMF62CNM DC CL44' ' CATALOG DATA SET NAME Y02113 00005604 SMF62CVS DC CL6' ' CATALOG VOLUME SERIAL NUMBER Y02113 00005704 SMF62DNM DC CL44' ' DATA SET NAME Y02113 00005804 SMF62VCT DC BL2'0' VOLUME COUNT Y02113 00005904 SMF62VLT EQU * VOLUME LIST Y02113 00006004 * THE FOLLOWING ENTRY IS CREATED FOR EACH VOLUME Y02113 00006104 SMF62VSR DC CL6' ' VOLUME SERIAL Y02113 00006204 SMF62DTY DC BL4'0' DEVICE TYPE Y02113 00006304 ORG SMF62VLT Y02113 00006404 AGO .CONTB Y02113 00006504 .IFAS063 ANOP 00006604 EJECT 00006704 * THIS RECORD IS WRITTEN AFTER A VSAM CLUSTER OR COMPONENT IS DEFINED 00006804 * AND WHEN THE DEFINITION IS ALTERED. 00006904 * 00007004 DS 0F ALIGN TO FULL WORD BOUNDARY 00007104 SMFRCD63 EQU * HEADER SEGMENT 00007204 SMF63LEN DS BL2'0' RECORD LENGTH 00007304 SMF63SEG DS BL2'0' SEGMENT DESCRIPTOR 00007404 SMF63FLG DS BL1'0' HEADER FLAG BYTE 00007504 SMF63RTY DS BL1'0' RECORD TYPE 63 00007604 SMF63TME DS BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN. INTVL. 00007704 SMF63DTE DS PL4'0000' DATE IN PACKED DECIMAL FORM: OOYYDDDF 00007804 SMF63SID DS CL2' ' SYSTEM IDENTIFICATION 00007904 SMF63SMI DS CL2' ' SYSTEM MODEL IDENTIFIER 00008004 SMF63JBN DS CL8' ' JOB NAME 00008104 SMF63RST DS BL4'0' READER START TIME (IN 100THS SECONDS) 00008204 SMF63RSD DS PL4'0000' READER START DATE 00008304 SMF63UIF DS CL8' ' USER IDENTIFICATION FIELD 00008404 SMF63FDT DS BL1'0' FUNCTION AND DATA SET TYPE INDICATOR 00008504 * BIT0 - NEW DEFINITION 00008604 * BIT1 - ALTERED DEFINITION 00008704 * BIT2-7 - RESERVED 00008804 SMF63TYP DS BL1'0' TYPE OF ENTRY 00008904 * BIT0 - CLUSTER 00009004 * BIT1 - VSAM DATA COMPONENT 00009104 * BIT2 - INDEX COMPONENT 00009204 * BIT3 - CATALOG 00009304 * BIT4 - NON-VSAM DATA SET 00009404 * BIT5 - GENERATION DATA GROUP 00009504 * BIT6 - ALIAS 00009604 * BIT7 - RESERVED 00009704 SMF63NSZ DS BL2'0' SIZE OF NEW CATALOG RECORD 00009804 SMF63OSZ DS BL2'0' SIZE OF OLD CATALOG RECORD 00009904 SMF63CNM DS CL44' ' NAME OF CATALOG IN WHICH ENTRY IS DEFINED 00010004 SMF63ENM DS CL44' ' ENTRY NAME 00010104 SMF63NCR DS 0H NEW CATALOG RECORD 00010204 ORG SMF63NCR 00010304 SMF63OCR DS 0H OLD CATALOG RECORD 00010404 AGO .CONTB 00010504 .IFAS064 ANOP Y02113 00010604 EJECT Y02113 00010704 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 64 (VSAM DATA Y02113 00010804 * SET STATUS AT CLOSE OR EOV TIME). RECORD LENGTH IS VARIABLE. Y02113 00010904 * MINIMUM OF 254 BYTES. Y02113 00011004 DS 0F ALIGN TO FULLWORD BOUNDARY Y02113 00011104 SMFRCD64 EQU * HEADER SEGMENT Y02113 00011204 SMF64LEN DS BL2'0' RECORD LENGTH Y02113 00011304 SMF64SEG DS BL2'0' SEGMENT DESCRIPTOR Y02113 00011404 SMF64FLG DC BL1'0' HEADER FLAG BYTE Y02113 00011504 SMF64RTY DC BL1'0' RECORD TYPE 64 Y02113 00011604 SMF64TME DC BL4'0' TOD, USING FORMAT FROM TIME Y02113 00011704 * MACRO WITH BIN INTERVAL Y02113 00011804 SMF64DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM Y02113 00011904 * 00YYDDDF (F IS THE SIGN) Y02113 00012004 SMF64SID DC CL4' ' SYSTEM IDENTIFICATION Y02113 00012104 SMF64JBN DC CL8' ' JOBNAME Y02113 00012204 SMF64RST DC BL4'0' READER START TIME (IN 100THS Y02113 00012304 * SECONDS) Y02113 00012404 SMF64RSD DC PL4'0000' READER START DATE Y02113 00012504 SMF64UIF DC CL8' ' USER IDENTIFICATION FIELD Y02113 00012604 SMF64RIN DC BL1'0' RECORDING INDICATORS Y02113 00012704 * BIT MEANING WHEN SET Y02113 00012804 * BIT 0 - RECORD WRITTEN BY CLOSE 00012904 * BIT 1 - RECORD WRITTEN BY EOV- 00013004 * VOLUME SWITCH Y02113 00013104 * BIT 2 - RECORD WRITTEN BY EOV- 00013204 * OUT OF SPACE Y02113 00013304 * BITS 3-7 RESERVED Y02113 00013404 SMF64DTY DC BL1'0' DATA SET TYPE Y02113 00013504 * BIT MEANING WHEN SET Y02113 00013604 * BIT 0 - DATA SET Y02113 00013704 * BIT 1 - INDEX Y02113 00013804 * BITS 2-7 - RESERVED Y02113 00013904 SMF64CNM DC CL44' ' CATALOG NAME Y02113 00014004 SMF64DNM DC CL44' ' DATA SET NAME Y02113 00014104 SMF64NTR DC BL2'0' NUMBER OF TRACKS REQUIRED Y02113 00014204 SMF64CHR DC BL4'0' CURRENT HIGH RBA Y02113 00014304 SMF64ESL DC BL2'0' EXTENT SEGMENT LENGTH Y02113 00014404 SMF64FEX EQU * EXTENT TABLE - ONE PER VOLUMEY02113 00014504 * ONLINE AT TIME RECORD WRITTENY02113 00014604 SMF64FCC DC BL4'0' FROM CCHH Y02113 00014704 SMF64TCC DC BL4'0' TO CCHH Y02113 00014804 SMF64VSN DC CL6' ' VOLUME SERIAL NUMBER Y02113 00014904 SMF64CUU DC BL2'0' CHANNEL AND UNIT CCUU Y02113 00015004 SMF64IND DC BL2'0' MODULE/SPINDLE ID Y02113 00015104 SMF64UTY DC BL4'0' UNIT TYPE - UCBTYPE Y02113 00015204 SMF64RV1 DC CL4' ' RESERVED Y02113 00015304 ORG SMF64FEX Y02113 00015404 SMF64STS EQU * DATA SET STATISTICS AT OPEN Y02113 00015504 * TIME Y02113 00015604 SMF64SLN DC BL4'0' STATISTICS SEGMENT LENGTH Y02113 00015704 SMF64NIL DC BL4'0' NUMBER INDEX LEVEL Y02113 00015804 SMF64NEX DC BL4'0' NUMBER EXTENTS Y02113 00015904 SMF64NLR DC BL4'0' NUMBER LOGICAL RECORDS Y02113 00016004 SMF64NDE DC BL4'0' NUMBER DELETES Y02113 00016104 SMF64NIN DC BL4'0' NUMBER INSERTS Y02113 00016204 SMF64NUP DC BL4'0' NUMBER UPDATES Y02113 00016304 SMF64NRE DC BL4'0' NUMBER RETRIEVES Y02113 00016404 SMF64NFS DC BL4'0' NUMBER FREE SPACE-UNUSED CI'SY02113 00016504 SMF64NCS DC BL4'0' NUMBER CI SPLITS Y02113 00016604 SMF64NAS DC BL4'0' NUMBER CA SPLITS Y02113 00016704 SMF64NEP DC BL4'0' NUMBER EXCPS COUNT Y02113 00016804 * DATA SET STATISTICS FOR THIS OPEN Y02113 00016904 SMF64DIL DC BL4'0' NUMBER INDEX LEVEL Y02113 00017004 SMF64DEX DC BL4'0' NUMBER EXTENTS Y02113 00017104 SMF64DLR DC BL4'0' NUMBER LOGICAL RECORDS Y02113 00017204 SMF64DDE DC BL4'0' NUMBER DELETES Y02113 00017304 SMF64DIN DC BL4'0' NUMBER INSERTS Y02113 00017404 SMF64DUP DC BL4'0' NUMBER UPDATES Y02113 00017504 SMF64DRE DC BL4'0' NUMBER RETRIEVES Y02113 00017604 SMF64DFS DC BL4'0' NUMBER FREE SPACE Y02113 00017704 SMF64DCS DC BL4'0' NUMBER CI SPLITS Y02113 00017804 SMF64DAS DC BL4'0' NUMBER CA SPLITS Y02113 00017904 SMF64DEP DC BL4'0' NUMBER EXCPS COUNT Y02113 00018004 SMF64DBS DC BL4'0' PHYSICAL BLOCK SIZE @ZA05513 00018104 SMF64DCI DC BL4'0' CONTROL INTERVAL SIZE @ZA05513 00018204 SMF64DLS DC BL4'0' MAX. LOGICAL RECORD LNG. @ZA05513 00018304 SMF64DKL DC BL2'0' KEY LENGTH @ZA25191 00018403 SMF64DDN DC CL8' ' DD NAME @ZA05513 84299903 AGO .CONTB Y02113 84349903 .IFAS067 ANOP 84399903 EJECT 84449903 * THIS RECORD IS WRITTEN WHEN A VSAM CATALOG ENTRY IS DELETED 84499903 * 84549903 DS 0F 84599903 SMFRCD67 EQU * HEADER SEGMENT 84649903 SMF67LEN DS BL2'0' RECORD LENGTH 84699903 SMF67SEG DS BL2'0' SEGMENT DESCRIPTOR 84749903 SMF67FLG DS BL1'0' HEADER FLAG BYTE 84799903 SMF67RTY DS BL1'0' RECORD TYPE 67 84849903 SMF67TME DS BL4'0' TOD USING FORMAT FROM TIME MACRO W/BIN INTERVL 84899903 SMF67DTE DS PL4'0000' DATE IN PACKED DECIMAL FORMAT: 00YYDDDF 84949903 SMF67SID DS CL2' ' SYSTEM IDENTIFICATION 84999903 SMF67SMI DS CL2' ' SYSTEM MODEL IDENTIFIER 85049903 SMF67JBN DS CL8' ' JOB NAME 85099903 SMF67RST DS BL4'0' READER START TIME (IN 100THS SECONDS) 85149903 SMF67RSD DS PL4'0000' READER START DATE 85199903 SMF67UIF DS CL8' ' USER IDENTIFICATION FIELD 85249903 SMF67FDT DS BL1'0' FUNCTION AND DATA SET TYPE INDICATOR 85299903 * BIT0 - UNCATALOGED 85349903 * BIT1 - SCRATCHED 85399903 * BIT 2-7 - RESERVED 85449903 SMF67IOD DS BL1'0' INDICATOR OF OBJECT DELETED 85499903 * BIT0 - CLUSTER 85549903 * BIT1 - DATA COMPONENT 85599903 * BIT2 - INDEX COMPONENT 85649903 * BIT3 - CATALOG 85699903 * BIT4 - NON-VSAM DATA SET 85749903 * BIT5 - GENERATION DATA GROUP 85799903 * BIT6 - ALIAS 85849903 * BIT7 - RESERVED 85899903 SMF67CNM DS CL44' ' NAME OF CATALOG IN WHICH ENTRY WAS DEFINED 85949903 SMF67DEN DS CL44' ' NAME OF ENTRY THAT WAS DELETED 85999903 SMF67RSZ DS BL2'0' SIZE OF CATALOG RECORD THAT DEFINED THE ENTRY 86049903 SMF67CRC DS 0H CATALOG RECORD 86099903 AGO .CONTB 86149903 .IFAS068 ANOP Y02113 86199903 EJECT Y02113 86249903 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 68 (VSAM DATA Y02113 86299903 * SET RENAMED). RECORD LENGTH IS 170 BYTES Y02113 86349903 DS 0F ALIGN TO FULLWORD BOUNDARY Y02113 86399903 SMFRCD68 EQU * HEADER SEGMENT Y02113 86449903 SMF68LEN DS BL2'0' RECORD LENGTH Y02113 86499903 SMF68SEG DS BL2'0' SEGMENT DESCRIPTOR Y02113 86549903 SMF68FLG DC BL1'0' HEADER FLAG BYTE Y02113 86599903 SMF68RTY DC BL1'0' RECORD TYPE 68 Y02113 86649903 SMF68TME DC BL4'0' TOD USING FORMAT FROM TIME Y02113 86699903 * MACRO WITH BIN INTERVAL Y02113 86749903 SMF68DTE DC PL4'0000' DATE IN PACKED DECIMAL FORMATY02113 86799903 * 00YYDDDF (F IS THE SIGN) Y02113 86849903 SMF68SID DC CL4' ' SYSTEM IDENTIFICATION Y02113 86899903 SMF68JBN DC CL8' ' JOBNAME Y02113 86949903 SMF68RST DC BL4'0' READER START TIME (IN 100THS Y02113 86999903 * SECONDS) Y02113 87049903 SMF68RSD DC PL4'0000' READER START DATE Y02113 87099903 SMF68UIF DC CL8' ' USER IDENTIFICATION FIELD Y02113 87149903 SMF68CNM DC CL44' ' CATALOG NAME Y02113 87199903 SMF68ONM DC CL44' ' OLD DATA SET NAME Y02113 87249903 SMF68NNM DC CL44' ' NEW DATA SET NAME Y02113 87299903 AGO .CONTB Y02113 87349903 .IFAS069 ANOP Y02113 87399903 EJECT Y02113 87449903 * THIS DSECT DEFINES THE FORMAT FOR RECORD TYPE 69 (VSAM DATA Y02113 87499903 * SPACE DEFINED OR DELETED). RECORD LENGTH IS 102 BYTES. Y02113 87549903 DS 0F ALIGN TO FULLWORD BOUNDARY Y02113 87599903 SMFRCD69 EQU * HEADER SEGMENT Y02113 87649903 SMF69LEN DS BL2'0' RECORD LENGTH Y02113 87699903 SMF69SEG DS BL2'0' SEGMENT DESCRIPTOR Y02113 87749903 SMF69FLG DC BL1'0' HEADER FLAG BYTE Y02113 87799903 SMF69RTY DC BL1'0' RECORD TYPE 69 Y02113 87849903 SMF69TME DC BL4'0' TOD, USING FORMAT FROM TIME Y02113 87899903 * MACRO WITH BIN INTERVAL Y02113 87949903 SMF69DTE DC PL4'0000' DATE IN PACKED DECIMAL FORM Y02113 87999903 * 00YYDDDF (F IS THE SIGN) Y02113 88049903 SMF69SID DC CL4' ' SYSTEM IDENTIFICATION Y02113 88099903 SMF69JBN DC CL8' ' JOBNAME Y02113 88149903 SMF69RST DC BL4'0' READER START TIME IN 100THS Y02113 88199903 * SECONDS Y02113 88249903 SMF69RSD DC PL4'0000' READER START DATE Y02113 88299903 SMF69UIF DC CL8' ' USER IDENTIFICATION FIELD Y02113 88349903 SMF69CUU DC BL2'0' CHANNEL AND UNIT CCUU Y02113 88399903 SMF69IND DC BL2'0' MODULE/SPINDLE ID Y02113 88449903 SMF69NDS DC BL2'0' NUMBER OF EXTENT ON VOLUME Y02113 88499903 SMF69NUC DC BL2'0' NUMBER UNALLOCATED CYLS ON Y02113 88549903 * VOLUME Y02113 88599903 SMF69NUT DC BL2'0' NUMBER UNALLOCATED TRKS. ON Y02113 88649903 * VOLUME-NOT IN UNAL CYL'S Y02113 88699903 SMF69LNC DC BL2'0' LARGEST # FREE CONTG. CYLS Y02113 88749903 SMF69LNT DC BL2'0' LARGEST # FREE CONTG. TRKS Y02113 88799903 SMF69CNM DC CL44' ' CATALOG NAME Y02113 88849903 SMF69VSR DC CL6' ' VOLUME SERIAL Y02113 88899903 AGO .CONTB Y02113 88949903 MEND */ 88999903 %IFAL62: IF IFAR62='' %THEN %GOTO IFAL63; 89049903 DCL 1 SMFRCD62 BASED(SMF62PTR) BDY(WORD), 89099903 /* RECORD TYPE 62 - VSAM DATA SET OPENED */ 89149903 /* WRITTEN AFTER THE SUCCESSFUL OR UNSUCCESSFUL OPENING OF A VSAM DS*/ 89199903 /* OR INDEX */ 89249903 3 SMF62LEN FIXED(15), /* RDW RECORD LENGTH */ 89299903 3 SMF62SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 89349903 3 SMF62FLG BIT(8), /* OPERATING ENVIRONMENT */ 89399903 3 SMF62RTY FIXED(8), /* RECORD TYPE 62 */ 89449903 3 SMF62TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 89499903 3 SMF62DTE CHAR(4), /* DATE RECORD WRITTEN */ 89549903 3 SMF62SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 89599903 3 SMF62JBN CHAR(8), /* JOB NAME */ 89649903 3 SMF62RST FIXED(31) BDY(BYTE), /* TOD READER START(.01 SEC)*/ 89699903 3 SMF62RSD CHAR(4), /* READER START DATE */ 89749903 3 SMF62UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 89799903 3 SMF62IND BIT(32), /* INDICATORS */ 89849903 5 SMF62OOK BIT(1), /* OPEN WAS SUCCESSFUL */ 89899903 5 SMF62SVL BIT(1), /* SECURITY VIOLATION */ 89949903 5 * BIT(30), /* RESV */ 89999903 3 SMF62CNM CHAR(44), /* CATALOG DATA SET NAME */ 90049903 3 SMF62CVS CHAR(6), /* CATALOG VOLUME SERIAL NUMBER */ 90099903 3 SMF62DNM CHAR(44), /* DATA SET NAME */ 90149903 3 SMF62VCT FIXED(15); /* # OF VOLUMES */ 90199903 DCL 1 SMF62VLT BASED BDY(BYTE), /* VOLUME LIST, ENTRY FOR EACH 90249903 VOLUME OF DATA SET */ 90299903 3 SMF62VSR CHAR(6), /* VOLUME SERIAL NUMBER */ 90349903 3 SMF62DTY CHAR(4); /* DEVICE TYPE CODE */ 90399903 %IFAL63: IF IFAR63='' %THEN %GOTO IFAL64; 90449903 DCL 1 SMFRCD63 BASED(SMF63PTR) BDY(WORD), 90499903 /* RECORD TYPE 63 - VSAM CLUSTER OR COMPONENT CATALOGED */ 90549903 /* WRITTEN AFTER A VSAM CLUSTER OR COMPONENT IS DEFINED, AND WHEN */ 90599903 /* THE DEFINITION IS ALTERED. */ 90649903 3 SMF63LEN FIXED(15), /*RDW RECORD LENGTH */ 90699903 3 SMF63SEG FIXED(15), /*RDW SEGMENT DESCRIPTOR */ 90749903 3 SMF63FLG BIT(8), /*OPERATING ENVIRONMENT */ 90799903 3 SMF63RTY FIXED(8), /*RECORD TYPE 63 */ 90849903 3 SMF63TME FIXED(31) BDY(BYTE), /*TOD RECORD WRITTEN */ 90899903 3 SMF63DTE CHAR(4), /*DATE RECORD WRITTEN */ 90949903 3 SMF63SID CHAR(2), /*SYSTEM ID FROM INSTALLATION */ 90999903 3 SMF63SMI CHAR(2), /*SYSTEM MODEL IDENTIFIER */ 91049903 3 SMF63JBN CHAR(8), /*JOB NAME */ 91099903 3 SMF63RST FIXED(31) BDY(BYTE), /*READER START TOD(.01 SEC) */ 91149903 3 SMF63RSD CHAR(4), /*READER START DATE */ 91199903 3 SMF63UIF CHAR(8), /*USER IDENTIFICATION FIELD */ 91249903 3 SMF63FDT BIT(8), /* FUNCTION AND DS TYPE INDICATOR 91299903 BIT MEANING WHEN SET 91349903 BIT0 - NEW DEFINITION 91399903 BIT1 - ALTERED DEFINITION 91449903 BIT2-7 - RESERVED */ 91499903 3 SMF63TYP BIT(8), /*TYPE OF ENTRY 91549903 BIT MEANING WHEN SET 91599903 BIT0 - CLUSTER 91649903 BIT1 - VSAM DATA COMPONENT 91699903 BIT2 - INDEX COMPONENT 91749903 BIT3 - CATALOG 91799903 BIT4 - NON-VSAM DATA SET 91849903 BIT5 - GENERATION DATA GROUP 91899903 BIT6 - ALIAS 91949903 BIT7 - RESERVED */ 91999903 3 SMF63NSZ FIXED(15), /*SIZE OF NEW CATALOG RECORD */ 92049903 3 SMF63OSZ FIXED(15), /*SIZE OF OLD CATALOG RECORD */ 92099903 3 SMF63CNM CHAR(44), /*NAME OF CATLG IN WHICH ENTRY 92149903 IS DEFINED */ 92199903 3 SMF63ENM CHAR(44); /*ENTRY NAME */ 92249903 DCL SMF63NCR BASED; /*NEW CATALOG RECORD */ 92299903 DCL SMF63OCR BASED; /*OLD CATALOG RECORD */ 92349903 %IFAL64: IF IFAR64='' %THEN %GOTO IFAL65; 92399903 DCL 1 SMFRCD64 BASED(SMF64PTR) BDY(WORD), 92449903 /* RECORD TYPE 64 - VSAM CLOSE/EOV STATUS */ 92499903 /* WRITTEN WHEN A VSAM DS IS CLOSED, REACHES EOV OR NO MORE SPACE */ 92549903 /* IS AVAILABLE ON A VOLUME */ 92599903 3 SMF64LEN FIXED(15), /* RDW RECORD LENGTH */ 92649903 3 SMF64SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 92699903 3 SMF64FLG BIT(8), /* OPERATING ENVIRONMENT */ 92749903 3 SMF64RTY FIXED(8), /* RECORD TYPE 64 */ 92799903 3 SMF64TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 92849903 3 SMF64DTE CHAR(4), /* DATE RECORD WRITTEN */ 92899903 3 SMF64SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 92949903 3 SMF64JBN CHAR(8), /* JOB NAME */ 92999903 3 SMF64RST FIXED(31) BDY(BYTE), /* READER START TOD(.01 SEC)*/ 93049903 3 SMF64RSD CHAR(4), /* READER START DATE */ 93099903 3 SMF64UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 93149903 3 SMF64RIN BIT(8), /* RECORD INDICATORS */ 93199903 5 SMF64CLO BIT(1), /* WRITTEN BY CLOSE */ 93249903 5 SMF64VSW BIT(1), /* WRITTEN BY EOV-VOL SWITCH */ 93299903 5 SMF64OSP BIT(1), /* WRITTEN BY EOV-OUT OF SPACE */ 93349903 5 * BIT(5), /* RESV */ 93399903 3 SMF64DTY BIT(8), /* DATA SET TYPE */ 93449903 5 SMF64DTA BIT(1), /* DATA */ 93499903 5 SMF64IDX BIT(1), /* INDEX */ 93549903 5 * BIT(6), /* RESV */ 93599903 3 SMF64CNM CHAR(44), /* CATALOG NAME */ 93649903 3 SMF64DNM CHAR(44), /* DATA SET NAME */ 93699903 3 SMF64NTR FIXED(15), /* # OF TRACKS REQUIRED */ 93749903 3 SMF64CHR CHAR(4), /* CURRENTLY HIGH RBA */ 93799903 3 SMF64ESL FIXED(15); /* EXTENT SEGMENT LENGTH */ 93849903 DCL 1 SMF64FEX BASED, /* EXTENT TABLE, ONE PER VOLUME 93899903 ONLINE AT TIME TYPE 64 WRITTEN */ 93949903 3 SMF64FCC CHAR(4), /* THE FROM CCHH */ 93999903 3 SMF64TCC CHAR(4), /* THE TO CCHH */ 94049903 3 SMF64VSN CHAR(6), /* VOLUME SERIAL NUMBER */ 94099903 3 SMF64CUU CHAR(2), /* CHANNEL AND UNIT CCUU */ 94149903 3 SMF64IND CHAR(2), /* MODULE/SPINDLE ID */ 94199903 3 SMF64UTY CHAR(4), /* UNIT TYPE */ 94249903 3 * CHAR(4); /* RESV */ 94299903 DCL 1 SMF64STS BASED BDY(WORD), /* DATA SET STATISTICS */ 94349903 /* STAT'S AT OPEN TIME */ 94399903 3 SMF64SLN FIXED(31), /* STAT SEGMENT LENGTH */ 94449903 3 SMF64NIL FIXED(31), /* # OF INDEX LEVELS */ 94499903 3 SMF64NEX FIXED(31), /* # OF EXTENTS */ 94549903 3 SMF64NLR FIXED(31), /* # OF LOGICAL RECORDS */ 94599903 3 SMF64NDE FIXED(31), /* # OF DELETES */ 94649903 3 SMF64NIN FIXED(31), /* # OF INSERTS */ 94699903 3 SMF64NUP FIXED(31), /* # OF UPDATES */ 94749903 3 SMF64NRE FIXED(31), /* # OF RETRIEVES */ 94799903 3 SMF64NFS FIXED(31), /* # OF FREE SPACE(UNUSED CI'S) */ 94849903 3 SMF64NCS FIXED(31), /* # OF CI SPLITS */ 94899903 3 SMF64NAS FIXED(31), /* # OF CA SPLITS */ 94949903 3 SMF64NEP FIXED(31), /* # OF EXCPS */ 94999903 /* STAT'S FOR THIS OPEN */ 95049903 3 SMF64DIL FIXED(31), /* # OF INDEX LEVELS */ 95099903 3 SMF64DEX FIXED(31), /* # OF EXTENTS */ 95149903 3 SMF64DLR FIXED(31), /* # OF LOGICAL RECORDS */ 95199903 3 SMF64DDE FIXED(31), /* # OF DELETES */ 95249903 3 SMF64DIN FIXED(31), /* # OF INSERTS */ 95299903 3 SMF64DUP FIXED(31), /* # OF UPDATES */ 95349903 3 SMF64DRE FIXED(31), /* # OF RETRIEVES */ 95399903 3 SMF64DFS FIXED(31), /* # OF FREE SPACE */ 95449903 3 SMF64DCS FIXED(31), /* # OF CI SPLITS */ 95499903 3 SMF64DAS FIXED(31), /* # OF CA SPLITS */ 95549903 3 SMF64DEP FIXED(31), /* # OF EXCPS */ 95599903 3 SMF64DBS FIXED(31), /* PHYSICAL BLOCKSIZE @ZA05513*/ 95649903 3 SMF64DCI FIXED(31), /* CONTROL INTERVAL SIZE @ZA05513*/ 95699903 3 SMF64DLS FIXED(31), /* MAX. LOGICAL REC LENGTH @ZA05513*/ 95749903 3 SMF64DKL FIXED(15), /* KEY LENGTH @ZA25191*/ 95799903 3 SMF64DDN CHAR(8); /* DD NAME @ZA05513*/ 95849903 %IFAL65: ; 95899903 %IFAL67: IF IFAR67='' %THEN %GOTO IFAL68; 95949903 DCL 1 SMFRCD67 BASED(SMF67PTR) BDY(WORD), 95999903 /* RECORD TYPE 67 - VSAM ENTRY DELETED */ 96049903 /* WRITTEN WHEN A VSAM CATALOG ENTRY IS DELETED */ 96099903 3 SMF67LEN FIXED(15), /*RDW RECORD LENGTH */ 96149903 3 SMF67SEG FIXED(15), /*RDW SEGMENT DESCRIPTOR */ 96199903 3 SMF67FLG BIT(8), /*OPERATING ENVIRONMENT */ 96249903 3 SMF67RTY FIXED(8), /*RECORD TYPE 67 */ 96299903 3 SMF67TME FIXED(31) BDY(BYTE), /*TOD RECORD WRITTEN */ 96349903 3 SMF67DTE CHAR(4), /*DATE RECORD WRITTEN */ 96399903 3 SMF67SID CHAR(2), /*SYSTEM ID FROM INSTALLATION */ 96449903 3 SMF67SMI CHAR(2), /*SYSTEM MODEL IDENTIFIER */ 96499903 3 SMF67JBN CHAR(8), /*JOB NAME */ 96549903 3 SMF67RST FIXED(31) BDY(BYTE), /*READER START TOD(.01 SEC) */ 96599903 3 SMF67RSD CHAR(4), /*READER START DATE */ 96649903 3 SMF67UIF CHAR(8), /*USER IDENTIFICATION FIELD */ 96699903 3 SMF67FDT BIT(8), /*FUNCTION AND DS TYPE INDICATOR 96749903 BIT MEANING WHEN SET 96799903 BIT0 - UNCATALOGED 96849903 BIT1 - SCRATCHED 96899903 BIT2-7 - RESERVED */ 96949903 3 SMF67IOD BIT(8), /*INDICATOR OF OBJECT DELETED 96999903 BIT MEANING WHEN SET 97049903 BIT0 - CLUSTER 97099903 BIT1 - DATA COMPONENT 97149903 BIT2 - INDEX COMPONENT 97199903 BIT3 - CATALOG 97249903 BIT4 - NON-VSAM DATA SET 97299903 BIT5 - GENERATION DATA GROUP 97349903 BIT6 - ALIAS 97399903 BIT7 - RESERVED */ 97449903 3 SMF67CNM CHAR(44), /*NAME OF CATALOG IN WHICH ENTRY 97499903 WAS DEFINED */ 97549903 3 SMF67DEN CHAR(44), /*NAME OF ENTRY THAT WAS DELETED */ 97599903 3 SMF67RSZ FIXED(15); /*SIZE OF CATALOG RECORD THAT 97649903 DEFINED THE ENTRY */ 97699903 DCL SMF67CRC BASED BDY(WORD); /*CATALOG RECORD */ 97749903 %IFAL68: IF IFAR68='' %THEN %GOTO IFAL69; 97799903 DCL 1 SMFRCD68 BASED(SMF68PTR) BDY(WORD), 97849903 /* RECORD TYPE 68 - VSAM DATA SET RENAME */ 97899903 /* WRITTEN WHEN A VSAM DATA SET OR INDEX IS RENAMED */ 97949903 3 SMF68LEN FIXED(15), /* RDW RECORD LENGTH */ 97999903 3 SMF68SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 98049903 3 SMF68FLG BIT(8), /* OPERATING ENVIRONMENT */ 98099903 3 SMF68RTY FIXED(8), /* RECORD TYPE 68 */ 98149903 3 SMF68TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 98199903 3 SMF68DTE CHAR(4), /* DATE RECORD WRITTEN */ 98249903 3 SMF68SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 98299903 3 SMF68JBN CHAR(8), /* JOB NAME */ 98349903 3 SMF68RST FIXED(31) BDY(BYTE), /* READER START TOD(.01 SEC)*/ 98399903 3 SMF68RSD CHAR(4), /* READER START DATE */ 98449903 3 SMF68UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 98499903 3 SMF68CNM CHAR(44), /* CATALOG NAME */ 98549903 3 SMF68ONM CHAR(44), /* OLD DATA SET NAME */ 98599903 3 SMF68NNM CHAR(44); /* NEW DATA SET NAME */ 98649903 %IFAL69: IF IFAR69='' %THEN %GOTO IFALR7; 98699903 DCL 1 SMFRCD69 BASED(SMF69PTR) BDY(WORD), 98749903 /* RECORD TYPE 69 - VSAM DATA SPACE DEFINED OR DELETED */ 98799903 /* WRITTEN WHEN A DATA SPACE IS DEFINED OR DELETED */ 98849903 3 SMF69LEN FIXED(15), /* RDW RECORD LWNGTH */ 98899903 3 SMF69SEG FIXED(15), /* RDW SEGMENT DESCRIPTOR */ 98949903 3 SMF69FLG BIT(8), /* OPERATING ENVIRONMENT */ 98999903 3 SMF69RTY FIXED(8), /* RECORD TYPE 69 */ 99049903 3 SMF69TME FIXED(31) BDY(BYTE), /* TOD RECORD WRITTEN */ 99099903 3 SMF69DTE CHAR(4), /* DATE RECORD WRITTEN */ 99149903 3 SMF69SID CHAR(4), /* SYSTEM ID FROM INSTALLATION */ 99199903 3 SMF69JBN CHAR(8), /* JOB NAME */ 99249903 3 SMF69RST FIXED(31) BDY(BYTE), /* READER START TOD(.01 SEC)*/ 99299903 3 SMF69RSD CHAR(4), /* READER START DATE */ 99349903 3 SMF69UIF CHAR(8), /* USER IDENTIFICATION FIELD */ 99399903 3 SMF69CUU CHAR(2), /* CHANNEL AND UNIT CCUU */ 99449903 3 SMF69IND CHAR(2), /* MODULE/SPINDLE ID */ 99499903 3 SMF69NDS FIXED(15), /* # OF EXTENTS ON VOLUME */ 99549903 3 SMF69NUC FIXED(15), /* # UNALLOCATED CYLS ON VOLUME */ 99599903 3 SMF69NUT FIXED(15), /* # UNAL TRKS ON VOL-NOT IN UNAL 99649903 CYLS */ 99699903 3 SMF69LNC FIXED(15), /* LARGEST # FREE CONTG. CYLS */ 99749903 3 SMF69LNT FIXED(15), /* LARGEST # FREE CONTG. TRKS */ 99799903 3 SMF69CNM CHAR(44), /* CATALOG NAME */ 99849903 3 SMF69VSR CHAR(6); /* VOLUME SERIAL NUMBER */ 99899903 %IFALR7: ; 99949903