*COPY MONBLOKS 00001000
PUSH PRINT @VA04958 00001200
AIF ('&SYSPARM' NE 'SUP').MON01 @VA04958 00001400
PRINT OFF,NOGEN @VA04958 00001600
.MON01 ANOP 00001800
MONCOM DSECT 00002000
SPACE 00003000
*** MONCOM - VM MONITOR COMMUNICATIONS AREA 00004000
* 00005000
* 0 +-----------------------+-----+-----+-----------+ 00006000
* | MONARDB | M*1 | M*2 | MONDVNUM | 00007000
* 8 +-----------------------+-----+-----+-----------+ 00008000
* | MONDVLST | MONRSV1 | 00009000
* 10 +-----------------------+-----------------------+ 00010000
* | MONAIOB | MONATRB | 00011000
* 18 +-----------------------+-----------------------+ 00012000
* | MONCLOCK | 00013000
* 20 +-----------------------+-----------------------+ 00014000
* | MONSUSCK | 00015000
* 28 +-----------------------+-----------------------+ 00016000
* | MONSUSCT | MONRSVD1 | 00017000
* 30 +-----------------------+-----------------------+ 00018000
* | | 00020300
* = MONSAVE1 = 00020400
* | | 00020500
* 70 +-----------------------------------------------+ 00020650
* | | 00020700
* = MONSAVE2 = 00020800
* | | 00020900
* B0 +-----------------------------------------------+ 00021050
* | MONUSER | 00021100
* B8 +-----------------------+-----------------------+ 00021250
* | MONSPLCT | MONSFB | 00021252
* C0 +-----------------------------------------------+ 00021254
* | MONCURV | MONNXTV | 00021256
* C8 +-----------------------------------------------+ 00021258
* | MONCURR | MONNXTR | 00021260
* D0 +-----------------------------------------------+ 00021262
* | MONDASA | MONDASB | 00021264
* D8 +-----------------------------------------------+ 00021266
* | MONDAS | M3 | M4 | MONBUFNO | 00021268
* E0 +-----------------------------------------------+ 00021270
* | MONCURBF | MONCRSLT | 00021300
* E8 +-----------------------------------------------+ 00021352
* | MONIOBF | MONIOSLT | 00021400
* F0 +-----------------------------------------------+ 00021452
* | MONSKLST | MONSACT | 00021453
* F8 +-----------------------+-----------------------+ 00021454
* | MONCHPTR | MONUTRB | 00021455
* 100 +-----------------------+-----------------------+ 00021456
* | MONBUF1 | 00021500
* +-----------------------+ 00021550
* | MONBUF1V | 00021552
* +-----------------------+ 00021554
* 00027000
*** MONCOM - VM MONITOR COMMUNICATIONS AREA 00028000
SPACE 00029000
MONARDB DS 1F ADDRESS OF MONITOR TAPE REAL DEVICE BLK 00030000
MONFLAG1 DS 1X M*1 MONITOR FLAGS 00031000
MONFLAG2 DS 1X M*2 WORK BYTE 00032000
MONDVNUM DS 1H NUMBER OF ENTRIES IN REAL DEVICE LIST 00033000
MONDVLST DS 1F ADDRESS OF THE REAL DEVICE LIST 00034000
MONRSV1 DS 1F RESERVED 00035000
MONAIOB DS 1F ADDRESS OF MONITOR TAPE I/O BLOCK 00036000
MONATRB DS 1F ADDRESS OF MONITOR TIMER REQUEST BLOCK 00037000
MONCLOCK DS 1D TOD CLOCK STAMP FOR EACH RECORD 00038000
MONSUSCK DS 1D TOD CLOCK OF LAST SUSPENSION 00039000
MONSUSCT DS 1F SYSPENSION COUNT 00040000
MONRSVD1 DS 1F RESERVED 00041000
MONSAVE1 DS 16F MONITOR INTERNAL SAVE AREA FOR CPU 00044200
MONSAVE2 DS 16F MONITOR INTERNAL SAVE AREA FOR APU 00044300
MONUSER DS 8C USER STARTING/STOPPING THE MONITOR 00044400
MONSPLCT DS 1F COUNT OF RECORDS ON SPOOL FILE 00044402
MONSFB DS 1F ADDRESS OF SFBLOK FOR SPOOL FILE 00044404
MONCURV DS 1F VIRT ADDRESS OF FIRST VIRTUAL BUFFER 00044406
MONNXTV DS 1F VIRT ADDRESS OF SECND VIRTUAL BUFFER 00044408
MONCURR DS 1F REAL ADDRESS OF FIRST VIRTUAL BUFFER 00044410
MONNXTR DS 1F REAL ADDRESS OF SECND VIRTUAL BUFFER 00044412
MONDASA DS 1F ADDRESS OF NEXT DASD BUFFER 00044414
MONDASB DS 1F ADDRESS OF PREVIOUS DASD BUFFER 00044416
MONDAS DS 1F ADDRESS OF DASD BUFFER FOR SPOOL FILE 00044418
MONEX DS 1C FLAG BYTE 00044420
MONFLAG3 DS 1C FLAG BYTE 00044422
MONBUFNO DS 1H RESERVED FOR IBM USE 00044424
MONCURBF DS 1F ADDRESS OF CURRENT MON BUFFER 00045000
MONCRSLT DS 1F CORRESPONDING SLOT ADDRESS 00045100
MONIOBF DS 1F ADDRESS OF MON BUFFER GOING TO TAPE 00045200
MONIOSLT DS 1F CORRESPONDING SLOT ADDRESS 00045300
MONSKLST DS 1F ADDR SEEKS DEV LIST 00045310
MONSACT DS 1F LIMIT COUNT FOR REAL TIME MONITOR 00045320
MONCHPTR DS 1F ADDR OF CHANNEL SAMPLING DATA 00045330
MONUTRB DS 1F ADDR OF I/O UTILIZATION TRB 00045340
MONBUF1 DS 1F MONITOR BUFFER ADDRESSES - ONE 4 00045400
* BYTE ENTRY FOR EACH MONITOR BUFFER. THE 00045500
* LAST ADDRESS FIELD CONTAINS X'FFFFFFFF'. 00045600
MONSIZE EQU (*-MONCOM) SIZE OF DSECT 00046100
MONBUF1V EQU MONBUF1+4 00046110
SPACE 1 00046112
* FLAGS IN DMKSYSAT AS DEFINED BY THE SYSMON MACRO 00046114
* 00046116
AUTGO EQU X'80' AUTOMATIC MONITORING ENABLED 00046118
AUTOSPL EQU X'40' STOP MONITOR WHEN SPOOL LIMIT REACHED 00046120
MONSLMT EQU X'20' SAMPLING FOR REAL TIME MONITOR 00046121
* 00046122
* FLAGS IN MONEX 00046124
* 00046126
CLCMD EQU X'80' INDICATES SPOOL FILE CLOSED BY COMMAND 00046128
* 00046130
* FLAGS IN MONFLAG3 00046132
* 00046134
CLSUS EQU X'08' INDICATES TO SUSPEND WHILE CLOSING 00046136
EXHAUST EQU X'04' INDICATES SYSTEM OUT OF DASD SLOTS 00046138
CL EQU X'02' INDICATES NEED TO SUSPEND 00046140
SPOOLED EQU X'01' INDICATES SPOOL MONITORING ACTIVE 00046142
SPACE 1 00046144
SPACE 1 00047000
* BITS DEFINED IN MONFLAG1 00048000
MONSYSVM EQU X'80' FLAG USED BY USER CLASS ROUTINE 00049000
CFSTOP EQU X'20' MONITOR STOP COMMAND HAS BEEN ISSUED 00051000
TRUN EQU X'10' TAPE REWIND-UNLOAD CCW HAS BEEN SCHEDULED 00052000
ERROR EQU X'08' TAPE ERROR HAS OCCURRED, STOP MONITOR 00053000
MONTIINT EQU X'04' HANDLING TIMER INTERRUPT 00054000
MONLSTBK EQU X'02' HANDLING "LAST BLOCK" 00054100
MON1BUF EQU X'01' ONLY 1 BUFFER FOR MONITORING 00054200
SPACE 1 00054210
* BITS DEFINED IN MONFLAG2: 00054220
SUSPEND EQU X'80' MONITOR HAS BEEN SUSPENDED 00054230
MONMIAPG EQU X'40' DMKMIA IS BEING PAGED IN @VA08826 00054235
SPACE 1 00054240
* FLAGS IN 3RD BYTE OF MONITOR TAPE BUFFER AND 00054252
* 9TH BYTE OF MONITOR SPOOL BUFFER 00054254
MONBUFIO EQU X'00' NOT COLLECTING, IN USE FOR I/O 00054260
MONBUFAV EQU X'01' NOT COLLECTING, NOT IN USE FOR I/O 00054270
MONBUFAC EQU X'03' COLLECTING, NOT IN USE FOR I/O 00054280
SPACE 1 00055110
* FLAGS IN 10TH BYTE OF MONITOR SPOOL BUFFER 00055120
* 00055130
TRAP EQU X'80' LAST SPOOL FILE BUFFER AWAITING I/O 00055140
UNFIN EQU X'40' BUFFER LENGTH TO BE COMPUTED 00055150
* 00055160
* 00056000
* THIRD BYTE OF CR8: 00057000
* 00058000
PERFCL EQU X'80' SAMPLE HARDWARE/SOFTWARE UTILIZATIONS 00059000
RESPCL EQU X'40' TRACE RESPONSE CLASS 00060000
SCHEDCL EQU X'20' TRACE SCHEDULER ACTIVITY CLASS 00061000
TIMECL EQU X'10' EXECUTION TIMING CLASS 00062000
USERCL EQU X'08' SAMPLE USER RESOURCE USAGE CLASS 00063000
PRIVCL EQU X'04' PRIVOPS CLASS 00064000
DASDCL EQU X'02' SAMPLE DASDS UTILIZATIONS CLASS 00065000
SEEKCL EQU X'01' TRACE DASD SEEK ACTIVITY 00066000
SPACE 00067000
* 00068000
* FOURTH BYTE OF CR8 00069000
* 00070000
SPROFCL EQU X'80' TRACE SYSTEM PROFILE CLASS 00071000
MNDEVLST DSECT 00071010
SPACE 00071020
*** MNDEVLST DSECT 00071030
* 00071040
* 0 +-----------------------+-----------+-----------+ 00071050
* | MNRDEVB | MNCUBSY | MNDVBSY | 00071060
* 8 +-----------------------+-----------+-----------+ 00071070
* 00071080
* MNDEVLST DSECT 00071090
SPACE 00071100
MNRDEVB DS 1F RDEVBLOK ADDRESS 00071110
MNCUBSY DS 1H C.U. BUSY COUNT 00071120
MNDVBSY DS 1H DEV. BUSY COUNT 00071130
MNDEVLEN EQU *-MNDEVLST DEVICE ENTRY LENGTH 00071140
* 00071150
MNCHSAMP EQU 2 CHANNEL SAMPLE ENTRY LENGTH 00071160
DEFINTVL EQU 5 DEFAULT UTILIZATION INTERVAL 00071170
MNCHSIZE EQU 5 DOUBLE WORDS FOR CHANNEL SAMPLES 00071180
EJECT 00072000
MNHDR DSECT HEADER RECORD, PRECEEDS EVERY TAPE RECORD 00073000
SPACE 00074000
*** MNHDR - VM MONITOR RECORD HEADER 00075000
* 00076000
* 0 +-----------+-----------+-----+-----------+-----+ 00077000
* | MNHRECSZ | RESERVED | M*1 | MNHCODE | | 00078000
* 8 +-----------+-----------+-----+-----------+-----+ 00079000
* | MNHTOD | 00080000
* C +-----------------------+ 00081000
* 00082000
*** MNHDR - VM MONITOR RECORD HEADER 00083000
SPACE 00084000
MNBHDLEN EQU 4 LENGTH OF THE BLOCK HEADER (VB FORMAT) 00085000
SPACE 00086000
MNHRECSZ DS 1H RECORD SIZE 00087000
DS 1H RESERVED 00088000
MNHCLASS DS 1X M*1 MONITOR CLASS 00089000
MNHCODE DS XL2 MONITOR CODE 00090000
MNHTOD DS XL5 CURRENT TOD CLOCK VALUE 00091000
MNHDRLEN EQU *-MNHDR LENGTH OF THE RECORD HEADER 00092000
SPACE 5 00093000
MN097 DSECT TAPE HEADER, FIRST RECORD OF TAPE FILE 00094000
SPACE 00095000
*** MN097 - VM MONITOR TAPE HEADER RECORD 00096000
* 00097000
* 0 +-----------------------------------------------+ 00098000
* | MN097CPU | 00099000
* 8 +-----------------------------------------------+ 00100000
* | MN097LEV | 00101000
* 10 +-----------------------------------------------+ 00102000
* | MN097DAT | 00103000
* 18 +-----------------------------------------------+ 00104000
* | MN097TIM | 00105000
* 20 +-----------------------------------------------+ 00106000
* | MN097UID | 00107000
* 28 +-----------------------+-----------------------+ 00108000
* | MN097CR8 | MN097NUC | 00109000
* 30 +-----------------------+-----------------------+ 00109100
* | MN097FSS | MN097DPA | 00109200
* 38 +-----------------------+-----------------------+ 00109300
* | MN097TTS | MN097VR | 00109400
* 40 +-----------------------+-----------------------+ 00109500
* | MN097CPL | MN097APL | 00109600
* 44 +-----------+-----------+ 00109700
* 00111000
*** MN097 - VM MONITOR TAPE HEADER RECORD 00112000
SPACE 00113000
MN097CPU DS XL8 CPU SERIAL / MODEL NUMBER 00114000
MN097LEV DS CL8 SYSTEM LEVEL 00115000
MN097DAT DS CL8 CURRENT DATE 00116000
MN097TIM DS CL8 CURRENT TIME 00117000
MN097UID DS CL8 USER STARTING THE MONITOR 00118000
MN097CR8 DS 1F VALUE OF CR8 00119000
MN097NUC DS 1F NUCLEUS SIZE 00119100
MN097FSS DS 1F FREE STORAGE SIZE 00119200
MN097DPA DS 1F DYNAMIC PAGING AREA SIZE 00119300
MN097TTS DS 1F TRACE TABLE SIZE 00119400
MN097VR DS 1F V=R AREA SIZE 00119500
MN097CPL DS 1H CPU LOGICAL ADDRESS 00119600
MN097APL DS 1H APU LOGICAL ADDRESS 00119700
MN097LEN EQU *-MN097 LENGTH OF THE TAPE HEADER RECORD 00120000
EJECT 00121000
MN098 DSECT TAPE TRAILER, LAST RECORD OF TAPE FILE 00122000
SPACE 00123000
*** MN098 - VM MONITOR TAPE TRAILER RECORD 00124000
* 00125000
* 0 +-----------------------------------------------+ 00126000
* | MN098UID | 00127000
* 8 +-----------------------------------------------+ 00128000
* 00129000
*** MN098 - VM MONITOR TAPE TRAILER RECORD 00130000
SPACE 00131000
MN098UID DS CL8 USER STOPPING THE MONITOR 00132000
MN098LEN EQU *-MN098 LENGTH OF THE TAPE TRAILER RECORD 00133000
SPACE 5 00134000
MN099 DSECT 00135000
SPACE 00136000
*** MN099 - VM MONITOR SUSPENSION RECORD 00137000
* 00138000
* 0 +-----------------------------+-----------------+ 00139000
* | MN099TOD | MN099CNT | 00140000
* 8 +-----+-----------------------+-----------------+ 00141000
* | | 00142000
* 9 +-----+ 00143000
* 00144000
*** MN099 - VM MONITOR SUSPENSION RECORD 00145000
SPACE 00146000
MN099TOD DS XL5 TOD CLOCK AT SUSPENSION 00147000
MN099CNT DS XL4 COUNT OF SUSPENSIONS 00148000
MN099LEN EQU *-MN099 LENGTH OF THE SUSPENSION RECORD 00149000
EJECT 00150000
MN000 DSECT 00151000
SPACE 00152000
*** MN000 - VM MONITOR PERFORM CLASS RECORD 00153000
* 00154000
* 0 +-----------------------------------------------+ 00155000
* | MN000WID | 00156000
* 8 +-----------------------------------------------+ 00157000
* | MN000WPG | 00158000
* 10 +-----------------------------------------------+ 00159000
* | MN000WIO | 00160000
* 18 +-----------------------------------------------+ 00161000
* | MN000PRB | 00162000
* 20 +-----------------------+-----------------------+ 00163000
* | MN000PSI | MN000CPA | 00164000
* 28 +-----------------------+-----------------------+ 00165000
* | MN000NFL | MN000PSN | 00166000
* 30 +-----------------------+-----------------------+ 00167000
* | MN000PRC | MN000RPC | 00168000
* 38 +-----------------------+-----------------------+ 00169000
* | MN000SPC | MN000FLF | 00170000
* 40 +-----------------------+-----------------------+ 00171000
* | MN000CPT | MN000SS | 00172000
* 48 +-----------------------+-----------------------+ 00173000
* | MN000PFF | MN000PRF | 00174000
* 50 +-----------------------+-----------------------+ 00175000
* | MN000PCS | MN000NXR | 00176000
* 58 +-----------------------+-----------------------+ 00177000
* | MN000CPR | MN000CVI | 00178000
* 60 +-----------------------+-----------------------+ 00179000
* | MN000CCW | MN000ITI | 00180000
* 68 +-----------------------+-----------------------+ 00181000
* | MN000PTI | MN000CKI | 00182000
* 70 +-----------------------+-----------------------+ 00183000
* | MN000CSV | MN000CPG | 00184000
* 78 +-----------------------+-----------------------+ 00185000
* | MN000CIO | MN000CDS | 00186000
* 80 +-----------------------+-----------------------+ 00187000
* | MN000CDA | MN000CDB | 00188000
* 88 +-----------------------+-----------------------+ 00189000
* | MN000CSC | MN000EK | 00190000
* 90 +-----------------------+-----------------------+ 00191000
* | MN000IK | MN000MS | 00192000
* 98 +-----------------------+-----------------------+ 00193000
* | MN000LP | MN000DI | 00194000
* A0 +-----------------------+-----------------------+ 00195000
* | MN000SI | MN000SF | 00196000
* A8 +-----------------------+-----------------------+ 00197000
* | MN000TI | MN000CI | 00198000
* B0 +-----------------------+-----------------------+ 00199000
* | MN000HI | MN000HD | 00200000
* B8 +-----------------------+-----------------------+ 00201000
* | MN000TC | MN000MN | 00202000
* C0 +-----------------------+-----------------------+ 00203000
* | MN000MO | MN000LR | 00204000
* C8 +-----------------------+-----------------------+ 00205000
* | MN000CP | MN000CH | 00206000
* D0 +-----------------------+-----------------------+ 00207000
* | MN000TE | MN000CE | 00208000
* D8 +-----------------------+-----------------------+ 00209000
* | MN000CT | MN000PE | 00210000
* E0 +-----------------------+-----------------------+ 00211000
* | MN000PT | MN000EP | 00212000
* E8 +-----------------------+-----------------------+ 00213000
* | MN000IP | MN000PB | 00214000
* F0 +-----------------------+-----------------------+ 00215000
* | MN000RR | MN000TCL | 00216000
* F8 +-----------------------+-----------------------+ 00217000
* | MN000LCL | MN000CS | 00218000
* 100 +-----------------------+-----------------------+ 00219000
* | MN000CD | MN000HDI | 00220000
* 108 +-----------------------+-----------------------+ 00221000
* | MN000NDU | MN000NAU | 00222000
* 110 +-----------------------+-----------------------+ 00223000
* | MN000PRD | MN000PWR | 00224000
* 118 +-----------------------+-----------------------+ 00225000
* | MN000NPP | MN000SWS | 00226000
* 120 +-----------------------+-----------------------+ 00227000
* | MN000Q1N | MN000Q2N | 00228000
* 128 +-----------+-----------+-----------+-----------+ 00229000
* | MN000Q1E | MN000Q2E | MN000INT | MN000PPA | 00230000
* 130 +-----------+-----------+-----------+-----------+ 00231000
* | MN000PPC | | MN000ISD | 00232000
* 138 +-----------+-----------+-----------------------+ 00232100
* | MN000GTM | MN000DQM | 00232200
* 140 +-----------------------+-----------------------+ 00232300
* | MN000SWP | MN000EXT | 00232400
* 148 +-----------------------+-----------------------+ 00232500
* | MN000NXT | MN000ATT | 00232600
* 150 +-----------------------+-----------------------+ 00232700
* | MN000CNT | 00232800
* 154 +-----------------------+ 00232900
* 00234000
*** MN000 - VM MONITOR PERFORM RECORD 00235000
SPACE 00236000
MN000WID DS XL8 TOTAL SYSTEM IDLE WAIT TIME 00237000
MN000WPG DS XL8 TOTAL SYSTEM PAGE WAIT TIME 00238000
MN000WIO DS XL8 TOTAL SYSTEM I/O WAIT TIME 00239000
MN000PRB DS XL8 TOTAL SYSTEM PROBLEM STATE TIME 00240000
MN000PSI DS 1F NO. PAGING SIO'S 00241000
MN000CPA DS 1F NO. CALLS TO DMKPAG 00242000
MN000NFL DS 1F NO. OF PAGE FRAMES CURRENTLY ON FREE LIST 00243000
MN000PSN DS 1F NO. OF PAGES CURRENTLY BEING SWAPPED 00244000
MN000PRC DS 1F NO. OF PAGES FLUSHED BUT RECLAIMED 00245000
MN000RPC DS 1F NO. OF RESERVED PAGES 00246000
MN000SPC DS 1F NO. OF SHARED SYSTEM PAGES 00247000
MN000FLF DS 1F NO. OF TIMES THE FREE LIST WAS EMPTY 00248000
MN000CPT DS 1F NO. OF CALLS TO DMKPTRFR 00249000
MN000SS DS 1F NO. OF PAGES STOLEN FROM IN Q USERS 00250000
MN000PFF DS 1F NO. OF PAGES SWAPPED FROM THE FLUSH LIST 00251000
MN000PRF DS 1F NO. OF PAGES EXAMINED IN STEALING A PAGE 00252000
MN000PCS DS 1F NO. OF FULL SCANS DONE IN STEALING PAGES 00253000
MN000NXR DS 1F NO. OF REAL EXTERNAL INTERRUPTS 00254000
MN000CPR DS 1F NO. OF CALLS TO DMKPRVLG 00255000
MN000CVI DS 1F NO. OF CALLS TO DMKVIOEX 00256000
MN000CCW DS 1F NO. OF CALLS TO DMKCCW FROM DMKVIO 00257000
MN000ITI DS 1F NO. OF INTERVAL TIMER INT. REFLECTED 00258000
MN000PTI DS 1F NO. OF CPU TIMER INT. REFLECTED 00259000
MN000CKI DS 1F NO. OF CLOCK COMP INT. REFLECTED 00260000
MN000CSV DS 1F NO. OF SVC INT. REFLECTED 00261000
MN000CPG DS 1F NO. OF PROGRAM INT. HANDLED 00262000
MN000CIO DS 1F NO. OF I/O INTERRUPTS HANDLED 00263000
MN000CDS DS 1F NO. OF CALLS TO DMKDSP (MAIN ENTRY) 00264000
MN000CDA DS 1F NO. OF FAST REFLECTS IN DMKDSP 00265000
MN000CDB DS 1F NO. OF DISPATCHES FOR NEW PSW'S 00266000
MN000CSC DS 1F NO. OF CALLS TO DMKSCHDL 00267000
MN000EK DS 1F INST COUNT FOR X'08' SSK 00268000
MN000IK DS 1F INST COUNT FOR X'09' ISK 00269000
MN000MS DS 1F INST COUNT FOR X'80' SSM 00270000
MN000LP DS 1F INST COUNT FOR X'82' LPSW 00271000
MN000DI DS 1F INST COUNT FOR X'83' DIAG 00272000
MN000SI DS 1F INST COUNT FOR X'9CX0' SIO 00273000
MN000SF DS 1F INST COUNT FOR X'9CX1' SIOF 00274000
MN000TI DS 1F INST COUNT FOR X'9DX0' TIO 00275000
MN000CI DS 1F INST COUNT FOR X'9DX1' CLRIO 00276000
MN000HI DS 1F INST COUNT FOR X'9EX0' HIO 00277000
MN000HD DS 1F INST COUNT FOR X'9EX1' HDV 00278000
MN000TC DS 1F INST COUNT FOR X'9F' TCH 00279000
MN000MN DS 1F INST COUNT FOR X'AC' STNSM 00280000
MN000MO DS 1F INST COUNT FOR X'AD' STOSM 00281000
MN000LR DS 1F INST COUNT FOR X'B1' LRA 00282000
MN000CP DS 1F INST COUNT FOR X'B202' STIDP 00283000
MN000CH DS 1F INST COUNT FOR X'B203' STIDC 00284000
MN000TE DS 1F INST COUNT FOR X'B204' SCK 00285000
MN000CE DS 1F INST COUNT FOR X'B206' SCKC 00286000
MN000CT DS 1F INST COUNT FOR X'B207' STCKC 00287000
MN000PE DS 1F INST COUNT FOR X'B208' SPT 00288000
MN000PT DS 1F INST COUNT FOR X'B209' STPT 00289000
MN000EP DS 1F INST COUNT FOR X'B20A' SPKA 00290000
MN000IP DS 1F INST COUNT FOR X'B20B' IPK 00291000
MN000PB DS 1F INST COUNT FOR X'B20D' PTLB 00292000
MN000RR DS 1F INST COUNT FOR X'B213' RRB 00293000
MN000TCL DS 1F INST COUNT FOR X'B6' STCTL 00294000
MN000LCL DS 1F INST COUNT FOR X'B7' LCTL 00295000
MN000CS DS 1F INST COUNT FOR X'BA' CS 00296000
MN000CD DS 1F INST COUNT FOR X'BB' CDS 00297000
MN000HDI DS 1F DIAGNOSE DISK I/O SIMULATION COUNT 00298000
MN000NDU DS 1F NO. OF USERS DIALED TO A VIRT MACH 00299000
MN000NAU DS 1F NO. OF USERS LOGGED ON 00300000
MN000PRD DS 1F NO. OF PAGE READS 00301000
MN000PWR DS 1F NO. OF PAGE WRITES 00302000
MN000NPP DS 1F NO. OF SYSTEM PAGABLE PAGES 00303000
MN000SWS DS 1F SUM OF WORKING SETS OF IN-Q USERS 00304000
MN000Q1N DS 1F NO. OF USERS IN Q1 00305000
MN000Q2N DS 1F NO. OF USERS IN Q2 00306000
MN000Q1E DS 1H NO. OF USERS ELIG FOR Q1 00307000
MN000Q2E DS 1H NO. OF USERS ELIG FOR Q2 00308000
MN000INT DS 1H MONITOR SAMPLING INTERVAL (SECS) 00309000
MN000PPA DS 1H NO. OF ALLOC. PAGE+SPOOL PSEUDO CYLINDERS 00310000
MN000PPC DS 1H NO. OF USED PAGE+SPOOL PSUEDO CYLINDERS 00311000
DS 1H RESERVED 00311100
MN000ISD DS 1F COUNT OF MINI IOB STACK DEPLETES 00311200
MN000GTM DS 1F COUNT OF MINI IOB ENQUEUES 00311300
MN000DQM DS 1F COUNT OF MINI IOB DEQUEUES 00311400
MN000SWP DS 1F COUNT OF SIO'S ON ALTERNATE PATH 00311500
MN000EXT DS 1F COUNT OF FREE STORE EXTENDS 00311600
MN000NXT DS 1F COUNT OF FREE STORE UNEXTENDS 00311700
MN000ATT DS 1F COUNT OF TYSPLIT ATTEMPTS 00311800
MN000CNT DS 1F COUNT OF SUBPOOL SPLITS 00311900
MN000LEN EQU *-MN000 RECORD LENGTH IN BYTES 00312000
EJECT 00312100
MN001 DSECT 00312105
SPACE 00312110
*** MN001 - VM MONITOR PERFORM CLASS RECORD 00312115
* - APU DATA 00312120
* 00312125
* 0 +-----------------------------------------------+ 00312130
* | MN001WID | 00312135
* 8 +-----------------------------------------------+ 00312140
* | MN001WPG | 00312145
* 10 +-----------------------------------------------+ 00312150
* | MN001WIO | 00312155
* 18 +-----------------------------------------------+ 00312160
* | MN000PRB | 00312165
* 20 +-----------------------------------------------+ 00312170
* | MN001NXR | MN001CSV | 00312175
* 28 +-----------------------------------------------+ 00312180
* | MN001PRD | MN001PWR | 00312185
* 30 +-----------------------------------------------+ 00312186
* | MN001SSY | MN001NSY | 00312187
* 38 +-----------------------------------------------+ 00312188
* | MN001SFR | MN001NFR | 00312189
* 40 +-----------------------------------------------+ 00312190
* | MN001SRN | MN001NRN | 00312191
* 48 +-----------------------------------------------+ 00312192
* | MN001STM | MN001NTM | 00312193
* 50 +-----------------------------------------------+ 00312194
* | MN001SDP | MN001NDP | 00312195
* 58 +-----------------------------------------------+ 00312196
* | MN001NFL | MN001NFS | 00312197
* 60 +-----------------------------------------------+ 00312198
* | MN001NSD | MN001NVD | 00312199
* 68 +-----------------------------------------------+ 00312200
* | MN001NRU | 00312201
* +-----------------------+ 00312202
* 00312203
*** 00312204
SPACE 00312205
MN001WID DS XL8 APU IDLE WAIT TIME 00312210
MN001WPG DS XL8 APU PAGE WAIT TIME 00312215
MN001WIO DS XL8 APU I/O WAIT TIME 00312220
MN001PRB DS XL8 APU PROBLEM STATE TIME 00312225
MN001NXR DS 1F NUMBER OF EXT INT'S TO APU 00312230
MN001CSV DS 1F NUMBER OF SVC'S REFLECTED BY APU 00312235
MN001PRD DS 1F NUMBER OF PAGE READS BY APU 00312240
MN001PWR DS 1F NUMBER OF PAGE WRITES BY APU 00312241
MN001SSY DS 1F TOTAL TIME SPIN ON SYSTEM LOCK @V4M0221 00312242
MN001NSY DS 1F TOTAL NO. SPINS FOR SYSTEM LOCK @V4M0221 00312243
MN001SFR DS 1F TOTAL TIME SPIN ON DMKFRE LOCK @V4M0221 00312244
MN001NFR DS 1F TOTAL NO. SPINS FOR DMKFRE LOCK @V4M0221 00312245
MN001SRN DS 1F TOTAL TIME SPIN ON RUNLIST LOCK @V4M0221 00312246
MN001NRN DS 1F TOTAL NO. SPINS FOR RUNLIST LOCK @V4M0221 00312247
MN001STM DS 1F TOTAL TIME SPIN ON TIMER REQ LOCK@V4M0221 00312248
MN001NTM DS 1F TOTAL NO. SPINS FOR TIMER REQ LCK@V4M0221 00312249
MN001SDP DS 1F TOTAL TIME SPIN ON DISP LOCK @V4M0221 00312250
MN001NDP DS 1F TOTAL NO. SPINS FOR DISP LOCK @V4M0221 00312251
MN001NFL DS 1F NO. TIMES CPFRELK SET @V4M0221 00312252
MN001NFS DS 1F NO. TIMES CPFRESW SET @V4M0221 00312253
MN001NSD DS 1F NO. TIMES SYS LOCK REQ DEFERRED @V4M0221 00312254
MN001NVD DS 1F NO. TIMES VMBLOK LOCK DEFERRED @V4M0221 00312255
MN001NRU DS 1F NO. OF DMKDSPRU ENTRIES @V4M0221 00312256
MN001LEN EQU *-MN001 LENGTH OF RECORD 00312260
EJECT 00313000
MN10X DSECT 00314000
SPACE 00315000
*** MN10X - VM MONITOR RESPONSE CLASS RECORDS 00316000
* 00317000
* 0 +-----------------------------------------------+ 00318000
* | MN10XUID | 00319000
* 8 +-----------+-----+-----------------------------+ 00320000
* | MN10XADD | M*1 | MN10YIO = 00321000
* +-----------+-----+-----------------------------+ 00322000
* 00323000
*** MN10X - VM MONITOR RESPONSE CLASS RECORDS 00324000
SPACE 00325000
MN10XUID DS CL8 USERID 00326000
MN10XADD DS 1H TERMINAL LINE ADDRESS 00327000
MN10XLEN EQU *-MN10X SHORT RECORD LENGTH 00328000
SPACE 00329000
MN10YCNT DS 1X M*1 BYTE COUNT FOR THE FOLLOWING LINE 00330000
MN10YLEN EQU *-MN10X LONG RECORD, HEADER LENGTH 00331000
MN10YIO EQU * INPUT/OUTPUT LINE STARTS HERE 00332000
EJECT 00333000
MN20X DSECT 00334000
SPACE 00335000
*** MN20X - VM MONITOR SCHEDULE CLASS RECORDS 00336000
* 00337000
* 0 +-----------------------------------------------+ 00338000
* | MN20XUID | 00339000
* 8 +-----------------------+-----------------------+ 00340000
* | MN20XNPP | MN20XSWS | 00341000
* 10 +-----------------------+-----------------------+ 00342000
* | MN20XQ1N | MN20XQ2N | 00343000
* 18 +-----------+-----------+-----------+-----+-----+ 00344000
* | MN20XQ1E | MN20XQ2E | MN20XWSS | M*1 | M*2 | 00345000
* 20 +-----------+-----------+-----------+-----+-----+ 00346000
* | MN20YTTI | 00347000
* 28 +-----------------------+-----------------------+ 00348000
* | MN20YVTI | 00349000
* 30 +-----------+-----------+-----------+-----------+ 00350000
* | MN202PRI | MN202PRG | MN202APR | MN202REF | 00351000
* 38 +-----------+-----------+-----------+-----------+ 00352000
* | MN202RES | MN202PST | MN202IOC | 00353000
* 40 +-----------+-----------+-----------------------+ 00354000
* | MN202PNC | MN202LIN | 00355000
* 48 +-----------------------+-----------------------+ 00356000
* | MN202CRD | M*3 | 00357100
* 4D +-----------------------+-----+ 00357200
* 00359000
*** MN20X - VM MONITOR SCHEDULE CLASS RECORDS 00360000
SPACE 00361000
MN20XUID DS CL8 USERID BEING ADDED / DROPPED FROM QUEUE 00362000
MN20XNPP DS 1F NO. OF SYSTEM PAGABLE PAGES 00363000
MN20XSWS DS 1F SUM OF WORKING SETS OF IN-Q USERS 00364000
MN20XQ1N DS 1F NO. OF USERS IN Q1 00365000
MN20XQ2N DS 1F NO. OF USERS IN Q2 00366000
MN20XQ1E DS 1H NO. OF USERS ELIGABLE FOR Q1 00367000
MN20XQ2E DS 1H NO. OF USERS ELIGABLE FOR Q2 00368000
MN20XWSS DS 1H USERS NEW PROJECTED WORKING SET SIZE 00369000
MN20XQNM DS 1X M*1 QUEUE BEING ADDED / DROPPED TO / FROM 00370000
MN20XPRC DS 1X CP TRACE TABLE PROCESSOR ID 00371000
MN203LEN EQU *-MN20X LENGTH OF CL 2 CODE 3 RECORD (ADD Q) 00372000
EJECT 00373000
MN20YTTI DS XL8 CURRENT VMTTIME (CP SIMULATION TIME) 00374000
MN20YVTI DS XL8 CURRENT VMVTIME (USER VIRTUAL TIME) 00375000
MN204PRI DS 1F ELIGABLE LIST PRIORITY 00376000
MN204LEN EQU *-MN20X LENGTH OF CL 2 CODE 4 RECORD (DROP Q) 00377000
SPACE 00378000
ORG MN204PRI BACK-UP TO PRIORITY FIELD 00379000
MN202PRI DS 1H DISPATCH PRIORITY 00380000
MN202PGR DS 1H PAGES READ WHILE IN QUEUE 00381000
MN202APR DS 1H SUM OF PAGE READS RES. AT EACH PAGE 00382300
MN202REF DS 1H NO. OF PAGES REFERENCED WHILE IN Q 00383000
MN202RES DS 1H CURRENT NUMBER OF PAGES RESIDENT 00384000
MN202PST DS 1H NO. OF PAGES STOLEN WHILE IN Q 00385000
MN202IOC DS 1F VIRTUAL NON SPOOL SIO COUNT 00386000
MN202PNC DS 1F VIRTUAL CARDS PUNCHED 00387000
MN202LIN DS 1F VIRTUAL LINES PRINTED 00388000
MN202CRD DS 1F VIRTUAL CARDS READ 00389000
MN202LPR DS 1X M*3 LAST PROCESSOR EXECUTED ON 00389100
MN202LEN EQU *-MN20X LEN OF CL 2 CODE 2 REC (ADD ELIG LIST) 00390000
EJECT 00391000
MN400 DSECT 00392000
SPACE 00393000
*** MN400 - VM MONITOR USER CLASS RECORD 00394000
* 00395000
* 0 +-----------------------------------------------+ 00396000
* | MN400UID | 00397000
* 8 +-----------------------------------------------+ 00398000
* | MN400TTI | 00399000
* 10 +-----------------------------------------------+ 00400000
* | MN400VTI | 00401000
* 18 +-----------------------+-----------------------+ 00402000
* | MN400PGR | MN400PGW | 00403000
* 20 +-----------------------+-----------------------+ 00404000
* | MN400IOC | MN400PNC | 00405000
* 28 +-----------------------+-----------------------+ 00406000
* | MN400LIN | MN400CRD | 00407000
* 30 +-----+-----+-----+-----+-----+-----+-----+-----+ 00408000
* | M*1 | M*2 | M*3 | M*4 | M*5 | M*6 | M*7 | M*8 | 00409000
* 38 +-----+-----+-----+-----+-----+-----+-----+-----+ 00410000
* | M*9 | M*10| M*11| M*12| M*13| M*14| MN400RES | 00411000
* 40 +-----+-----+-----+-----+-----+-----+-----------+ 00412000
* | MN400WSS | MN400PDR | MN400PDK | MN400INT | 00413000
* 48 +-----------+-----------+-----------+-----------+ 00414000
* |M*15 | 00414100
* 49 +-----+ 00414200
* 00415000
*** MN400 - VM MONITOR USER CLASS RECORD 00416000
SPACE 00417000
MN400UID DS CL8 USERID 00418000
MN400TTI DS XL8 CURRENT VMTTIME (CP SIMULATION TIME) 00419000
MN400VTI DS XL8 CURRENT VMVTIME (USER VIRTUAL TIME) 00420000
MN400PGR DS 1F TOTAL PAGE READS - THIS USER 00421000
MN400PGW DS 1F TOTAL PAGE WRITES - THIS USER 00422000
MN400IOC DS 1F VIRTUAL NON SPOOLED SIO COUNT 00423000
MN400PNC DS 1F VIRTUAL CARDS PUNCHED 00424000
MN400LIN DS 1F VIRTUAL LINES PRINTED 00425000
MN400CRD DS 1F VIRTUAL CARDS READ 00426000
MN400RST DS 1X M*1 USER RUNNING STATUS 00427000
MN400DST DS 1X M*2 USER DISPATCH STATUS 00428000
MN400OST DS 1X M*3 USER OPERATING STATUS 00429000
MN400QST DS 1X M*4 USER QUEUING STATUS 00430000
MN400PST DS 1X M*5 USER PROCESSING STATUS 00431000
MN400EST DS 1X M*6 USER EXECUTION STATUS 00432000
MN400TST DS 1X M*7 USER TRACING CONTROL STATUS 00433000
MN400MLV DS 1X M*8 USER MESSAGE LEVEL 00434000
MN400QLV DS 1X M*9 USER QUEUE LEVEL 00435000
MN400CLV DS 1X M*10 USER COMMAND LEVEL 00436000
MN400TLV DS 1X M*11 USER TIMER LEVEL 00437000
MN400PND DS 1X M*12 INTERRUPT PENDING STATUS 00438000
MN400UPR DS 1X M*13 DIRECTORY OR 'SET' PRIORITY 00439000
MN4RSV1 DS 1X M*14 RESERVED 00440000
MN400RES DS 1H NO. OF PAGES RESIDENT 00441000
MN400WSS DS 1H ESTIMATED WORKING SET SIZE 00442000
MN400PDR DS 1H DRUM ALLOCATED PAGE FRAMES 00443000
MN400PDK DS 1H DISK ALLOCATED PAGE FRAMES 00444000
MN400INT DS 1H MONITOR SAMPLING INTERVAL (SECS) 00445000
MN400LPR DS 1X M*15 LAST PROCESSOR EXECUTED ON 00445100
MN400LEN EQU *-MN400 LENGTH OF CL 4 CODE 0 RECORD 00446000
EJECT 00447000
MN500 DSECT 00448000
SPACE 00449000
*** MN500 - VM MONITOR INSTSIM CLASS RECORD 00450000
* 00451000
* 0 +-----------------------------------------------+ 00452000
* | MN500UID | 00453000
* 8 +-----------------------+-----------------------+ 00454000
* | MN500INS | MN500VAD | 00455000
* 10 +-----------------------+-----------------------+ 00456000
* | MN500OVH | 00457000
* 18 +-----------------------------------------------+ 00458000
* 00459000
*** MN500 - VM MONITOR INSTSIM CLASS RECORD 00460000
SPACE 00461000
MN500UID DS CL8 USERID 00462000
MN500INS DS 1F PRIVLGED INSTRUCTION 00463000
MN500VAD DS 1F VIRTUAL STORAGE ADDR OF THE INSTRUCTION 00464000
MN500OVH DS XL8 CURRENT TOTAL OF CP SIMULATION TIME 00465000
MN500LEN EQU *-MN500 LENGTH OF CL 4 CODE 0 RECORD 00466000
SPACE 5 00467000
MN600HDR DSECT HEADER PORTION, PRECEEDS DEVICE PKGS 00468000
MN600NUM DS 1H NUMBER OF DEVICE DATA PKGS WHICH FOLLOW 00469000
MN600HLN EQU *-MN600HDR LENGTH OF THE HEADER 00470000
SPACE 2 00471000
MN600DEV DSECT DEVICE PACKAGE, ONE FOR EACH DEVICE 00472000
SPACE 00473000
*** MN600DEV - VM MONITOR DASTAP CLASS DEVICE PORTION 00474000
* 00475000
* 0 +-----------+-----------+-----------------------+ 00476000
* | MN600ADD | MN600TY | MN600SER | 00477000
* 8 +-----------+-----------+-----------+-----------+ 00478000
* | | MN600CNT | 00479000
* E +-----------+-----------------------+ 00480000
* 00481000
*** MN600DEV - VM MONITOR DASTAP CLASS DEVICE PORTION 00482000
SPACE 00483000
MN600ADD DS 1H DEVICE ADDRESS 00484000
MN600TY DS 1H VM/370 DEVICE TYPE/CODES 00485000
MN600SER DS CL6 VOLUME SERIAL NUMBER 00486000
MN600CNT DS XL4 DEVICE ACCUMULATED I/O COUNT 00487000
MN600DLN EQU *-MN600DEV LENTH OF EACH DATA RECORD 00488000
SPACE 00489000
MN600MAX EQU (4096-MNBHDLEN-MNHDRLEN-MN600HLN)/MN600DLN MAX DEV COUNT 00490000
MN600MXS EQU (4096-MNBHDLEN-16-MNHDRLEN-MN600HLN-8)/MN600DLN @VA09588 00490200
** MAX DEV COUNT ON SPOOLING TIME @VA09588 00490400
EJECT 00491000
MN602HDR DSECT HEADER PORTION, PRECEDES DEV PKGS 00491010
MN602SAM DS 1H NO. SAMPLES FOR INTERVAL 00491020
MN602HLN EQU *-MN602HDR LENGTH OF THE HEADER 00491030
SPACE 2 00491040
MN602DEV DSECT DEVICE PACKAGE, 1 PER DEVICE 00491050
SPACE 00491060
*** MN602DEV - VM MONITOR DASTAP CLASS UTILIZATION RECORD 00491070
* 00491080
* 0 +-----------+-----------+-----------+-----------+ 00491090
* | MN602ADD | MN602CHB | MN602CUB | MN602DEB | 00491100
* 8 +-----------+-----------+-----------+-----------+ 00491110
* | MN602CHQ | MN602CUQ | M*1 | 00491120
* D +-----------+-----------+-----+ 00491130
* 00491140
*** MN602DEV - VM MONITOR DASTAP CLASS I/O UTILIZATION 00491150
SPACE 00491160
MN602ADD DS 1H DEVICE ADDRESS 00491170
MN602CHB DS 1H NO. TIMES CHANNEL BUSY 00491180
MN602CUB DS 1H NO. TIMES CONTROL UNIT BUSY 00491190
MN602DVB DS 1H NO. TIMES DEVICE BUSY 00491200
MN602CHQ DS 1H I/O TASKS QUEUED ON CHANNEL 00491210
MN602CUQ DS 1H I/O TASKS QUEUED ON CONTROL UNIT 00491220
MN602DVQ DS 1X M*1 I/O TASKS QUEUED ON DEVICE 00491230
MN602DLN EQU *-MN602DEV LENGTH OF DEVICE PORTION 00491240
MN700 DSECT 00492000
SPACE 00493000
*** MN700 - VM MONITOR SEEKS CLASS RECORD 00494000
* 00495000
* 0 +-----------------------------------------------+ 00496000
* | MN700UID | 00497000
* 8 +-----------+-----------+-----------+-----+-----+ 00498000
* | MN700ADD | MN700CYL | MN700CCY | M*1 | M*2 | 00499000
* 10 +-----+-----+-----------+-----------+-----+-----+ 00500000
* | M*3 | M*4 | 00501000
* 12 +-----+-----+ 00502000
* 00503000
*** MN700 - VM MONITOR SEEKS CLASS RECORD 00504000
SPACE 00505000
MN700UID DS CL8 USERID 00506000
MN700ADD DS 1H DEVICE ADDRESS 00507000
MN700CYL DS 1H CYLINDER SEEKING TO 00508000
MN700CCY DS 1H CYLINDER CURRENTLY POSITIONED UPON 00509000
MN700QDV DS 1X M*1 I/O TASKS QUEUED ON THE DEVICE 00510000
MN700QCU DS 1X M*2 I/O TASKS QUEUED ON THE CONTROL UNIT 00511000
MN700QCH DS 1X M*3 I/O TASKS QUEUED ON THE CHANNEL 00512000
MN700DIR DS 1X M*4 SEEK DIRECTION 00 = LOWER, 01 = HIGHER 00513000
MN700LEN EQU *-MN700 LENGTH OF CL 7 CODE 0 RECORD 00514000
EJECT 00515000
MN802DEV DSECT HEADER PORTION, PRECEEDS COUNTER PORTION 00516000
MN802NUM DS 1H NO. OF DEVICE BLOCK COUNTERS WHICH FOLLOW 00517000
MN802DLN EQU *-MN802DEV LENGTH OF THE HEADER 00518000
MN802CNT DS XL4 DEVICE I/O COUNT 00519000
SPACE 2 00520000
MN802CTR DSECT COUNTER PORTION 00521000
SPACE 00522000
*** MN802DEV - VM MONITOR SYSPROF CLASS COUNTER PORTION 00523000
* 00524000
* 0 +-----------------------+-----------------------+ 00525000
* | MN802NAU | MN802PGR | 00526000
* 8 +-----------------------+-----------------------+ 00527000
* | MN802PGW | MN802NPP | 00528000
* 10 +-----------------------+-----------------------+ 00529000
* | MN802WID | 00530000
* 18 +-----------------------------------------------+ 00531000
* | MN802WPG | 00532000
* 20 +-----------------------------------------------+ 00533000
* | MN802WIO | 00534000
* 28 +-----------------------------------------------+ 00535000
* | MN802PRB | 00536000
* 30 +-----------------------------------------------+ 00537000
* 00538000
*** MN802DEV - VM MONITOR SYSPROF CLASS COUNTER PORTION 00539000
SPACE 00540000
MN802NAU DS 1F NO. OF LOGGED ON USERS 00541000
MN802PGR DS 1F TOTAL SYSTEM PAGE READS 00542000
MN802PGW DS 1F TOTAL SYSTEM PAGE WRITES 00543000
MN802NPP DS 1F NO. OF SYSTEM PAGABLE PAGES 00544000
MN802WID DS XL8 TOTAL SYSTEM IDLE WAIT TIME 00545000
MN802WPG DS XL8 TOTAL SYSTEM PAGE WAIT TIME 00546000
MN802WIO DS XL8 TOTAL SYSTEM I/O WAIT TIME 00547000
MN802PRB DS XL8 TOTAL SYSTEM PROBLEM TIME 00548000
MN802CLN EQU *-MN802CTR LENGTH OF EACH DATA ENTRY 00549000
EJECT 00550000
POP PRINT @VA04958 00551000
SPACE 00552000