01.3獲得済み領域の管理（VSMLIST）
プログラムが仮想記憶内のどの領域をGETMAINしているかをマッピングすることができます。一般のプログラムではほとんど必要とされませんが、サーバー・プログラムなどで、自分が使用しているリソース量の詳細を得る機能などを実装する場合などに利用できます。
VSMLISTマクロでストレージ・マップを作る
リージョン（PVT域）内のGETMAIN済み領域をリストする
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
GETVSMAP DS 0H
VSMLIST SP=PVT,SPACE=FREE, BUILD ALLOC AND FREE SPACE MAP +
WKAREA=(VSMLIST,4096)
CH RF,=H'4' SUCCESSFUL ?
BH VSMERROR NO,
:
: 返されたマップ情報から割当て済み領域のアドレスと長さを得る。
:
CLI VSMLIST+3,4 PARTIAL DONE ?
BE GETVSMAP YES, READ AGAIN
:
:
:
DS 0D
VSMLIST DC 4096X'00' VSMLIST MAP AREA
SP=PVT指定のVSMLISTでプログラムがリージョン内にどれだけのGETMAINを出しているかを知ることができます。返される領域情報はGETMAINして割当て中の仮想ページのアドレスと大きさ（4KB単位）です。SPACE=FREEパラメーターを追加することで、割当て中ページ内の空きスペース長も得ることができます。割当て中ページの大きさから空きスペース長を引けば、そのページ内でのGETMAIN済み領域長となります。なお連続するページ内で複数回に渡ってGETMAINしても、割当て済み領域が連続すれば1つの割当て済み領域として返されますから、どの長さで何回GETMAINしたかはトレースできません。例えば1504バイトの長さで2回連続したGETMAINをしても、VSMLISTでは3008バイトの領域が割当て中と返されます。
共通域（CSA）内の割当て済みページをリストする
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
GETVSMAP DS 0H
VSMLIST SP=CSA,SPACE=ALLOC, BUILD CSA ALLOCATED MAP +
WKAREA=(VSMLIST,4096)
:
:
CSAの割当て済み領域のリストを作成するには、SPパラメーターにCSAを指定します。他にもLSQA、SQAが指定できます。PVTの場合は領域を割り振ったタスクを判別するTCBアドレスがリスト内に設定されますが、CSAの場合は0がセットされ、具体的にどのタスクあるいはジョブでCSAを割り振ったかはわかりません。ただし割り振られている領域の記憶保護キーが返されるので、キーの値によってどのコンポーネントで使っている領域かは大まかな見当を付けることはできます。例えばキーが6であればVTAMやTCPIP関連の領域、キーが5であればDFSMS関連の領域、キーが1であればJES関連の領域、という具合です。キーが8であれば主にアプリケーション（ベンダー・ソフトウェア含む）が割り振った領域となりますが、z/OSのV1R9からはユーザーキーでのCSA割り振りを認めないのがシステム・デフォルトになってしまったため、PARMLIBのDIAGxxパラメーターでユーザーキーCSAを認めていない限り、アプリケーションであっても7以下（おそらくは0）のキーの領域しか割り振れません。
VSMLISTによって返されるストレージ・マップリスト
ヘッダー域(VSMLISTのWKAREAパラメーターで指定した領域の先頭)
+----------------------+
+00 I 復帰コード I
+----------------------+
+04 I データ域のアドレス I
+----------------------+
+08 I データ域の長さ I
+----------------------+
I I
〓〓 〓〓
I I
+----------------------+
データ域(SP=PVT,SPACE=FREE指定の形式)
+----------------------------+
+00 I TCBの数 I
+----------------------------+
+04 I TCBアドレス I --> VSMLIST発行タスク
+----------------------------+
+08 I サブプール数 = 3 I <-- sp=CSAの場合はここから始まる +----------------------------+
+12 i サブプール記述子 i
+16 オーナータスクtcb --> GETMAINしたタスクのTCB
+----------------------------+
+20 I 割当て済みブロック数 = 2 I
+----------------------------+
+24 I 割当て済み領域のアドレス I
+----------------------------+
+28 I 割当て済み領域の長さ I --> バイト単位だが4KBの倍数
+----------------------------+
+32 I ページ内空き領域の数 = 2 I
+----------------------------+
+36 I 空き領域のアドレス I
+----------------------------+
+40 I 空き領域の長さ I
+----------------------------+
+44 I 空き領域のアドレス I
+----------------------------+
+48 I 空き領域の長さ I
+----------------------------+
+52 I 割当て済み領域のアドレス I
+----------------------------+
+56 I 割当て済み領域の長さ I
+----------------------------+
+60 I ページ内空き領域の数 = 0 I
+----------------------------+
+64 I サブプール記述子 I
+----------------------------+
+68 I オーナータスクTCB I --> GETMAINしたタスクのTCB
+----------------------------+
+72 I 割当て済みブロック数 = 1 I
+----------------------------+
+80 I 割当て済み領域のアドレス I
+----------------------------+
+84 I 割当て済み領域の長さ I
+----------------------------+
+88 I ページ内空き領域の数 = 0 I
+----------------------------+
:
:
:
サブプール記述子(4バイト)
+----+----+----+------------+ SPはサブプール番号
+00 I 00 I 08 I SP I KEY + XX00 I KEYは記憶保護キー(4ビット)
+----+----+----+------------+ XXはフラグビット
4bit+4bit
VSMLISTで戻される割当て済み領域および空き領域リストは上記のような構造の可変長エントリーのテーブルです。1つ1つのエントリーをたどってGETMAIN済み領域のアドレスと長さを求めることができます。MVSではGETMAINによって領域を割り振る時、必要なページを切り出した後、特に指定されない限りページの後方から領域を割り振ります。例えば切り出したページアドレスがx10000番地の時、GETMAINで1000バイト（x3E8）の長さを要求すると、x10C18番地からx10FFF番地までの1000バイトが割り振られます。そのページのx10000番地からx10C17番地までは空き領域で、次のGETMAIN等で使用されます。GETMAINで5000バイト要求した場合は、2ページが切り出され、後方ページの後方アドレスから割り振られます。
VSMLISTはたとえシステムプログラムであっても滅多に必要とするAPIではありませんが、仮想記憶の中がどのように使われているかを調べたいような場合に利用できます。存在ぐらいを覚えておけばいいでしょう。マクロの使い方、返答領域の構造などの詳細はマニュアル、「MVS許可アセンブラーサービスの手引き（Authorized Assembler Services Guide）」「MVS許可アセンブラーサービス解説書（Authorized Assembler Services Reference）」に記載されています。マニュアルは許可アセンブラーサービスとなっていますが、非APFプログラムでも使用できます。
その他の仮想記憶管理関連マクロ
VSMLOCマクロでストレージの妥当性をテストする
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
L R2,AWORK LOAD STORAGE ADDRESS
L R3,LWORK LOAD STORAGE LENGTH
VSMLOC PVT, VALIDATE STORAGE ADDRESS +
AREA=((2),(3))
LTR RF,RF VALID STORAGE ?
BNZ STOERROR NO, INVALID STORAGE ADDR/LNG
:
:
VSMLOCマクロを使えば、メモリーアドレスの正当性をチェックすることができます。例えばサブルーチンでパラメーター領域として正しいアドレスが渡されたかどうかをチェックしたい、といった場合に利用できます。従来このようなチェックをするにはプログラムを監視プログラムモードにして、LRAやTPROT命令を使うのが一般的でした。監視プログラムモードのプログラムなら機械命令でチェックした方がパフォーマンス面でも有利ですが、非APFプログラムなど監視プログラムモードで走行することができないプログラムでも、仮想記憶アドレスの正当性が確認できます。これによって誤ったアドレスをハンドリングしたことによるS0C4ABENDを抑止するようなガードを掛けることもできます。
スーパーバーザー・モードのプログラムなら機械命令でチェックできる
TPROT 0(R2),0 VALIDATE STORAGE ADDRESS
BC 3,STOERROR IF INVALID ADDRESS, INFORM IT
LA R1,0(R3,R2) LOAD ENDING ADDRESS
BCTR R1,0 CORRECT IT
TPROT 0(R1),0 VALIDATE STORAGE ADDRESS
BC 3,STOERROR IF INVALID ADDRESS, INFORM IT
:
:
VSMREGNマクロでリージョンの開始アドレスと大きさを求める
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
VSMREGN WKAREA=RGNLIST EXTRACT OUR MAXIMUM REGION SIZE
:
:
RGNLIST DC 4F'0'
VSMREGNマクロを使えば、利用可能な私用域の最大サイズを求めることができます。簡単ですが返ってくるのはそのシステムでの構成上の最大値で、JCLのREGIONパラメーター値は考慮されていません。利用可能な残りのストレージ量を実用的に求めるなら、LDAというOSの制御表を参照する方が確実です。
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
SAM31 CHANGE US TO AMODE=31
L R2,PSAAOLD-PSA(0,0) LOAD OUR ASCB ADDRESS
L R2,ASCBLDA-ASCB(,R2) LOAD LDA(ALLOCATED PVT REGION)
L R3,LDAREGRQ-LDA(,R2) REGION SIZE REQUESTED
L R4,LDALIMIT-LDA(,R2) BELOW 16M V=V REGION LIMIT VALU
L R5,LDAVVRG-LDA(,R2) BELOW 16M V=V REGION HIGH VALUE
L R6,LDAELIM-LDA(,R2) ABOVE 16M V=V REGION LIMIT VALU
L R7,LDAEVVRG-LDA(,R2) ABOVE 16M V=V REGION HIGH VALUE
:
:
IHAPSA , PSA
IHAASCB , ASCB
IHALDA , LDA