ASR Logic to increase the size of &SEC

Products

• Allocate DASD Space and Placement

Issue/Introduction

Some users want the size of &SEC to be increased as the number of extents grow.

Environment

Release:

Component:

Resolution

Here is an example of ASRs for the EXTEND Environment so that the value of &SEC can be increased as the data set grows.
The math calculation can be easily changed based on your environment and the control you want to employ.

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

   IF &EXTENDVOL = 'NEW' AND &SEC_ORIG NE 0 THEN SET &SEC = &SEC_ORIG

/* EOV MAY NOT BE INVOKED IF CANDIDATE VOLS IN ALLOCATION. */

/* SO THE ABOVE RULE WILL PERFORM THE NEEDED "SET &SEC...". */

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

   IF &EXTENTS GT 5 AND &EXTENTS LE 8 THEN

    DO

     SET &SEC = &SEC * 2

     WRITE 'EXTENTS = &EXTENTS SEC = &SEC'

    END

   IF &EXTENTS GT 8 AND &EXTENTS LE 12 THEN

    DO

     SET &SEC = &SEC * 3

     WRITE 'EXTENTS = &EXTENTS SEC = &SEC'

    END

   IF &EXTENTS GT 12 AND &EXTENTS LE 15 THEN

    DO

     SET &SEC = &SEC * 4

     WRITE 'EXTENTS = &EXTENTS SEC = &SEC'

    END

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

   IF &DSNTYPE NE 'LARGE' AND &SEC > 0 THEN

    DO

     IF &SPACTYPE = 'CYL' AND &SEC > 4369 THEN

      DO

       SET &SEC = 4369

      END

     IF &SPACTYPE = 'TRK' AND &SEC > 65535 THEN

      DO

       SET &SEC = 65535

      END

    END

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

    SET &RB = 10 /* REDUCE PRIMARY */

    SET &MP = 50 /* DON'T REDUCE BELOW THIS PERCENT */

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

Additional Information

If you have any questions, please contact CA/Broadcom Tech Support