MLOG機能について
search cancel

MLOG機能について

book

Article ID: 255713

calendar_today

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一覧表