MFDAS AWM API を使用すると、Enterprise Developer コマンド プロンプトから AWM ISPF コマンドを呼び出すことができます。AWM ISPF コマンドは、AWM ISPF ツール インターフェイスの定義に従って作成された REXX プロシージャ、CLIST、またはロード モジュールです。AWM ISPF コマンドは、ツール インターフェイスの REXX プロシージャ TAUZCIF を介して呼び出されます。
MFDAS AWM コマンドを使用する前に、z/OS 上の MFA サーバー接続に接続する必要があります。これは、MFDASMX コマンドを使用して実行できます。MFDASMX コマンドには、接続プロパティ (ホスト名とポート) およびユーザー資格情報 (ユーザー ID とパスワード) が必要です。最初の AWM ISPF コマンドが送信されると、資格情報が再度要求されます。
AWM ISPF コマンドの呼び出し例は、次のようになります。
MFDAS AWM /amslog="c:\temp\awm.log" "TAUZCIF INPARM(SOURCE;%;SMPLTEST;%;T;%;1;%;MFUID;%;BANKDEMO;%;COBOL;%;BBANK10P;%;0102) FORM(REXX) TOOL(TAUENEPR) EXITPARM(TEST) ENV(ONLINE)"
MFDAS AWM を介して呼び出される REXX プロシージャが、ISPF ツールをモデル化するための規則に準拠していることを確認する必要があります。詳細については、「ISPF Function Package」の章の「ISPF ツールの接続」を参照してください。
前の例で使用されている AWM ISPF コマンドは、システム MFUID およびサブシステム BANKDEMO にある Endevor 要素 BBANK10P のすべてのプロパティを取得します。Enterprise Developer では、対応する接続モデルでコマンドを実行することで、AWM ISPF コマンドの構造を確認できます。-debug オプションを使用して、Enterprise Developer を起動します。
Eclipse エラー ログでは、次のタグでコマンドを見つけることができます。
!MESSAGE Sending TSO Command String:
AWM ISPF コマンドの出力は、上記の例で示されているように、MFDAS コマンドで指定されたローカル ログファイル (c:\temp\awm.log) にあります。
この例では、awm.log ファイルに次の情報が含まれます。
Input TAUENEPR: SOURCE;%;SMPLTEST;%;T;%;1;%;MFUID;%;BANKDEMO;%;COBOL;%;BBANK10P;%;0102 TAUTOUT: TOOL: TAUENEPR TAUTOUT: RC: 0 TAUTOUT: INPARM: SOURCE;%;SMPLTEST;%;T;%;1;%;MFUID;%;BANKDEMO;%;COBOL;%;BBANK10P;%;0102 TAUTOUT: DATE: 18/10/10 03:01 TAUTOUT: OUTPARM: ELM2;%;CICS;%;0101;%;0102;%;FB;%;00080;%;cbl;%;T;%;NL;%;ZOS;%;Y;%; TAUTOUT: ENDPARM: TAUTOUT: UPDATE: ELM;%;SMPLTEST;%;T;%;1;%;TEST;%;MFUID;%;BANKDEMO;%;COBOL;%;BBANK10P;%;CICS;%;TEST;%;SAMPLECCID2;%;0101;%;0102;%;0 101;%;MFUID;%;MFUID;%;00004;%;00000;%;MFUID;%;20180921 01433098;%;MFUID;%;20181009 03540000;%;CICS;%;FB;%;00080;%;cbl;%;T;%;NL; %;ZOS;%;Y;%;MFUID.TAUENTMP.OUTSRCM.COBOL(BBANK10P);%;
関連する出力情報は、TAUTOUT: OUTPARM: エントリの後にあります。コマンドが失敗した場合、ログ ファイルの出力は次のようになります。
REXX Procedure TAUENEPX not found TAUTOUT: TOOL: TAUENEPX TAUTOUT: RC: 99 TAUTOUT: INPARM: SOURCE;%;SMPLTEST;%;T;%;1;%;MFUID;%;BANKDEMO;%;COBOL;%;BBANK10P;%;0102 TAUTOUT: DATE: 18/10/10 03:05 TAUTOUT: OUTMSG: REXX Procedure TAUENEPX not found
一部の AWM ISPF コマンドは、出力データを含むデータ セットを返します。この場合、ローカル ログ ファイルには次のような行が含まれます。
TAUTOUT: OUTPARM: MFUID.TAUCMTMP.VALLIST
MFDAS IMPORT コマンドを使用して、このデータ セットをローカル ファイル システムに取得できます。次に例を示します。
MFDAS IMPORT TEXT "c:\temp\vallist.txt" FROM QSAM 'MFUID.TAUCMTMP.VALLIST'
AWM ISPF コマンドで呼び出している REXX プロシージャが期待どおりに機能しない場合は、REXX トレースを設定して、より詳細な情報を取得すると役立つことがあります。REXX トレースは、REXX プロシージャ TAUZCDBG を呼び出すことによって設定できます。次に例を示します。
MFDAS AWM "/amslog=c:\temp\awm.log" "TAUZCDBG TAUENEPR"
AWM ISPF コマンド TAUENEPR を再度実行すると、REXX プロシージャのトレースがローカル ログ ファイル awm.log に書き込まれます。