X TITLE 'TRACELNK - TPACCéPOBKA ðEPEäAþé õðPABìEHéñ' ELNK0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 27.10.89 BPEMñ 22.22 * æOKõC ELNK0002 * PARM='JOBNAME' ELNK0003 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 * ELNK0004 PRINT NOGEN ELNK0005 GENEQU SVCEXIT,3,SVCLINK,6,SVCLOAD,8,SVCXCTL,7,SVCDELT,9, +ELNK0006 SVCATCH,42,SVCIDNTF,41,SVCSYNCH,12 ELNK0007 COPY FIXAREA ELNK0008 SPACE ELNK0009 DSA PRINT=NOGEN ELNK0010 GENDS RETSAVE2,F,SVPRPGA,F,PRUNITAD,H,LINELIM,H,CSWSAVE,CL8, *ELNK0011 ,0F,BLIST,CL40,EOBLIST,0F,CC,X ELNK0012 SPACE 2 ELNK0013 TRACELNK @START BASE=11,RPARM=2,PRINT= ELNK0014 SPACE 2 ELNK0015 *********************************************************************** ELNK0016 * * ELNK0017 *********************************************************************** ELNK0018 ST 13,SAADR ELNK0019 @LOAD SLBLDMSG,ALSTPUT ELNK0020 L 2,0(2) ELNK0021 CLIB 1(2),8,H,ERRPARM ELNK0022 CLIB 1(2),1,L,ERRPARM ELNK0023 ZIC 1,1(2) ELNK0024 BCTR 1,0 ELNK0025 @EX 1,MVC,(JOBNAME(0),2(2)) ELNK0026 MVC JOBNAMEC,JOBNAME ELNK0027 * ELNK0028 @GETDD 'SYSPRINT' ELNK0029 IFREG 15,Z,ERRPRT ELNK0030 L 3,16(15) UCB ELNK0031 LA 3,0(3) ELNK0032 IFREG 3,Z,ERRPRT ELNK0033 TMB 18(3),X'08',Z,ERRPRT ELNK0034 MVC PRUNITAD,4(3) ELNK0035 NI PRUNITAD,X'07' ELNK0036 * ELNK0037 @PUTMSG ('- TPACCéPOBKA ðEPEäAþé õðPABìEHéñ; JOB=',JOBNAME) ELNK0038 IFREG 15,NZ,END ELNK0039 @PUTMSG ('-.TCB.. JOBNAME. STEPNAME CDENAME.') ELNK0040 @PUTMSG (' ') ELNK0041 @PRINT 0 - CLOSE ELNK0042 LA 0,ALSTPR ELNK0043 LA 0,=V(PRINTPGM) ELNK0044 ORG *-4 ELNK0045 DC X'50' 'ST' INSTR. CODE ELNK0046 ORG *+3 ELNK0047 SPACE 2 ELNK0048 *********************************************************************** ELNK0049 * ðOäKìàþEHéE OâPAâOTþéKOB ðPEPùBAHéê, PAâOTA * ELNK0050 *********************************************************************** ELNK0051 MODESET KEY=ZERO ELNK0052 UIHSET SVCHNDLR,PSW=SVC ELNK0053 LR 2,1 ELNK0054 WTOR WTOR 'TRACELNK JJJJJJJJ ',REPLY,1,RECB ELNK0055 JOBNAMEC EQU WTOR+25,8 ELNK0056 WAIT ECB=RECB ELNK0057 UIHDEL (2) ELNK0058 MODESET KEY=NZERO ELNK0059 SPACE 2 ELNK0060 *********************************************************************** ELNK0061 * úABEPûEHéE PAâOTù é BOúBPAT õðPABìEHéñ * ELNK0062 *********************************************************************** ELNK0063 END @RETURN RC=(15) ELNK0064 * ELNK0065 RET8 LA 15,8 ELNK0066 B END ELNK0067 ERRPRT @PUTMSG (' SYSPRINT UNIT (',(13(3),3),') IS NOT PRINTER') ELNK0068 B RET8 ELNK0069 ERRPARM @PUTMSG (' JOBNAME INVALID') ELNK0070 B RET8 ELNK0071 SPACE 2 ELNK0072 *********************************************************************** ELNK0073 * ðPOçPAMMA ðEPEXBATA EXCP é ðEþATé KAHAìøHùX ðPOçPAMM * ELNK0074 *********************************************************************** ELNK0075 SVCHNDLR DS 0H ELNK0076 USING *,15 ELNK0077 L 2,16 ELNK0078 L 2,0(2) ELNK0079 L 2,4(2) 2 - TCB ELNK0080 L 3,12(2) 3 - TIOT ELNK0081 IFREG 3,Z,(14) - HET TIOT ELNK0082 CLCB JOBNAME,0(3),NE,(14) - HE HAûA úAäAþA ELNK0083 * ELNK0084 CLIB SVCOPSW+3,SVCEXIT,E,EXIT ELNK0085 CLIB SVCOPSW+3,SVCLINK,E,LINK ELNK0086 CLIB SVCOPSW+3,SVCLOAD,E,LOAD ELNK0087 CLIB SVCOPSW+3,SVCXCTL,E,XCTL ELNK0088 CLIB SVCOPSW+3,SVCATCH,E,ATTACH ELNK0089 CLIB SVCOPSW+3,SVCSYNCH,E,SYNCH ELNK0090 CLIB SVCOPSW+3,SVCIDNTF,E,IDENTIFY ELNK0091 CLIB SVCOPSW+3,SVCDELT,E,DELETE ELNK0092 BR 14 ELSE ... ELNK0093 * ELNK0094 EXIT MVC SVCNAME,=CL8'EXIT' ELNK0095 EMPTYNAM MVC NEWNAME,=CL8' ' ELNK0096 B COMMON ELNK0097 * ELNK0098 SYNCH MVC SVCNAME,=CL8'SYNCH' ELNK0099 B EMPTYNAM ELNK0100 * ELNK0101 LINK MVC SVCNAME,=CL8'LINK' ELNK0102 B LINKTYPE ELNK0103 XCTL MVC SVCNAME,=CL8'XCTL' ELNK0104 B LINKTYPE ELNK0105 ATTACH MVC SVCNAME,=CL8'ATTACH' ELNK0106 B LINKTYPE ELNK0107 * ELNK0108 LINKTYPE L 1,15*4(13) ELNK0109 L 1,0(1) ELNK0110 MVC NEWNAME,0(1) ELNK0111 B COMMON ELNK0112 * ELNK0113 LOAD MVC SVCNAME,=CL8'LOAD' ELNK0114 L 1,0*4(13) ELNK0115 IFREG 1,P,*+6 ELNK0116 LCR 1,1 ELNK0117 LOADTYPE MVC NEWNAME,0(1) ELNK0118 B COMMON ELNK0119 * ELNK0120 IDENTIFY MVC SVCNAME,=CL8'IDENTIFY' ELNK0121 L 1,0*4(13) ELNK0122 B LOADTYPE ELNK0123 * ELNK0124 DELETE MVC SVCNAME,=CL8'DELETE' ELNK0125 L 1,0*4(13) ELNK0126 B LOADTYPE ELNK0127 SPACE 2 ELNK0128 COMMON DS 0H ELNK0129 L 13,SAADR ELNK0130 L 11,BASEADR ELNK0131 DROP 15 ELNK0132 ST 14,RETSAVE2 ELNK0133 * ELNK0134 L 4,0(2) 4 - RB ELNK0135 * ELNK0136 IC 15,10(4) RBTYPE ELNK0137 SRL 15,3 ELNK0138 N 15,=X'0000001C' ELNK0139 B *+4(15) ELNK0140 B PRB 000. .... ELNK0141 B TIRB 001. .... ELNK0142 B IRB 010. .... ELNK0143 B INVRB 011. .... ELNK0144 B SIRB 100. .... ELNK0145 B INVRB 101. .... ELNK0146 B SVRB 110. .... ELNK0147 B INVRB 111. .... ELNK0148 * ELNK0149 INVRB MVC RBTYPE,=C'????' ELNK0150 MVC PGMNAME,=CL8' ' ELNK0151 B COMMON2 ELNK0152 * ELNK0153 PRB MVC RBTYPE,=C'PRB ' ELNK0154 L 15,12(4) CDE ELNK0155 LA 15,0(15) ELNK0156 MVC PGMNAME,8(15) ELNK0157 B COMMON2 ELNK0158 * ELNK0159 TIRB MVC RBTYPE,=C'TIRB' ELNK0160 MVC PGMNAME,=CL8' ' ELNK0161 B COMMON2 ELNK0162 * ELNK0163 IRB MVC RBTYPE,=C'IRB ' ELNK0164 MVC PGMNAME,=CL8' ' ELNK0165 B COMMON2 ELNK0166 * ELNK0167 SIRB MVC RBTYPE,=C'SIRB' ELNK0168 MVC PGMNAME,0(4) ELNK0169 B COMMON2 ELNK0170 * ELNK0171 SVRB MVC RBTYPE,=C'SVRB' ELNK0172 MVC PGMNAME,=CL8' ' ELNK0173 L 15,28(4) ðPEä. RB ELNK0174 LH 15,18(15) KOä ðPEPùBAHéñ ELNK0175 CVD 15,WORKDW ELNK0176 UNPK PGMNAME(3),WORKDW ELNK0177 OI PGMNAME+2,X'F0' ELNK0178 TMB 10(4),X'10',O,SVRBNR ELNK0179 L 1,12(4) CDE ? ELNK0180 LA 1,0(1) ELNK0181 IFREG 1,Z,COMMON2 ELNK0182 MVC PGMNAME,8(1) ELNK0183 SVRBNR MVC PGMNAME+4(4),4(4) ELNK0184 B COMMON2 ELNK0185 * ELNK0186 COMMON2 DS 0H ELNK0187 @PUTMSG ((0(2),,A),+S,(0(3),8),(8(3),8),PGMNAME,RBTYPE, +ELNK0188 (0(4),,A),SVCNAME,NEWNAME) ELNK0189 * ELNK0190 * ELNK0191 * ELNK0192 * ELNK0193 * ELNK0194 * ELNK0195 * ELNK0196 * ELNK0197 * ELNK0198 ** ELNK0199 * ELNK0200 ENDPRT L 14,RETSAVE2 ELNK0201 BR 14 ELNK0202 * ELNK0203 ALSTPR LR 1,0 ELNK0204 LH 0,PRUNITAD ELNK0205 L 15,PGMADR#ALSTPUT ELNK0206 BR 15 ELNK0207 SPACE 2 ELNK0208 *********************************************************************** ELNK0209 * KOHCTAHTù * ELNK0210 *********************************************************************** ELNK0211 GENDC RECB,F'0',BASEADR,A(TRACELNK) ELNK0212 GENDS SAADR,F,UCBADR,F,UNITADR,H,REPLY,C,WORKDW,D ELNK0213 PGMNAME DS CL8 ELNK0214 SVCNAME DS CL8 ELNK0215 NEWNAME DS CL8 ELNK0216 RBTYPE DS CL4 ELNK0217 JOBNAME DC CL8' ' ELNK0218 @END ELNK0219