DMPCLPGM で今すぐデバッグ

DMPCLPGM (=Dump CL Program) というコマンドをご存知だろうか?
CLPの実行中の変数値をすべてダンプ・リストとして
印刷してくれる。
使い方は簡単でデバッグしたいCLPのデバッグしたい位置に

DMPCLPGM

と入れてコンパイルするだけである。
後はそのCLPを実行するだけでその時点でのダンプ・リストとして
変数の値が印刷出力される。

DMPCLPGMを入れたCLPソースの例

  :
  :
0221.00              /************************************/                         
0222.00              /* PNLGRP の HTML 表示              */                         
0223.00              /************************************/                         
0224.00              CHGVAR     VAR(&CGI) VALUE(&CGISTR *TCAT &PANEL *TCAT +        
0225.00                           '%26SRCLIB=' *CAT &SRCLIB *TCAT +                 
0226.00                           '%26PNLGRP=' *CAT &PNLGRP *TCAT +                 
0227.00                           '%26HNDCHR=' *CAT &HNDCHR)                        
0228.00              CHGVAR     VAR(&HTML) VALUE('HTTP://' *TCAT &IPADDR +          
0229.00                           *TCAT &CGI)                                       
0230.00              DMPCLPGM                                                       
0231.00              CHGVAR     VAR(&CMD) VALUE('START ' *CAT &HTML)                
0232.00              STRPCO                                                         
0233.00              MONMSG     IWS4010                                             
0234.00              STRPCCMD   PCCMD(&CMD) PAUSE(*NO)                              
0235.00              RETURN                                                         
0236.00              ENDDO      /* HTML */                                          
0237.00             
  :
  :

デバッグ・モードもパラメータも何も要らない。
ダンプ・リストは WRKOUTQ QEZDEBUG に保管されている。
お手軽なCLPのデバッグとして非常に便利である。