X TITLE 'SLSTOPPG - OCTAHOBKA ðPOçPAMMù (TEST)' OPPG0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 02.03.90 BPEMñ 23.36 * æOKõC OPPG0002 * ìEHéHçPAä éBã çõT OTä. 23 ìATùûKO T: 110-50-43 * OPPG0003 SPACE 2 OPPG0004 MACRO OPPG0005 &L NEXTPARM &PAR OPPG0006 &L LA 0,L'&PAR OPPG0007 LA 1,&PAR OPPG0008 BAL 14,NEXTPARM OPPG0009 MEND OPPG0010 SPACE 2 OPPG0011 DSA PRINT=NOGEN OPPG0012 SAVEPARM DS 2F OPPG0013 MYJNAME DS CL8 OPPG0014 SPACE 2 OPPG0015 SLSTOPPG @START BASE=11,RPARM=2,PRINT= OPPG0016 L 2,0(2) OPPG0017 LH 3,0(2) OPPG0018 LA 2,2(2) OPPG0019 STM 2,3,SAVEPARM OPPG0020 @LOAD SLBLDMSG OPPG0021 @GETTCB 15 OPPG0022 ST 15,MYTCB OPPG0023 L 1,12(15) OPPG0024 MVC MYJNAME,0(1) OPPG0025 L 1,180(15) OPPG0026 L 1,256(1) OPPG0027 L 1,32(1) OPPG0028 ST 1,ECBLIST OPPG0029 * OPPG0030 NEXTPARM JOBNAME OPPG0031 NEXTPARM MODNAME OPPG0032 @WTOMSG (MYJNAME,+L,': JOB=',JOBNAME,',MOD=',MODNAME) OPPG0033 SPACE 2 OPPG0034 *********************************************************************** OPPG0035 * * OPPG0036 *********************************************************************** OPPG0037 MODESET KEY=ZERO OPPG0038 UIHSET SVCHNDLR,PSW=SVC OPPG0039 LR 9,1 OPPG0040 IFREG 15,NZ,END OPPG0041 WAIT WAIT ECBLIST=ECBLIST OPPG0042 L 2,MYECB OPPG0043 TMB MYECB,X'7F',Z,UIHDEL -> STOP OPPG0044 XC MYECB,MYECB OPPG0045 * OPPG0046 L 4,12(2) TIOT OPPG0047 L 3,0(2) RB OPPG0048 L 5,12(3) CDE OPPG0049 * OPPG0050 @WTOMSG (MYJNAME,+L,':',+S,(0(4),8),(8(4),8),'STOPED; TCB=',-SL,+OPPG0051 (0(2),,A),',RB=',(0(3),,A),',CDE=',(0(5),,A),',NM=', +OPPG0052 (8(5),8)) OPPG0053 B WAIT OPPG0054 * OPPG0055 UIHDEL UIHDEL (9) OPPG0056 MODESET KEY=NZERO OPPG0057 XR 15,15 OPPG0058 SPACE 2 OPPG0059 *********************************************************************** OPPG0060 * úABEPûEHéE PAâOTù é BOúBPAT õðPABìEHéñ * OPPG0061 *********************************************************************** OPPG0062 END @RETURN RC=(15) OPPG0063 SPACE 2 OPPG0064 COPY NEXTPARM OPPG0065 SPACE 2 OPPG0066 *********************************************************************** OPPG0067 * OâPAâOTþéK SVC-ðPEPùBAHéê * OPPG0068 *********************************************************************** OPPG0069 SVCHNDLR DS 0H OPPG0070 CLIB SVCOPSW+3,3,NE,(14) OPPG0071 * OPPG0072 @GETTCB 2 OPPG0073 L 3,0(2) 3 - RB OPPG0074 L 4,12(2) 4 - TIOT OPPG0075 IFREG 4,Z,(14) OPPG0076 * OPPG0077 BALR 12,0 OPPG0078 USING *,12 OPPG0079 LA 13,SVCHSVA OPPG0080 ST 14,RETADDR OPPG0081 * OPPG0082 TMB 11(3),X'80',O,(14) -> LAST RB OPPG0083 L 3,28(3) NEXT RB OPPG0084 TMB 10(3),X'E0',NZ,(14) -> NOT PRB OPPG0085 L 5,12(3) CDE OPPG0086 LA 5,0(5) OPPG0087 IFREG 5,Z,(14) OPPG0088 * TMB 0(5),X'04',Z,*+8 -> MAIN CDE OPPG0089 * L 5,20(5) OPPG0090 * OPPG0091 @CHKSTEN (0(4),8),JOBNAME OPPG0092 IFREG 15,NZ,SVCHRET OPPG0093 @CHKSTEN (8(5),8),MODNAME OPPG0094 IFREG 15,NZ,SVCHRET OPPG0095 B SVCHSTOP OPPG0096 * OPPG0097 SVCHRET L 14,RETADDR OPPG0098 BR 14 OPPG0099 * OPPG0100 SVCHSTOP OI 33(2),1 OPPG0101 * OPPG0102 LA 11,MYECB ECB OPPG0103 LR 10,2 CODE = TCB OPPG0104 L 12,MYTCB OPPG0105 DROP 12 OPPG0106 L 15,16 OPPG0107 L 15,152(15) OPPG0108 BALR 14,15 POST OPPG0109 USING *,14 OPPG0110 L 14,RETADDR OPPG0111 DROP 14 OPPG0112 BR 14 OPPG0113 SPACE 2 OPPG0114 *********************************************************************** OPPG0115 * KOHCTAHTù * OPPG0116 *********************************************************************** OPPG0117 JOBNAME DC CL8' ' OPPG0118 MODNAME DC CL8' ' OPPG0119 MYTCB DC F'0' OPPG0120 MYECB DC F'0' OPPG0121 RETADDR DS F OPPG0122 * OPPG0123 ECBLIST DC A(0) A(STOPECB) OPPG0124 DC X'80',AL3(MYECB) OPPG0125 * OPPG0126 SVCHSVA DC 18F'0' OPPG0127 * OPPG0128 COPY FIXAREA OPPG0129 @END OPPG0130 * OPPG0131 * OPPG0132 |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| |||| ||||