MLOG機能について
Article ID: 255713
Updated On:
Products
InterTest - Batch
InterTest - CICS
Issue/Introduction
InterTest 10.0以降、MLOGコマンドが追加されましたが、当コマンドではどのようなことができますか？
Environment
Intertest for CICS 10.0
Intertest for CICS 11.0
Intertest Batch 10.0
Intertest Batch 11.0
Resolution
MLOG機能は、InterTest for CICS、Intertest Batch 10.0にて追加された、各セッションで設定のブレークポイントを記録できる機能です。
ここではInterTest for CICSのMLOG機能の使用方法を説明します。
内容：MLOG機能にてブレークポイント設定状況を記録し一旦モニタリングを終了。後日、同様のブレークポイントにてモニタリングを再開する。
手順：
1) Source Listingにてモニタリング対象のソースを表示
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===>
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
-------------------------------------------------------------------------------
000001 ID DIVISION.
000002 PROGRAM-ID. COBDEMO.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
_ 000005 WORKING-STORAGE SECTION.
_ 000006 77 S999-FIELD1 PIC S9(3).
2) COMMAND ===> にMLOGセッション開始コマンド「MLOG START,セッション名」を発行
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===> MLOG START,MLOGTEST
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
-------------------------------------------------------------------------------
000001 ID DIVISION.
000002 PROGRAM-ID. COBDEMO.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
_ 000005 WORKING-STORAGE SECTION.
_ 000006 77 S999-FIELD1 PIC S9(3).
＊＊MLOGセッション開始コマンド「MLOG START,セッション名」＊＊
当例ではセッション名として「MLOGTEST」を指定。
当コマンドではCNTLコマンド実行パスワード入力が要求されますので、CNTLコマンド実行パスワードを入力します。
CNTLコマンド実行パスワードについては以下をご参照ください。
CORE、CNTLコマンドの実行パスワード変更
3) 右上に「REC」が点灯し、MLOG機能が有効となる
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY REC
COMMAND ===>
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
-------------------------------------------------------------------------------
000001 ID DIVISION.
000002 PROGRAM-ID. COBDEMO.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
_ 000005 WORKING-STORAGE SECTION.
_ 000006 77 S999-FIELD1 PIC S9(3).
これ以降に設定のブレークポイントはMLOG機能により記録されます。
4) ブレークポイントを設定しモニタリングを開始
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY REC
COMMAND ===>
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
U 000328 MOVE EIBTRNID TO TSQ-TRANID.
U 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
_ 000331 MOVE LOW-VALUES TO DMAP04AI
_ 000332 DMAPBEGI
_ 000333 DMAPASRI
_ 000334 DMAPSUMI
_ 000335 DMAPENDI
_ 000336 DMAP00I
_ 000337 DMAP01I
_ 000338 DMAP02I
_ 000339 DMAP03I
_ 000340 DMAP04I
_ 000341 DMAP05I
_ 000342 DMAP06I
_ 000343 DMAP07I
_ 000344 DMAP08I
_ 000345 DMAP09I
_ 000346 DERRORI.
_ 000347 EXEC CICS HANDLE CONDITION
_ 000348 QIDERR(WRITE-TSQ)
_ 000349 ERROR(GEN-ERR)
_ 000350 END-EXEC.
_ 000351 IF EIBAID = DFHCLEAR
_ 000352 GO TO SEND-END-MSG.
000353** THIS INITIALIZES TASKNUM TO INVALID DATA FORCING THE OC7 **
000354** SINCE COBOL2 RETRIEVES THE SAME STORAGE IT USED PREVIOUSLY **
U 000355 MOVE LOW-VALUES TO TASKNUM-CHAR.
_ 000356 EXEC CICS READQ TS
_ 000357 QUEUE(TSQ-NAME)
5) 現在のブレークポイント状況の記録を終了
＊＊MLOGセッション終了コマンド「MLOG STOP,セッション名」＊＊
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY REC
COMMAND ===> MLOG STOP,MLOGTEST
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
U 000328 MOVE EIBTRNID TO TSQ-TRANID.
U 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
当コマンドではCNTLコマンド実行パスワード入力が要求されますので、CNTLコマンド実行パスワードを入力します。
6) モニタリングを一旦終了
CNTL=OFF,PROG=COBDEMO
7) モニタリングを再開
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===>
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
_ 000328 MOVE EIBTRNID TO TSQ-TRANID.
_ 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
8) 前回のモニタリングで設定したブレークポイントをMLOG LOADコマンドで設定
＊＊MLOGセッションロードコマンド「MLOG LOAD,セッション名」＊＊
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===> MLOG LOAD,MLOGTEST
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
_ 000328 MOVE EIBTRNID TO TSQ-TRANID.
_ 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
_ 000331 MOVE LOW-VALUES TO DMAP04AI
_ 000332 DMAPBEGI
_ 000333 DMAPASRI
_ 000334 DMAPSUMI
_ 000335 DMAPENDI
_ 000336 DMAP00I
当コマンドではCNTLコマンド実行パスワード入力が要求されますので、CNTLコマンド実行パスワードを入力します。
9) 前回のモニタリングで設定したブレークポイントが設定される
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===>
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
U 000328 MOVE EIBTRNID TO TSQ-TRANID.
U 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
_ 000331 MOVE LOW-VALUES TO DMAP04AI
_ 000332 DMAPBEGI
_ 000333 DMAPASRI
_ 000334 DMAPSUMI
_ 000335 DMAPENDI
_ 000336 DMAP00I
_ 000337 DMAP01I
_ 000338 DMAP02I
_ 000339 DMAP03I
_ 000340 DMAP04I
_ 000341 DMAP05I
_ 000342 DMAP06I
_ 000343 DMAP07I
_ 000344 DMAP08I
_ 000345 DMAP09I
_ 000346 DERRORI.
_ 000347 EXEC CICS HANDLE CONDITION
_ 000348 QIDERR(WRITE-TSQ)
_ 000349 ERROR(GEN-ERR)
_ 000350 END-EXEC.
_ 000351 IF EIBAID = DFHCLEAR
_ 000352 GO TO SEND-END-MSG.
000353** THIS INITIALIZES TASKNUM TO INVALID DATA FORCING THE OC7 **
000354** SINCE COBOL2 RETRIEVES THE SAME STORAGE IT USED PREVIOUSLY **
U 000355 MOVE LOW-VALUES TO TASKNUM-CHAR.
_ 000356 EXEC CICS READQ TS
_ 000357 QUEUE(TSQ-NAME)
当機能にて前回設定したブレークポイントを再設定した状態でモニタリングを再開できます。
10) 不要となったMLOGセッションを削除
モニタリングが完了し不要となったMLOGセッションは以下コマンドで削除します。
＊＊MLOGセッション削除コマンド「MLOG DELETE,セッション名」＊＊
なお、「MLOG」コマンドから表示される画面からも記録済のMLOGセッションの表示/ロード/削除/記録完了/キャンセルが処理できます。
CA InterTest for CICS - PROTSYM FILE SOURCE LISTING DISPLAY
COMMAND ===> MLOG
Program= COBDEMO Option # Stmt # Margin= 01
Search=
OPTS 1 Proc div 2 Work-stor 3 Link sect 4 D-map 5 Clst/Pmap More: +
6 Data xref 7 Proc xref 8 Err msgs 9 Srch fwd 10 Srch bwd
PFKS 1 Help 2 SDF 3 End 4 Profile 5 Monitor 6 Menu
7 Backward 8 Forward 9 Next Wnd 10 11 12 Status
---------+---------------------------------------------------------------------
_ 000327 PROCEDURE DIVISION.
U 000328 MOVE EIBTRNID TO TSQ-TRANID.
U 000329 MOVE EIBTRMID TO TSQ-TERMID.
000330*** THIS CODE INITIALIZES THE MAPS BECAUSE COBOL2 DOESN'T ***
＊＊MLOGセッション画面表示コマンド「MLOG」＊＊
CA InterTest for CICS SAVED DEBUG SESSIONS CICSA
COMMAND ===>
Type B to browse session L to load session D to delete session
S to stop session C to cancel session
* * * * * *
Session Userid Applid Date Time Description
_ MLOGTEST CICSUSER CICSA 2022041 173737
_ TEST1 CICSUSER CICSA 2022035 141059
Additional Information
Old Japanese Knowledge document ID: JTEC003140
CA InterTest/CA SymDumpのその他FAQについては、以下のリンクからご確認ください。
CA InterTest/SymDump FAQ一覧表
Feedback
Yes
No
Powered by
