CBLXMAPERRORサービスルーチンは,XMAP3を使用した書式印刷機能,XMAP3を使用した通信節による画面操作・帳票出力機能で,出力される実行時メッセージのエラー情報(COBOLメッセージ番号,エラーコード)を取得します。
CALL 'CBLXMAPERROR' USING 引数1
表29-6 CBLXMAPERRORサービスルーチンの集団項目
記述形式 | 内容 |
---|---|
01 データ名01. | CALL文のUSINGで指定するエラー情報取得領域の名前を指定します。 |
02 データ名02 PIC S9(9) USAGE COMP. | COBOLメッセージ番号です。 |
02 データ名03 PIC 9(9) USAGE COMP. | エラーコードです。 |
02 FILLER PIC X(528). | 予備。このサービスルーチンを呼び出す前にLOW-VALUE(X'00')を設定しておきます。 |
表29-7 引数1に設定されるエラー情報の説明
エラー情報 | 説明 |
---|---|
COBOLメッセージ番号 | 直前に実行されたXMAP3を使用した書式印刷機能の入出力文,またはXMAP3を使用した通信節による画面操作・帳票出力機能の通信文で出力されたKCCC3401R-SからKCCC3418R-S,またはKCCC5000R-WからKCCC5051R-WまでのSレベル以下のメッセージ番号が設定されます。メッセージについては,マニュアル「COBOL2002 メッセージ」を参照してください。 |
エラーコード | XMAP3が返したエラー詳細コードです。XMAP3のエラー詳細コードについては,XMAP3のマニュアル「画面・帳票サポートシステム XMAP3 開発・実行ガイド」またはマニュアル「XMAP3 Version 5 画面・帳票サポートシステム XMAP3 実行ガイド」のリターンコードの説明を参照してください。 |
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
:
DATA DIVISION.
WORKING-STORAGE SECTION.
:
01 OP-1.
02 ERR-MSGNUMBER PIC S9(9) USAGE COMP.
02 ERR-XMAPERRORCODE PIC 9(9) USAGE COMP.
02 FILLER PIC X(528) VALUE LOW-VALUE.
01 STMT-PROC PIC X(20).
01 戻り値 PIC S9(9) USAGE COMP.
:
COPY MDC1PCO.
:
COMMUNICATION SECTION.
CD PRINT-O FOR OUTPUT WS
MAP NAME IS PRINT-MAP
MAPPING MODE IS PRINT-MAPMODE
STATUS KEY IS PRINT-KEY
DATA ABSENCE CODE IS PRINT-ABSENCE
SYMBOLIC TERMINAL IS PRINT-TERMINAL.
:
PROCEDURE DIVISION.
:
MOVE 'PRT001へMDC1PC6G帳票を送信' TO STMT-PROC. … 2.
MOVE 'MDC1PC6G' TO PRINT-MAP.
MOVE 'PRT001' TO PRINT-TERMINAL.
SEND PRINT-O FROM MDC1PCO WITH EMI. … 3.
IF PRINT-KEY NOT = '00000'
PERFORM エラー処理 … 1.
:
STOP RUN.
:
エラー処理. … 4.
CALL 'CBLXMAPERROR' USING OP-1
MOVE RETURN-CODE TO 戻り値
EVALUATE 戻り値
WHEN 0
DISPLAY STMT-PROC … 5.
*> << エラー情報判定,リカバリ処理 >>
:
WHEN -1
DISPLAY 'CBLXMAPERRORが失敗しました。'
END-EVALUATE.
: