LIBDEF を使用した Z Data Tools の呼び出し

HFMELIBD は、Z Data Tools のフィーチャーおよび機能の LIBDEF 呼び出しを提供する多目的の REXX exec です。これにより、Z Data Tools のフィーチャーまたは機能を呼び出す前に LIBDEF を実行する、ユーザーがコーディングしたさまざまな EXEC が不要になります。exec は以下のように実行されます。

値

説明

ZDT

Z Data Tools の基本オプション・メニューを起動します。

ZI

ZDT/IMS の基本オプション・メニューを起動します。

ZD

ZDT/Db2 の基本オプション・メニューを起動します。

FND

Z Data Tools の拡張検索機能を起動します。

LST

Z Data Tools の拡張参照リストを起動します。

FUN

入力パネルにデータを設定するデータ・セット名を使用して、サポートされる Z Data Tools サポート機能を起動します。FUN パラメーター構文を参照してください。

DEF

Z Data Tools 機能をキーワード・モードで呼び出す REXX によって Z Data Tools ライブラリーの LIBDEF を実行します。

DROP

HFMELIBD DEF コマンドによって LIBDEF セットアップをクリアします。

INV

ISPF 構成テーブルで指定されている HFMINV と同等の機能を実行します。

HFMELIBD INV DSE / は HFMINV DSE / と等価の LIBDEF です。
HFMELIBD INV DSB / は HFMINV DSB / と等価の LIBDEF です。
HFMELIBD INV DSV / は HFMINV DSV / と等価の LIBDEF です。

詳しくは、「Z Data Tools をデフォルトの VSAM エディターにする」を参照してください。

MENU

HFMR exec と同等の短縮メニューの LIBDEF 呼び出しを提供します。

詳しくは、「ISPF 3.4 またはデータ・セット・リストからの Z Data Tools の起動」を参照してください。

注:

使いやすくするために、次のように短縮名の中間 exec を作成します。

Example. Create member LFM in a data set in the SYSPROC or SYSEXEC concatenations.
	/* REXX – LIBDEF invocation of Z Data Tools from ISPF 3.4 */
	ARG DSN
	CALL HFMELIBD ‘MENU ‘dsn
	EXIT

この場合、LFM は、ISPF 3.4 またはデータ・セット・リストから Z Data Tools 短縮メニューを呼び出すコマンドです。

FUN パラメーター構文

FUN を指定すると、次の構文が適用されます。

HFMELIBD FUN function 'dsn1(mbr1)' 'dsn2(mbr2)' 'dsn3(mbr3)' 'dsn4(mbr4)'

function は、サポートされる以下の機能のいずれかでなければなりません。

値: 説明
CLM: ロード・モジュールの比較
DSB: データ・セットのブラウズ
DSC: データ・セットのコピー
DSE: データ・セットの編集
DSG: データ・セットの作成
DSM: データ・セットの比較
DSV: データ・セットの表示
PBK: コピーブックまたはテンプレートの印刷と表示
SCS: カタログ・サービス
TPIMP: テンプレートのインポート
TPEXP: テンプレートのエクスポート
TPED: テンプレートの編集
TPUP: テンプレートの更新
VLM: ロード・モジュールの表示

'dsn1(mbr1)' は、入力データ・セットまたはパス名です。

'dsn2(mbr2)' は入力テンプレートです (迂回する場合は「-」を指定してください)。

'dsn3(mbr3)' は、出力データ・セットまたはパス名です。

'dsn4(mbr4)' は、出力テンプレートです。

注:

HFMELIBD REXX exec を使用して、機能 DSC、DSE、および DSV を呼び出し、適切な形式を使用してデータ・セット、CICS リソース、および MQ キューをコピー、編集、および表示できます。例えば、機能 DSE に対して HFMELIBD を呼び出す形式は次のとおりです。

データ・セット: call HFMELIBD FUN DSE 'data.set.name(memname)'
CICS リソース: call HFMELIBD FUN DSE 'rt:applid:rname'
MQ キュー: call HFMELIBD FUN DSE 'MQ:managerid:queuename'

これらのリソースの指定について詳しくは、CICS リソースの指定およびMQ マネージャーまたはキューの指定を参照してください。

