C11 TITLE 'IEEAVMIN - AUTOMATIC VOLUME MOUNT INITIALIZATION' VMIN0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 11.08.89 BPEMñ 19.06 * æOKõC VMIN0002 * VMIN0003 * FUNCTIONS: VMIN0004 * - GET STORAGE AT SP 245 FOR ATTENTION ROUTINE VMIN0005 * - MOVE ATTENTION ROUTINE VMIN0006 * - VMIN0007 * - ATTACH AN AUTOMATIC VOLUME MOUNT TASK VMIN0008 * VMIN0009 * ENTRY: XCTL FROM IEEVIPL (OR ANOTHER) INSTEAD OF IEEVWAIT VMIN0010 * VMIN0011 * EXIT: XCTL TO IEEVWAIT VMIN0012 * VMIN0013 * ìEHéHçPAä éBã çõT OTä. 23 ìATùûKO T: 219-07-07 * VMIN0014 SPACE 2 VMIN0015 IEEAVMIN CSECT VMIN0016 USING *,11 VMIN0017 PRINT NOGEN VMIN0018 LR 11,15 VMIN0019 SPACE 2 VMIN0020 *********************************************************************** VMIN0021 * õCTAHOBKA ðPOçPAMMù OâPAâOTKé BHéMAHéñ * VMIN0022 *********************************************************************** VMIN0023 L 4,16 CVT VMIN0024 L 4,20(4) TAâìéãA AððEHäéKCOB VMIN0025 LA 4,20(4) ATNTAB VMIN0026 MVC SYSATRTA,0(4) COXP. AäPEC CéCTEMHOê ðPOçPAMMù BHéM. VMIN0027 * VMIN0028 GETMAIN EC,SP=245,LV=ATTNPGLN,A=STRGADR VMIN0029 IFREG 15,NZ,FAIL VMIN0030 L 3,STRGADR VMIN0031 @MOVE (3),ATTNPGM,ATTNPGLN VMIN0032 SPACE 2 VMIN0033 *********************************************************************** VMIN0034 * ðOäKìàþEHéE ðOäúAäAþé * VMIN0035 *********************************************************************** VMIN0036 LA 1,ECB-ATTNPGM(3) VMIN0037 ATTACH EP=IEEAVM01,SVAREA=NO VMIN0038 IFREG 15,NZ,FAIL VMIN0039 ST 1,TCBADR-ATTNPGM(3) VMIN0040 ST 3,0(4) ðOäMEHA AäPECA ðPOçPAMMù B ATNTAB VMIN0041 WTO 'IEE991I AVM ACTIVE',ROUTCDE=(2,4) VMIN0042 B XCTL VMIN0043 SPACE 2 VMIN0044 *********************************************************************** VMIN0045 * ðEPEäAþA õðPABìEHéñ IEEVWAIT * VMIN0046 *********************************************************************** VMIN0047 XCTL XCTL EP=WAITSTOP VMIN0048 * VMIN0049 FAIL WTO 'IEE990I AVM INITIALIZATION FAILED',ROUTCDE=1 VMIN0050 B XCTL VMIN0051 SPACE 2 VMIN0052 *********************************************************************** VMIN0053 * KOHCTAHTù * VMIN0054 *********************************************************************** VMIN0055 STRGADR DC F'0' VMIN0056 SPACE 2 VMIN0057 *********************************************************************** VMIN0058 * ðPOçPAMMA OâPAâOTKé BHéMAHéñ * VMIN0059 *********************************************************************** VMIN0060 ATTNPGM DS 0F ! * ðOìõþAET õðPABìEHéE éú I/O SUP; R7 - UCB * VMIN0061 USING *,15 VMIN0062 STM 0,15,SVAATTPG COXPAHEHéE PEçéCTPOB VMIN0063 L 9,16 CVT VMIN0064 * VMIN0065 SPACE 2 VMIN0066 ATTNPOST DS 0H * POST HA ðPOçPAMMõ, KOTOPAñ XOþET * VMIN0067 LR 10,7 KOä úABEPûEHéñ - AäPEC UCB VMIN0068 * .? ðPOBEPKA TéðA .? VMIN0069 LA 11,ECB AäPEC ECB VMIN0070 L 12,TCBADR TCB VMIN0071 L 15,152(9) AäPEC ðPOçPAMMù POST VMIN0072 DROP 15 VMIN0073 BALR 14,15 * POST !!! * VMIN0074 USING *,14 VMIN0075 * VMIN0076 ATSYSRTN DS 0H * BùúOB CTAHäAPTHOê ðPOçPAMMù BHéMAHéñ VMIN0077 L 15,SYSATRTA AäPEC ðPOçPAMMù OâPAâOTKé BHéMAHéñ VMIN0078 LM 0,14,SVAATTPG BOCCTAHOBìEHéE PEçéCTPOB VMIN0079 BR 15 VMIN0080 DROP 14 VMIN0081 SPACE 2 VMIN0082 *********************************************************************** VMIN0083 * KOHCTAHTù ðPOçPAMMù OâPAâOTKé BHéMAHéñ * VMIN0084 *********************************************************************** VMIN0085 ECB DC F'0' VMIN0086 TCBADR DC F'0' VMIN0087 SYSATRTA DC F'0' VMIN0088 SVAATTPG DC 16F'0' VMIN0089 * VMIN0090 ATTNPGLN EQU *-ATTNPGM VMIN0091 * VMIN0092 END VMIN0093 * VMIN0094 * VMIN0095 * VMIN0096 * VMIN0097 * VMIN0098 * VMIN0099 * VMIN0100