*%GOTO SDGPLS2; /* MSSC STAGING DRIVE GROUP MACRO @G18MB04 02352000 MACRO 02354000 IEZSDGLS 02356000 ***************************************************************@G18MB04 02358000 * @G18MB04 02358100 * MACCOMP @G18MB04 SC1DP/BLOO19 @G18MB04 02358400 * MACSTAT @G18MB04 75.344 @G18MB04 02358800 * @G18MB04 02359200 * *****MAPPING MACRO ***** @G18MB04 02359600 * @G18MB04 02359700 * NAME SDGLS MSSC STAGING DRIVE GROUP LIST @G18MB04 02359800 * @G18MB04 02359900 * FUNCTION - THIS IS A LIST OF UNIT NAMES, ONE FOR EACH @G18MB04 02363200 * POSSIBLE STAGING DRIVE GROUP THAT COULD EXIST @G18MB04 02365200 * IN A MASS STORAGE SYSTEM. @G18MB04 02365600 * THESE ARE SORTED IN ORDER OF BEST CHOICE @G18MB04 02366000 * (LEAST BUSY) TO WORST CHOICE. @G18MB04 02366400 * @G18MB04 02366500 * STATUS - CHANGE LEVEL = 0 @G18MB04 02366600 * @G18MB04 02369900 ***************************************************************@G18MB04 02370300 SDGLS DSECT MSSC STAGING DRIVE GROUP LIST @G18MB04 02371900 SDGNNBBB DS 30CL8 UNIT NAMES FOR SDGS @G18MB04 02372300 SDGLGTH EQU *-SDGLS @G18MB04 02372400 ORG SDGNNBBB @G18MB04 02372700 SDG DS CL3 EBCDIC LITERALS SDG @G18MB04 02373100 SDGNN DS CL2 EBCDIC NUMBER OF SDG @G18MB04 02373200 SDGBBB DS CL3 EBCDIC BLANKS @G18MB04 02373300 ORG SDGBBB @G18MB04 02373400 SDGIX DS AL3 FOR USE IN MSSC SORT @G18MB04 02378600 MEND @G18MB04 02380600 **/ 02381000 *%SDGPLS2:; /*@G18MB04*/ 02382600 */***********************************************************@G18MB04*/ 02383000 */* MACCOMP @G18MB04 SC1DP/BL0019 @G18MB04*/ 02384100 */* MACSTAT @G18MB04 75.344 @G18MB04*/ 02389400 */* @G18MB04*/ 02394700 */* ***** MAPPING MACRO ***** @G18MB04*/ 02400000 */* @G18MB04*/ 02410000 */* NAME SDGLS MSSC STAGING DRIVE GROUP LIST @G18MB04*/ 02420000 */* @G18MB04*/ 02430000 */* FUNCTION - THIS IS A LIST OF UNIT NAMES, ONE FOR EACH @G18MB04*/ 02460000 */* POSSIBLE STAGING DRIVE GROUP THAT COULD EXIST @G18MB04*/ 02470000 */* IN A MASS STORAGE SYSTEM. @G18MB04*/ 02480000 */* THESE ARE SORTED IN ORDER OF BEST CHOICE @G18MB04*/ 02490000 */* (LEAST BUSY) TO WORST CHOICE. @G18MB04*/ 02490400 */* @G18MB04*/ 02492400 */* STATUS - CHANGE LEVEL = 0 @G18MB04*/ 02494400 */* @G18MB04*/ 02500000 */***********************************************************@G18MB04*/ 02550000 * DCL 1 SDGLS BASED, /*STAGING DRIVE GROUP LIST @G18MB04*/ 02600000 * 2 SDGNNBBB(30) CHAR(8), /* UNIT NAMES FOR SDGS @G18MB04*/ 02650000 * 3 SDG CHAR(3), /* EBCDIC LITERALS SDG @G18MB04*/ 02700000 * 3 SDGNN CHAR(2), /* EBCDIC NUMBER OF SDG @G18MB04*/ 02750000 * 3 SDGBBB CHAR(3), /* EBCDIC BLANKS @G18MB04*/ 02800000 * 4 SDGIX FIXED(24); /* FOR USE IN MSSC SORT @G18MB04*/ 02850000 *%SDGLGTH='LENGTH(SDGLS)'; /* SDG LIST LENGTH @G18MB04*/ 05050000