* %GOTO SSMOCMT; /* @ZA34144 00050003 MACRO @ZA34144 00100003 IEFSSMO 00150003 .*/ %SSMOCMT:; /* @ZA34144*/ 00200003 */********************************************************************/ 00250003 */* MACRO NAME = IEFSSMO @ZA34144*/ 00300003 */* DESCRIPTIVE NAME = MSS VOLUME CONTROL JES3 EXIT @ZA34144*/ 00350003 */* STATUS = SPLITOUT FROM IEFJSSOB @ZA34144*/ 00400003 */* ACCESS METHOD = INVOKED VIA IEFJSSOB MACRO @ZA34144*/ 00450003 */* COPYRIGHT = NONE @ZA34144*/ 00500003 */********************************************************************/ 00550003 * %GOTO SSMOPLS; /* @ZA34144 00600003 * 00700003 SSOBMSVC EQU 35 MSS VOLUME CONTROL FUNCTION @G18MP21 00750003 * ID(SSOBFUNC) @G18MP21 00800003 * 00850003 SSOBOEOV EQU 37 OPEN/EOV FUNCTION @G18MP21 00900003 * ID(SSOBFUNC) @G18MP21 00950003 * 01000003 * MSS VOLUME CONTROL RETURN CODES @G18MP21 01050003 SSMOVOLA EQU 0 VOLUME AVAILABLE RETURN CODE @G18MP21 01100003 * 01150003 SSMOVOLB EQU 4 VOLUME BUSY RETURN CODE @G18MP21 01200003 * 01250003 ORG SSOBGN SSMO START @G18MP21 01300003 SSMOBGN EQU * MSS VOLUME CONTROL BEGINNING @G18MP21 01350003 SSMOLEN DC AL2(SSMOSIZE) MSS VOL CNTR EXTENSION SIZE @G18MP21 01400003 SSMOFLG1 DS X SSMO FLAG BYTE @G18MP21 01450003 SSMOOPEN EQU X'80' SSI INVOKED BY OPEN @G18MP21 01500003 SSMOFINL EQU X'40' FINAL CALL FROM OPEN/EOV @G18MP21 01550003 SSMOSCR EQU X'20' DADSM SCRATCH IF ON @G18MP21 01600003 SSMORUSE EQU X'10' JES3 SHOULD TRY FOR VOLUME REUSE @G18MP21 01650003 * AND SWITCH SGD'S IF NEEDED @G18MP21 01700003 SSMOMNTD EQU X'08' MSVC SHOWS VOLUME MOUNTED @G18MP21 01750003 * TO ANY HOST @G18MP21 01800003 SSMORSV0 DS X RESERVED @G18MP21 01850003 SSMOPNAM DS A POINTER TO JOBNAME @G18MP21 01900003 SSMOPSTN DS A POINTER TO STEP NUMBER @G18MP21 01950003 SSMOPUAD DS A POINTER TO UNIT ADDRESS @G18MP21 02000003 SSMOPVOL DS A POINTER TO VOLUME SERIAL @G18MP21 02050003 SSMOPDDN DS A POINTER TO DDNAME @G18MP21 02100003 SSMOPRPN DS A POINTER TO RELATIVE POS NUMBER @G18MP21 02150003 SSMOSIZE EQU *-SSMOBGN EXTENSION LENGTH @G18MP21 02200003 SSOBLN17 EQU SSOBHSIZ+SSMOSIZE TOTAL SSOB LENGTH @G18MP21 02250003 MEND @ZA34144*/ 02300003 * %SSMOPLS:; /* @ZA34144*/ 02330003 * /* FUNCTION IDS (SSOBFUNC) */ 02400003 * DCL SSOBMSVC FIXED(15) CONSTANT(35); /* MSS VOLUME CONTROL 02450003 * @G18MP21*/ 02500003 * DCL SSOBOEOV FIXED(15) CONSTANT(37); /* OPEN/EOV JES3 EXIT 02550003 * @G18MP21*/ 02600003 * /* MSS VOLUME CONTROL RETURN CODES */ 02650003 * /* */ 02700003 * DCL SSMOVOLA FIXED(31) CONSTANT(0); /* VOLUME AVAILABLE RETURN 02750003 * CODE @G18MP21*/ 02800003 * DCL SSMOVOLB FIXED(31) CONSTANT(4); /* VOLUME BUSY RETURN 02850003 * CODE @G18MP21*/ 02900003 * /* S S M O */ 02950003 * DECLARE 03000003 * 1 SSMO SSOBMO, /* BEGINNING @G18MP21*/ 03050003 * 2 SSMOLEN FIXED(15), /* LENGTH OF SSMO @G18MP21*/ 03100003 * 2 SSMOFLG1 BIT(8), /* SSMO FLAG BYTE @G18MP21*/ 03150003 * 3 SSMOOPEN BIT(1), /* SSI INVOKED BY OPEN@G18MP21*/ 03200003 * 3 SSMOFINL BIT(1), /* FINAL CALL FROM 03250003 * OPEN/EOV @G18MP21*/ 03300003 * 3 SSMOSCR BIT(1), /* DADSM SCRATCH IF ON 03350003 * @G18MP21*/ 03400003 * 3 SSMORUSE BIT(1), /* JES3 SHOULD TRY FOR VOLUME 03450003 * REUSE AND SWITCH SDG'S IF 03500003 * NEEDED @G18MP21*/ 03550003 * 3 SSMOMNTD BIT(1), /* MSVC SHOWS VOLUME MOUNTED 03600003 * TO ANY HOST @G18MP21*/ 03650003 * 3 SSMODYAL BIT(1), /* MSS DYNAMIC ALLOC INTERFACE 03700024 * FOR JES3 @ZA33767*/ 03716624 * 3 * BIT(2), /* RESERVED @ZA33767*/ 03733200 * 2 SSMORSV0 PTR(8), /* RESERVED @G18MP21*/ 03750003 * 2 SSMOPNAM PTR(31), /* POINTER TO JOBNAME @G18MP21*/ 03800003 * 2 SSMOPSTN PTR(31), /* POINTER TO STEP 03850003 * NUMBER @G18MP21*/ 03900003 * 2 SSMOPUAD PTR(31), /* POINTER TO UNIT 03950003 * ADDRESS @G18MP21*/ 04000003 * 2 SSMOPVOL PTR(31), /* POINTER TO VOLUME 04050003 * SERIAL @G18MP21*/ 04100003 * 2 SSMOPDDN PTR(31), /* POINTER TO DDNAME @G18MP21*/ 04150003 * 2 SSMOPRPN PTR(31); /* POINTER TO RELATIVE POSI- 04200003 * TION NUMBER @G18MP21*/ 04250003