*COPY SHRTABLE 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').SHR01 00001400
PRINT OFF,NOGEN 00001600
.SHR01 ANOP 00001800
SHRTABLE DSECT 00002000
SPACE 00003000
*** SHRTABLE - SHARED SEGMENT TABLE FOR SAVED SYSTEMS 00004000
* 00005000
* 0 +-----------------------+-----------------------+ 00006000
* | S*1 | SHRFPNT | SHRBPNT | 00007000
* 8 +-----------------------+-----------------------+ 00008000
* | SHRNAME | 00009000
* 10 +-----------+-----------+-----------------------+ 00010000
* | SHRTSIZE | SHRUSECT | SHRSEGCT | 00011000
* 18 +-----------+-----------+-----------------------+ 00012000
* | SHRSEGNM | SHRSEGNM | 00013000
* +-----------------------+-----------------------+ 00014000
* | SHRPAGE | SHRPAGE | 00015000
* +-----------------------+-----------------------+ 00016000
* 00017000
*** SHRTABLE - SHARED SEGMENT TABLE FOR SAVED SYSTEMS 00018000
SPACE 00019000
SHRFPNT DS 1F POINTER TO NEXT SHRTABLE 00020000
ORG SHRFPNT 00020100
SHRFLAG DS 1X S*1 SHARED SEGMENT FLAG BYTE 00020200
DS 3X 00020300
SHRBPNT DS 1F POINTER TO PREVIOUS SHRTABLE 00021000
SHRNAME DS CL8 NAME OF SAVED SYSTEM 00022000
SHRTSIZE DS 1H SIZE OF SHRTABLE IN DOUBLE WORDS 00023000
SHRUSECT DS 1H NUMBER OF USERS IPL'ED TO THIS NAME 00024000
SHRSEGCT DS 1F NUMBER OF SHARED SEGMENTS 00025000
SHRSEGNM DS 1F CONTAINS SHARED SEGMENT NUMBERS 00026000
* UP TO FOUR SEGMENT NUMBERS PER WORD 00027000
SHRPAGE DS 1F POINTERS TO EACH OF THE SHARED PAGTABLES 00028000
* THERE IS ONE WORD FOR EACH SHARED SEGMENT 00029000
* THE ENTRY IS THE SAME AS 'S*1 SEGPAGE' IN 00030000
* THE SEGTABLE 00030500
* 00030600
* FLAG BITS DEFINED IN SHRFLAG 00030700
SHRNOPRT EQU X'40' NONPROTECTED SHARED SEGMENTS 00030800
SPACE 2 00030900
* NOTE: IN ATTACHED PROCESSOR MODE, THERE WILL BE 00031001
* TWO SETS OF PAGTABLES FOR EACH SHARED SEGMENT, ONE FOR 00031002
* THE MAIN PROCESSOR AND ONE FOR THE ATTACHED PROCESSOR. 00031003
* SHRPAGE WILL POINT TO THE PAGTABLES FOR THE MAIN PROCESSOR 00031004
* AND THE PAGTABLES FOR THE ATTACHED PROCESSOR WILL BE AT 00031005
* A FIXED OFFSET FROM THE PAGTABLES FOR THE MAIN PROCESSOR. 00031006
EJECT 00031010
SPACE 1 00031020
VMABLOK DSECT 00031030
SPACE 1 00031040
*** VMABLOK - SHARED SYSTEMS RUNNING WITH VMA 00031050
* 00031060
* 0 +-----------------------+-----------------------+ 00031070
* | VMAFPNT | VMASHRBK | 00031080
* 8 +-----------------------+-----------------------+ 00031090
* | VMANAME | 00031100
* +-----------------------------------------------+ 00031110
* 00031120
*** VMABLOK - SHARED SYSTEMS RUNNING WITH VMA 00031130
SPACE 1 00031140
VMAFPNT DS 1F FORWARD POINTER TO NEXT VMABLOK 00031150
VMASHRBK DS 1F ADDRESS OF SHARE TABLE (SHRTABLE) 00031160
VMANAME DS CL8 IDENTIFICATION OF NAMED SHARED SYSTEM 00031170
SPACE 1 00031180
VMASIZE EQU (*-VMABLOK)/8 VMABLOK SIZE IN DOUBLE WORDS 00031190
EJECT 00032000
POP PRINT 00033000
SPACE 00034000