COBOL2002 ユーザーズガイド
EURを使用した通信節による帳票出力機能の使用時に,出力された実行時メッセージのエラー情報(COBOLメッセージ番号,エラーコード)を取得します。
CALL 'CBLEURERROR' USING 引数1
表32-11 CBLEURERRORサービスルーチンの集団項目
記述形式 | 内容 |
---|---|
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-12 引数1に設定されるエラー情報の説明
エラー情報 | 説明 |
---|---|
COBOLメッセージ番号 | 直前に実行されたEURを使用した通信節による帳票出力機能の通信文で出力されたKCCC5104R-SからKCCC5115R-WまでのSレベル以下のメッセージ番号が設定されます。メッセージについては,マニュアル「COBOL2002 メッセージ」を参照してください。 |
エラーコード | COBOL EUR 連携ライブラリが返したリターンコード詳細が設定されます。リターンコード詳細については,マニュアル「COBOL EUR 連携ガイド」のエラーコードの記述を参照してください。 |
IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE2. : DATA DIVISION. WORKING-STORAGE SECTION. : 01 OP-1. 02 ERR-MSGNUMBER PIC S9(9) USAGE COMP. 02 ERR-EURERRORCODE 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. … 6. : : エラー処理. … 4. CALL 'CBLEURERROR' USING OP-1 MOVE RETURN-CODE TO 戻り値 EVALUATE 戻り値 WHEN 0 DISPLAY STMT-PROC … 5. *> << エラー情報判定,リカバリ処理 >> : WHEN -1 DISPLAY 'CBLEURERRORが失敗しました。' END-EVALUATE. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.