COBOL2002 ユーザーズガイド
CBLXMAPERRORサービスルーチンは,XMAP3を使用した書式印刷機能(32bit版PC(x86) COBOL2002で有効),XMAP3を使用した通信節による画面操作・帳票出力機能で,出力される実行時メッセージのエラー情報(COBOLメッセージ番号,エラーコード)を取得します。
CALL 'CBLXMAPERROR' USING 引数1
表32-9 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')を設定しておきます。 |
表32-10 引数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. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.