例 1.選択パネルからの Z Data Tools、ZDT/IMS、および ZDT/Db2 基本オプションの呼び出し

⋮)BODY CMD(ZCMD) ...
9       IBM                     Products IBM program development products
10      SCLM                    SW Configuration Library Manager
11      Workplace               ISPF Object/Action Workplace
ZDT     Z Data Tools            Z Data Tools                          NEW
ZI      ZDT/IMS                 Z Data Tools IMS component            NEW
ZD      ZDT/Db2                 Z Data Tools Db2 component            NEW
⋮
)PROC  
⋮
&ZSEL = TRANS( TRUNC (&ZCMD,'.')  
⋮
9,'PANEL(ISRDIIS) ADDPOP'
10,'PGM(ISRSCLM) SCRNAME(SCLM) NOCHECK'
11,'PGM(ISRUDA) PARM(ISRWORK) SCRNAME(WORK)'
ZDT,'CMD(HFMELIBD ZDT)' /* Z Data Tools */                            Ⓝⓔⓦ
ZI,'CMD(HFMELIBD ZI)'   /* ZDT/IMS      */                            Ⓝⓔⓦ
ZD,'CMD(HFMELIBD ZD)'   /* ZDT/Db2      */                            Ⓝⓔⓦ

例 2.LIBDEF 呼び出しの ISPF コマンド・テーブル

     Verb      T  Action  
____ ZDT       2  SELECT CMD(%HFMELIBD ZDT &ZPARM)      <= Z Data Tools Base  
____ ZI        2  SELECT CMD(%HFMELIBD ZI  &ZPARM)      <= ZDT/IMS     
____ ZD        2  SELECT CMD(%HFMELIBD ZD  &ZPARM)      <= ZDT/Db2  
____ ELIST     2  SELECT CMD(%HFMELIBD LST &ZPARM)      <= Enhanced reference list  
____ EFIND     2  SELECT CMD(%HFMELIBD FND &ZPARM)      <= Enhanced search

例 3.REXX を使用した VLM 機能の呼び出し (ロード・モジュールの表示)

この例では、Z Data Tools オプション 3.10.1 を実行し、入力データ・セット・フィールドに 'HFM.LOAD' を追加します。

/* REXX */ 
call HFMELIBD FUN VLM 'HFM.LOAD'

例 4.REXX を使用した DSE 機能の呼び出し (データ・セットの編集)

この例では、Z Data Tools オプション 2 を実行し、入力データ・セット・フィールドおよびテンプレート・フィールドにデータを設定します。

/* REXX */ 
call HFMELIBD FUN DSE 'HFM.FMDATA'  'HFM.TEMPLATE(SAMPLE)'

例 5.REXX を使用した DSE 機能の呼び出し (MQ キューの編集)

この例では、Z Data Tools オプション 2 を実行し、入力データ・セット・フィールドに MQ キューを追加します。

{{/* REXX */ 
call HFMELIBD FUN DSE 'MQ:MQ91:HFM.QUEUE.TEST'}}

例 6.DEF パラメーターおよび DROP パラメーターを使用した REXX ロード・モジュール・レポート

/* REXX - VIEW LOAD MODULE - XML REPORT    */                  
/*                                         */                  
CALL HFMELIBD DEF                                              
ADDRESS TSO                                                    
  "ALLOC FI(SYSPRINT) DUMMY REUSE"                             
  'ALLOC FI(HFMXMLO) NEW SP(1,5) TRACKS,                       
        LRECL(1024) BLKSIZE(32720) RECFM( V B )'               
ADDRESS ISPEXEC                                                
  "SELECT CMD(HFMMAIN $VLM DSNIN='HFM.LOAD'",                  
      "MEMBER=TURBO1,FUNCTION=PRINT,DATEFORM=YYMMDD,XML=YES)"  
ADDRESS TSO                                                    
  'EXECIO * DISKR HFMXMLO (STEM XMLO. FINIS'                   
  IF RC = 0 THEN DO                                            
    DO I = 1 TO XMLO.0                                         
      SAY XMLO.I                                               
    END                                                        
  END                                                          
  "FREE FI(HFMXMLO)"                                           
  "FREE FI(SYSPRINT)"                                          
CALL HFMELIBD DROP                                             
EXIT 0;