*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