X TITLE 'STORSTAT - CTATéCTéKA Oâ éCðOìøúOBAHéé úAäAHéEM Oð' STAT0001 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 STAT0002 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 26.03.87 BPEMñ 20.26 * æOKõC STAT0003 STORSTAT CSECT STAT0004 WR1 EQU 2 STAT0005 WR2 EQU WR1+1 STAT0006 RA1 EQU 4 STAT0007 CVTR EQU 5 STAT0008 MYTCBR EQU 6 STAT0009 TCBR EQU 6 STAT0010 TIOTR EQU 7 STAT0011 TCTR EQU 8 STAT0012 STTABR EQU 9 STAT0013 RMAX EQU 10 STAT0014 * STAT0015 PRINT NOGEN STAT0016 USING *,11 âAúOBùê PEçéCTP 11 STAT0017 STM 14,12,12(13) COXPAHEHéE PEçéCTPOB STAT0018 LR 11,15 úAçPõúKA âAúù STAT0019 L 2,0(1) STAT0020 GETMAIN R,LV=WALEN ðAMñTø äìñ OâìACTé COXPAHEHéñ é PAâOþEê STAT0021 ST 1,8(13) CBñúø STAT0022 ST 13,4(1) OâìACTEê STAT0023 LR 13,1 COXPAHEHéñ STAT0024 USING WAREA,13 STAT0025 USING CVT,CVTR STAT0026 *===================================================================== STAT0027 OPEN (PR,(OUTPUT)) STAT0028 PUT PR,PGMTITLE STAT0029 * STAT0030 LH 1,0(2) STAT0031 LTR 1,1 STAT0032 BNP ERRPARM STAT0033 CH 1,=H'8' STAT0034 BH ERRPARM STAT0035 BCTR 1,0 STAT0036 EX 1,MVCJNAME STAT0037 * STAT0038 L CVTR,CVTPTR STAT0039 USING TCB,MYTCBR STAT0040 L MYTCBR,CVTTCBP STAT0041 L MYTCBR,4(MYTCBR) STAT0042 MODESET KEY=ZERO STAT0043 MVI TCBLMP,X'FF' STAT0044 CHAP +255,'S' STAT0045 DROP MYTCBR STAT0046 MODESET KEY=NZERO STAT0047 LA STTABR,STATTBLE STAT0048 * STAT0049 USING TCB,TCBR STAT0050 SPACE 2 STAT0051 *********************************************************************** STAT0052 * CâOP CTATéCTéKé * STAT0053 *********************************************************************** STAT0054 STIMER STIMER WAIT,BINTVL=INTVL STAT0055 L TCBR,CVTHEAD STAT0056 NEXTTCB L TIOTR,TCBTIO STAT0057 CLC 0(8,TIOTR),JOBNAME STAT0058 BE FOUND STAT0059 L TCBR,TCBTCB STAT0060 LTR TCBR,TCBR STAT0061 BZ NOTFOUND STAT0062 B NEXTTCB STAT0063 * STAT0064 FOUND MVI NOTFOUND+1,0 STAT0065 L TCTR,TCBTCT STAT0066 LTR TCTR,TCTR STAT0067 BZ NOTCT STAT0068 * STAT0069 LH TCTR,64(TCTR) STAT0070 CH TCTR,=H'8192' STAT0071 BH ERRTCT STAT0072 LTR TCTR,TCTR STAT0073 BM ERRTCT STAT0074 BZ STIMER STAT0075 * STAT0076 SLL TCTR,2 STAT0077 L WR1,0(STTABR,TCTR) STAT0078 AH WR1,=H'1' STAT0079 ST WR1,0(STTABR,TCTR) STAT0080 * STAT0081 L WR1,COUNT STAT0082 AH WR1,=H'1' STAT0083 ST WR1,COUNT STAT0084 * STAT0085 B STIMER STAT0086 *** STAT0087 NOTFOUND BC 15,STIMER STAT0088 SPACE 2 STAT0089 *********************************************************************** STAT0090 * ðPEäBAPéTEìøHAñ OâPAâOTKA * STAT0091 *********************************************************************** STAT0092 ENDJOB LR RMAX,STTABR STAT0093 A RMAX,=F'32768' STAT0094 LOOP1 SH RMAX,=H'4' OðPEäEìEHéE BEPXHEê çPAHéãù STAT0095 CR RMAX,STTABR STAT0096 BL EMPTY STAT0097 OC 0(4,RMAX),0(RMAX) STAT0098 BZ LOOP1 STAT0099 * STAT0100 XR WR1,WR1 STAT0101 LR RA1,STTABR STAT0102 * STAT0103 LOOP2 A WR1,0(RA1) CõMMéPOBAHéE STAT0104 ST WR1,0(RA1) STAT0105 LA RA1,4(RA1) STAT0106 CR RA1,RMAX STAT0107 BNH LOOP2 STAT0108 * STAT0109 LR RA1,STTABR STAT0110 * STAT0111 LOOP3 XR WR1,WR1 *100/COUNT STAT0112 L WR2,0(RA1) STAT0113 MH WR2,=H'100' STAT0114 D WR1,COUNT STAT0115 ST WR1,0(RA1) STAT0116 LA RA1,4(RA1) STAT0117 CR RA1,RMAX STAT0118 BNH LOOP3 STAT0119 SPACE 2 STAT0120 *********************************************************************** STAT0121 * ðEþATø PEúõìøTATOB * STAT0122 *********************************************************************** STAT0123 LOAD#ST TRDEC,TRDECA STAT0124 PUT PR,WARNING STAT0125 PUT PR,INSTRUCT STAT0126 PUT PR,JOBMSG STAT0127 * STAT0128 L 15,TRDECA STAT0129 LA 1,TRSUM STAT0130 BALR 14,15 STAT0131 PUT PR,SUMMSG STAT0132 * STAT0133 PUT PR,LINE002 ûKAìA % STAT0134 PUT PR,LINE$10 ðEPBAñ ìéHéñ STAT0135 PUT PR,SPACE ðPOðõCK STAT0136 XC GRAFREC(11),GRAFREC STAT0137 MVC GRAFREC(4),=H'112,0' STAT0138 MVI GRAFREC+4,C' ' STAT0139 * STAT0140 PRTLOOP LA WR2,10 STAT0141 * STAT0142 PRTLOOP2 LH WR1,STORADR STAT0143 LA WR1,2(WR1) STAT0144 STH WR1,STORADR STAT0145 L WR1,0(RA1) STAT0146 CH WR1,MINPRINT STAT0147 XC GRAFLINE,GRAFLINE STAT0148 BL BCT STAT0149 OC GRAFLINE,LINE$01 STAT0150 PUT PR,GRAFREC STAT0151 BCT BCT WR2,PRTLOOP2 STAT0152 * STAT0153 LTR WR1,WR1 STAT0154 BZ RET0 STAT0155 L 15,TRDECA STAT0156 LA 1,TRREG STAT0157 BALR 14,15 STAT0158 PUT PR,LINE$10 STAT0159 B PRTLOOP STAT0160 * STAT0161 RET0 B END STAT0162 SPACE 2 STAT0163 *********************************************************************** STAT0164 * COOâýEHéñ Oâ OûéâKAX * STAT0165 *********************************************************************** STAT0166 ERRPARM PUT PR,ERRMSG0 STAT0167 B RET8 STAT0168 * STAT0169 NOTCT PUT PR,ERRMSG1 STAT0170 B CALLSYS STAT0171 ERRTCT PUT PR,ERRMSG2 STAT0172 CALLSYS PUT PR,ERRMSGC STAT0173 B RET8 STAT0174 * STAT0175 EMPTY PUT PR,ERRMSG3 STAT0176 B RET8 STAT0177 * STAT0178 RET8 SETRC 8 STAT0179 B END STAT0180 *===================================================================== STAT0181 END CLOSE (PR) STAT0182 LR 1,13 STAT0183 L 13,4(13) STAT0184 LH 15,RETCODE STAT0185 ST 15,16(13) úAðéCø KOäA BOúBPATA STAT0186 FREEMAIN R,LV=WALEN,A=(1) STAT0187 LM 14,12,12(13) STAT0188 BR 14 STAT0189 * STAT0190 MVCJNAME MVC JOBNAME(1),2(2) STAT0191 * STAT0192 PR DCB DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=VBA,LRECL=133, *STAT0193 BLKSIZE=650 STAT0194 * STAT0195 INTVL DC F'100' 1 CEKõHäA STAT0196 STARSIZE DC F'2' STAT0197 TRDECA DS F STAT0198 COUNT DC F'0' STAT0199 STORADR DC H'0' STAT0200 RETCODE DC H'0' STAT0201 MINPRINT DC H'50' STAT0202 STORPR DC H'0' STAT0203 * STAT0204 TRSUM ADRLIST TRSUMI,TRSUMO,(4,COUNT,TRSUMI),(132,INTVL), *STAT0205 (7,SUMMSG+30,TRSUMO),(133,SUMMSG+50) STAT0206 TRREG ADRLIST (130,STORPR),(135,KBCHAR+1) STAT0207 * STAT0208 SPACE MSG ' ' STAT0209 * STAT0210 LINE002 DC H'111,0',C' 0 10 20 30 *STAT0211 40 50 60 70 80 90 *STAT0212 100 %' ûKAìA ðPOãEHTOB STAT0213 * STAT0214 LINE$01 DC C' I',10C' !' BEPT. CETKA STAT0215 LINE$10 DC H'111,0' STAT0216 KBCHAR DC C'+KâAêT 0',100C'-' çOP. CETKA STAT0217 PGMTITLE MSG '0 ðPOçPAMMA CâOPA CTATéCTéKé éCðOìøúOBAHéñ ðAMñTé *STAT0218 - V 1.0' STAT0219 WARNING MSG '0 BHéMAHéE! ðPOçPAMMA HE PEçéCTPéPõET KPATKOBPEMEHHùX ú*STAT0220 AðPOCOB, HE COBðABûéX C MOMEHTOM PEçéCTPAãéé!' STAT0221 INSTRUCT MSG '0 ðO BEPTéKAìøHOê OCé - Oâ"EM Oð, ðO çOPéúOHTAìøHOê -*STAT0222 BPEMñ (% OT BPEMEHé BùðOìHEHéñ), KOçäA úAäAþA éM õäOBìE*STAT0223 TBOPEHA' STAT0224 JOBMSG MSG '0 úAäAHéE - , ûAç SSSSSSSS' STAT0225 JOBNAME EQU JOBMSG+18 STAT0226 STEPNAME EQU JOBMSG+32 STAT0227 SUMMSG MSG '0 BùðOìHEHO éúMEPEHéê - ......., éHTEPBAì - ...../100*STAT0228 CEK' STAT0229 ERRMSG0 MSG '0 OûéâKA B éMEHé úAäAHéñ' STAT0230 ERRMSG1 MSG '0 ðOìE TCBTCT äìñ úAäAþé COäEPöéT 0 -' STAT0231 ERRMSG2 MSG '0 HEKOPPEKTHAñ éHæOPMAãéñ B TAâìéãE TCT -' STAT0232 ERRMSG3 MSG '0 TAâìéãA CTATéCTéKé ðõCTA' STAT0233 ERRMSGC MSG ' OâPATéTECø K CéCTEMHOMõ ðPOçPAMMéCTõ' STAT0234 *===================================================================== STAT0235 WAREA DSECT STAT0236 SAVEAREA DS 18F OâìACTø COXPAHEHéñ STAT0237 * STAT0238 GRAFREC DS CL4,CL7 STAT0239 GRAFLINE DS CL101 STAT0240 * STAT0241 STATTBLE DS 8192F STAT0242 * STAT0243 WALEN EQU *-WAREA STAT0244 * STAT0245 CVT DSECT STAT0246 CVT STAT0247 IKJTCB STAT0248 END STAT0249 * STAT0250