This example illustrates how to use CA Earl to compute the optimum tape block size for each data set, and produce a report that lists the data sets whose block size is not within 25 percent of the optimum block size. A similar example resides as member TMEBLKS in the CA 1 Source library.
! ! TMS REPORT-TMEBLKS DSNS NOT WITHIN 25% OF OPTIMUM BLKSIZE (32K) ! ( SIMILAR TO OLD EARL01 REPORT ) ! VOLUME AND DSNB RECORDS ! ! ! USE CA-Earl TO GENERATE A REPORT OF DSN'S WHOSE BLKSIZES ! ARE NOT WITHIN 25% OF OPTIMUM (32760). ! DEF WORK1 (B 07.3) = 0.000 DEF P_OPT (B 09.1) = 0.0 '% OF' 'OPTIMUM' DEF WORK3 (B 10.0) = 0 'OPTIMUM' 'BLKSIZE' DEF FIRST_SW (X 1) = ' ' COPY EARLDEFS SET TYPRUN = R_SEQUENTIAL GET TAPEDB GOTO EOJ TAPEDB = 'E' IF SCRATCH_IND = 'N' OR ACTIND = 'Y' THEN GOTO CONTINUE ELSE GOTO START ENDIF CONTINUE: IF FIRST_SW = ' ' THEN SET FIRST_SW = '*' SET FUNCTION = 'RETURN_DATE' CALL CTSEDATE USING FUNCTION,RUNDATE,RUNTIME SET FUNCTION = 'TO_EXPLODED' CALL CTSEDATE USING FUNCTION,P_EXP_DATA,RUNDATE ENDIF
(continued on next page)
! ! COMPUTE OPTIMUM BLKSIZE (BASED ON 32760 AND LRECL) ! IF LRECL > 0 THEN SET WORK3 = 32760 / LRECL SET WORK3 = WORK3 * LRECL ELSE GOTO START ENDIF ! ! COMPUTE PERCENTAGE OF OPTIMUM ! IF BLKSIZE > 0 THEN SET WORK1 = BLKSIZE SET WORK1 = (WORK1 / WORK3) SET WORK1 = WORK1 * 100 SET P_OPT = WORK1 ELSE GOTO START ENDIF SET FUNCTION = 'TO_EXTERNAL' CALL CTSEDATE USING FUNCTION,P_CDATE,CDATE,DATE_FMT REPORT TITLE @1 P_EXP_DAYNAM @11 ',' @13 P_EXP_MONNAM @24 P_EXP_DD @26 ',' @28 P_EXP_YYYY @32 '.' @33 P_EXP_DDD @50 COMPANY_NAME @115 'PAGE' @125 PAGENUMBER TITLE @1 ' ' TITLE @1 'TMS REPORT-TMEBLKS' 3 'DSNS NOT WITHIN 25% OF OPTIMUM BLKSIZE (32K)' SELECT WORK1 < 75 CONTROL DSN VOLSEQ PRINT VOLSER VOLSEQ FILESEQ DSN BLKSIZE WORK3 P_OPT LRECL CJOB P_CDATE END
THURSDAY, JULY 21, 2005.200 Y O U R C O M P A N Y N A M E PAGE 1 TMS REPORT-TMEBLKS DSNS NOT WITHIN 25% OF OPTIMUM BLKSIZE (32K) ---------------------------------------------------------------------------------------------------------------------------------- VOLSER VOL FILE DATA SET NAME BLOCK OPTIMUM % OF REC CREATE CREATE SEQ SEQ SIZE BLKSIZE OPTIMUM LEN JOBNAME DATE ------------------------------------------------------------------------------------------------------------------------------------ 374477 1 1 AZ.M1000MX1 12144 32736 37.0 44 RESRCJMA YYYY/224 370548 1 1 AZ.M1000MX2 12000 32720 36.6 80 RESRCJMA YYYY/224 328510 1 1 AZ.M1111ML1 12375 32670 37.8 165 RESRCJMA YYYY/260 366971 1 1 AZ.M1323ML1 12000 32720 36.6 80 RESRCJMA YYYY/142 328074 1 1 AZ.M1343ML1 12000 32720 36.6 80 RESRCJMA YYYY/260 370226 1 1 AZ.M1452ML0 12122 32538 37.2 319 RESRCJAB YYYY/095 344443 1 1 AZ.M1552ML9 12122 32538 37.2 319 RESRCJMA YYYY/260 336716 1 1 AZ.OPS60ML1 6160 32720 18.8 80 OPSCCT60 YYYY/013 332857 1 1 AZ.OPS66ML1 16250 32500 50.0 325 OPSCCJ66 YYYY/056 384019 1 1 AZ.OPS66ML1 16250 32500 50.0 325 OPSCCJ60 YYYY/015 326347 1 1 AZ.OPS66ML1 16250 32500 50.0 325 OPSCCT60 YYYY/013 360133 1 1 AZ.OPS69ME1 1596 32718 4.8 133 OPSCCJ66 YYYY/056 330975 1 1 AZ.USR39ML9 23500 31725 74.0 1175 USRCCJ40 YYYY/082 355137 1 1 AZ.USR39ML9 23500 31725 74.0 1175 USRCCJ40 YYYY/021 332588 1 1 AZ.YES31MLA 23500 31725 74.0 1175 YESCCJ42 YYYY/237 371005 1 1 AZ.YES31MLA 4900 32340 15.1 980 YESCCJTY YYYY/322 321313 1 1 AZ.YES31MLA 23500 31725 74.0 1175 YESCCJ31 YYYY/241 322214 1 1 AZ.YES31MLA 23500 31725 74.0 1175 YESCCJ31 YYYY/259 326002 1 1 AZ.YES31MLA 23500 31725 74.0 1175 YESCCJ31 YYYY/259 321112 1 1 AZ.YES42MLA 23500 31725 74.0 1175 YESCCJ42 YYYY/151 322212 1 1 AZ.YES42MLA 23500 31725 74.0 1175 YESCCJ55 YYYY/087 338672 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/012 338200 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/012 331088 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/012 331512 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ80 YYYY/191 339720 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/083 332275 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/079 335502 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/083 336981 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/008 334254 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ55 YYYY/200 334686 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/079 325864 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/343 323562 1 1 AZ.YES50MLA 23500 31725 74.0 1175 YESCCJ50 YYYY/010 332931 1 1 AZ.YES50ML9 5875 31725 18.5 1175 YESCCJ99 YYYY/150 335467 1 1 AZ.YES50ML9 5875 31725 18.5 1175 YESCCJ99 YYYY/010 337262 1 1 AZ.YES50ML9 5875 31725 18.5 1175 YESCCJ99 YYYY/135 380155 1 1 AZ.YES55ME1 1596 32718 4.8 133 YESCCJ55 YYYY/090 331293 1 1 AZ.YES55ME1 1596 32718 4.8 133 YESCCJ55 YYYY/087 329444 1 1 BR.D11AHM8E 15464 30928 50.0 3866 GSEC0J6A YYYY/009 330814 1 1 BR.D12AHM8G 15464 30928 50.0 3866 GSEC0J6A YYYY/022 332400 1 1 BR.D12AHM9E 15848 31696 50.0 7924 GSEC0J6A YYYY/021 335247 1 1 BR.D12AHM9F 15848 31696 50.0 7924 GSEC0J6A YYYY/018 323274 1 1 BR.D12AHM9G 15848 31696 50.0 7924 GSEC0TFX YYYY/253 322289 1 1 BR.D12AHN02 15464 30928 50.0 3866 PCTLBJ6X YYYY/291 325568 1 1 BR.D12AHN07 15848 31696 50.0 7924 PCTX0J67 YYYY/276 328000 1 1 BR.D12BACK1.G0038V00 21725 31600 68.7 1975 CORP0JMV YYYY/252 322201 1 1 BR.D12BACK1.G0039V00 21725 31600 68.7 1975 CORP0JTC YYYY/252 334852 1 1 BR.D12BACK1.G0040V00 21725 31600 68.7 1975 CORP0JH2 YYYY/255 330368 1 1 BR.D12BACK1.G0041V00 21725 31600 68.7 1975 CORP0J31 YYYY/281 328831 1 1 BR.D22ATM95 9432 32226 29.2 786 CORP0MEN YYYY/040
Example 1 - Data Sets Not Within 25 Percent of Optimum Block
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|