ＣＯＢＯＬ ＤＥＢＵＧ編
前ページ 目 次


このページはＣＯＢＯＬを知っている人あるいは、ＲＰＧプログラマーを対象として、
ＡＳ／４００でのＣＯＢＯＬを紹介しようとするものです。
ＣＯＢＯＬを初歩から解説するものではありません。
ここで紹介するＣＯＢＯＬはＩＬＥ−ＣＯＢＯＬです。


ＣＯＢＯＬのデバッグ

ＣＯＢＯＬのデバッグはＩＬＥデバッグ機能を使用してデバッグができます。この機能では、
ステップ実行、停止点を決めてのトラップ実行、監視変数を決めて、変数監視などが行えます。

デバッグの手順は次のようにします。

１．コンパイルでデバッグビューパラメータに＊ＬＩＳＴ（または＊ＳＯＵＲＣＥ）を指定
CRTBNDCBL PGM(QTEMP/RM420) SRCFILE(QTEMP/QCBLSRC) ＋
DBGVIEW(*LIST)
ソースを見ながらステップ実行などのデバッグ操作ができるよう、ＤＢＧＶＩＥＷ
パラメータに、＊ＬＩＳＴ（または＊ＳＯＵＲＣＥ）をつけてコンパイルします。


２．デバッグセッションの開始
STRDBG PGM(QTEMP/RM420) UPDPROD(*YES)
ＳＴＲＤＢＧコマンドでデバッグセッションを開始します。
ソースリストが表示されます。
                           モジュール・ソースの表示                            
                                                                               
 PROGRAM:   LM420B         LIBRARY:   QTEMP          MODULE:   LM420B          
      1    STMT PL SEQ NO -A 1 B..+....2....+....3....+....4....+....5....+....
      2             000100 PROCESS  APOST                                      
      3       1     000200 IDENTIFICATION DIVISION.                            
      4       2     000300 PROGRAM-ID.   LM420B.                               
      5             000400*PROCESS GRAPHIC CVTPICGGRAPHIC APOST                
      6             000500* NAME :       担当者別得意先一覧                    
      7       3     000600 AUTHOR.                     KAJIROU.                
      8       4     000700 ENVIRONMENT                 DIVISION.               
      9       5     000800 CONFIGURATION               SECTION.                
     10       6     000900   SOURCE-COMPUTER.          HAL-5000.               
     11       7     001000   OBJECT-COMPUTER.          HAL-5000.               
     12       8     001100 INPUT-OUTPUT                SECTION.                
     13       9     001200   FILE-CONTROL.                                     
     14             001300* 印刷ファイル                       ↓外部記述のと  
     15      10     001400     SELECT  FILE1  ASSIGN          FORMATFILE-LM420P
                                                                       続く ...
 デバッグ  ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
                                                                               
 F3= 終了 ﾌﾟﾛｸﾞﾗﾑ   F6= 停止点の追加／消去   F10=ｽﾃｯﾌﾟ        F11= 変数の表示  
 F12= 再開          F17= ウォッチ変数   F18= ウォッチの処理   F24=ｷｰ の続き
３．停止点などのセット
デバッグ停止点や、監視変数を設定します。
Ｆ６ 停止点の追加／消去。
Ｆ１７ 監視変数。該当変数に値が入れられたとき、停止します。
４．実行
Ｆ３または，Ｆ１０，Ｆ１２，Ｆ２１キーを押す。
ついで、ＣＬのＣＡＬＬ命令で実行
ＣＡＬＬ ＲＭ４２０
注：停止点のセットなどをしない場合はＦ１０（ステップ実行）を押す。
５．デバッグを行ないます。
ステップ実行はＦ１０キー、ｎｎｎｎステップの連続実行は，ＳＴＥＰ ｎｎｎｎです。
変数を見る場合は、カーソルをあててＦ１１キーを押すか、または、
ＥＶＡＬ 変数名
のコマンドを入力します。
ＥＶＡＬ 変数名 ＝ 値
とすると、変数名に値のセットが行われます。
６．プログラムの終了
Ｆ３で終了。（プログラムの打ち切りです。）
注意：Ｆ３で終了すると、プログラムでファイルがＯＰＥＮされている場合は、
ＯＰＥＮのまま終了します。
次のＯＰＥＮでエラー（ＣＯＢＯＬではファイル状況４１、二重ＯＰＥＮ）に
なります。
ＯＰＥＮされている状態を強制的に解消するには、ＲＣＬＡＣＴＧＲＰコマンドで
解消できます。

    RCLACTGRP ACTGRP(*ELIGIBLE)    
    1 活動化グループが削除された。


おまけ


実行時のエラーコードとその意味です。
コード 意味
２２ キーが重複する。
２３ 該当レコードなし。
３５ ファイルが存在していない。
４１ 二重ＯＰＥＮ。
４６ 前のＳＴＡＲＴまたは、ＲＥＡＤが正常に終わっていないのに次のＲＥＡＤ。
９５ 重複キーありのファイルなのにＳＥＬＥＣＴにＷＩＴＨ ＤＵＰＬＩＣＡＴＥＳがない。
９Ｎ 画面とのやりとりで、ハードウエア入出力エラー
（入出力ストリームが正常でない）




前ページ 目次



（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２００８−２０１１