*%GOTO MNXPLS2; /* MSSC MOUNT LIST EXTENSION MAP @ZDR2048 01150003 MACRO 01150403 IEZMNTXT 01150803 **************************************************************@ZDR2048 01151203 * @ZDR2048 01161203 * MACCOMP @ZDR2048 SC1DP/BL0019 @ZDR2048 01163203 * MACSTAT @ZDR2048 76.113 @ZDR2048 01165203 * @ZDR2048 01175203 * NAME -- MNTXT -- MSSC MOUNT PARAMETER LIST EXTENSION @ZDR2048 01177203 * @ZDR2048 01177603 * FUNCTION -- THIS IS A MAPPING MACRO FOR THE EXTENSION @ZDR2048 01179203 * TO THE MOUNT PARAMETER LIST WHICH MAY ACCOMPANY A @ZDR2048 01179603 * NONSPECIFIC MOUNT REQUEST TO THE MSSC SVC. @ZDR2048 01179703 * THE EXTENSION IS ADDRESSED FROM A FIELD IN THE @ZDR2048 01179803 * MOUNT PARAMETER LIST. @ZDR2048 01179903 * @ZDR2048 01181903 * STATUS -- CHANGE LEVEL 0 @ZDR2048 01182003 * @ZDR2048 01182103 **************************************************************@ZDR2048 01182303 MNTXT DSECT MOUNT PARAMETER LIST EXTENSION @ZDR2048 01183203 MNTXJFCB DS F ADDRESS OF THE JFCB @ZDR2048 01185203 MNTXJOBN DS F ADDRESS OF THE JOB NAME @ZDR2048 01185603 MNTXSTEP DS F ADDRESS OF THE STEP NUMBER @ZDR2048 01186403 MNTXREJT DS F COUNT OF VOLUME REJECTS @ZDR2048 01232003 MNTXLGTH EQU *-MNTXT LENGTH OF EXTENSION @ZDR2048 01323203 MEND 01368803 **/ 01378803 *%MNXPLS2:; /* @ZDR2048*/ 01414403 */***********************************************************@ZDR2048*/ 01460003 */* @ZDR2048*/ 01470003 */* MACCOMP @ZDR2048 SC1DP/BL0019 @ZDR2048*/ 01480003 */* MACSTAT @ZDR2048 76.113 @ZDR2048*/ 01490003 */* @ZDR2048*/ 01492003 */* NAME -- MNTXT -- MSSC MOUNT PARAMETER LIST EXTENSION @ZDR2048*/ 01494003 */* @ZDR2048*/ 01496003 */* FUNCTION -- THIS IS A MAPPING MACRO FOR THE EXTENSION @ZDR2048*/ 01498003 */* TO THE MOUNT PARAMETER LIST WHICH MAY ACCOMPANY A @ZDR2048*/ 01498403 */* NONSPECIFIC MOUNT REQUEST TO THE MSSC SVC. @ZDR2048*/ 01498803 */* THE EXTENSION IS ADDRESSED FROM A FIELD IN THE @ZDR2048*/ 01499203 */* MOUNT PARAMETER LIST. @ZDR2048*/ 01499603 */* @ZDR2048*/ 01509603 */* STATUS -- CHANGE LEVEL 0 @ZDR2048*/ 01519603 */* @ZDR2048*/ 01520003 */***********************************************************@ZDR2048*/ 01530003 * DCL 1 MNTXT BASED, /*MOUNT PARAMETER LIST EXTENSION @ZDR2048*/ 01540003 * 2 MNTXJFCB PTR(31), /* ADDRESS OF THE JFCB @ZDR2048*/ 01550003 * 2 MNTXJOBN PTR(31), /* ADDRESS OF THE JOB NAME @ZDR2048*/ 01600003 * 2 MNTXSTEP PTR(31), /* ADDRESS OF STEP NUMBER @ZDR2048*/ 01700003 * 2 MNTXREJT FIXED(31); /* COUNT OF VOLUME REJECTS @ZDR2048*/ 01710003 *%MNTXLGTH='LENGTH(MNTXT)'; /* LENGTH OF EXTENSION @ZDR2048*/ 01800003