DSECT 情報を使用したストレージ域のマッピング
対話式レポートにおいて DSECT コマンドを使用すると、アセンブラー・マクロまたは DSECT サンプル集を含む PDS または PDSE データ・セット・メンバーに基づき、ストレージ域をマップできます。
DSECT コマンド (構文についてはDSECTを参照) は、任意の画面のコマンド行 または PF キー割り当てによって入力できます。デフォルトでは、DSECT コマンドは PF4 に割り当てられています。
呼び出すと、次のようなポップアップ・ウィンドウが表示されます。図 1. Storage DSECT Mapping Entry 画面の例
File View Services Help ┌─────────────────────────── Storage DSECT Mapping ───────────────────────────┐ │ │ │ Enter the name of the Dsect in the Dsect Name field to be used to map the │ │ storage address provided in the Address field. Press PF4 to display a list │ │ of all available Dsects. Optionally a specific Dsect can be used by │ │ supplying a Dataset and Member name in the DSN field. In this case if a │ │ Dsect name is not provided it will be made equal to the member name. │ │ │ │ Address │ │ Dsect Name │ │ DSN . . . │ │ │ │ │ │ F1=Help F3=Exit F12=Cancel │ └─────────────────────────────────────────────────────────────────────────────┘ First Operand Address . . : 0002A120 (3808 bytes of storage addressable) First Operand Length. . . : 8 First Operand Storage . . : 00000000 0986888C *.....fh.* Second Operand Address. . : 0002A110 (3824 bytes of storage addressable) Second Operand Length . . : 4 Second Operand Storage. . : C1C2C3CF *ABC.* F1=Help F3=Exit F5=RptFind F6=Actions F7=Up F8=Down F10=Left F11=Right
注: ポイント・アンド・シュート・フィールドのアドレス上にカーソルがあるときに DSECT コマンドを発行した場合、ポップアップ画面のアドレスは、そのアドレスで自動的に初期化されます。
開始アドレス (まだ入力済みでない場合)、およびストレージ域のマッピング時に使用する DSECT の名前を入力できます。Address フィールドは 64 ビット対応です。詳しくは、64 ビット・アドレスの指定を参照してください。
DSECT の名前は次のいずれかの方法で提供できます。
- DSECT 名のみを入力します。この場合、一致する IDIDSECT 連結が検索されます (詳細についてはIDIDSECT 連結を参照)。要求された DSECT が IDIDSECT 連結に複数ある場合、PF4 を押し、選択可能なすべての DSECT のリストから適切なものを選択します。「S」を使用すると DSECT をリストから選択でき、「E」を使用すると編集できます。
- 指定された DSECT が保管されたデータ・セットおよびメンバー名を入力します。DSECT 名が指定されない場合、PDS または PDSE メンバー名と同様の名前がデフォルトとして使用されます
有効なストレージ・アドレスおよび DSECT 名が指定されると、次の例のようにストレージはマップされて表示されます。図 2. Storage DSECT Mapping Map 画面の例
File View Services Help
───────────────────────────────────────────────────────────────────────────────
Dsect mapping for DFHCSADS at address 4de20 Line 1 Col 1 80
Command ===> ________________________________________________ Scroll ===> CSR
CICS DUMP: SYSTEM=QXPM2C61 CODE=ASRA ID= MVS2 2019/06/25 13:47:55
0004DE20 +0000 DSECT DFHCSADS
DFHCSABA EQU *
0004DE20 +0000 00000248 0000D0A0 17EB4D00 983C1ECE
80BF4DA8 80800000 18685160 18642330
000003FD 18973FB8 00000BAF 00000000
983C1A40 18973000 18685160 18684B70
00051D80 17F90680 CSAOSRSA DS 18F
CSASOSI DS 0B
0004DE68 +0072 00 CSASSI1 DS B
CSAFPURG EQU X'80'
CSAFTCAB EQU X'40'
CSASDTRN EQU X'20'
CSACSDOP EQU X'02'
CSASOSON EQU X'01'
CSAKCMI DS 0B
0004DE69 +0073 10 CSASSI2 DS B
F1=Help F3=Exit F5=RptFind F6=Actions F7=Up F8=Down
F10=Left F11=Right
さらに DSECT 情報を表示する必要がある場合は、上下左右にスクロールします。
PF3 を押すと、Storage DSECT Mapping Map 画面から戻ります。