COBOLでのチェックデジット算出方法とは？

2007/08/06 10:28

このQ&Aのポイント

COBOL初心者のためのチェックデジット算出方法を紹介します。サブルーチンにAコード、Bコード、Cコードを渡してチェックデジットを受け取ることができます。さらに、印刷領域からチェックデジットを抜いたデータを渡すことも可能です。また、Aコード、Bコード、Cコードは数字に変換する必要があります。
COBOL初心者のためのチェックデジット算出方法について説明します。チェックデジットを受け取るためには、Aコード、Bコード、Cコードをサブルーチンに渡す必要があります。さらに、印刷領域からチェックデジットを抜いたデータを渡すことも可能です。ただし、Aコード、Bコード、Cコードは数字に変換する必要があります。
COBOL初心者向けに、チェックデジット算出の方法を紹介します。Aコード、Bコード、Cコードをサブルーチンに渡し、チェックデジットを受け取ることができます。また、印刷領域からチェックデジットを抜いたデータを渡すことも可能です。なお、Aコード、Bコード、Cコードは数字に変換する必要があります。

trmr
お礼率100% (5/5)

その他（プログラミング・開発）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

stsu
ベストアンサー率62% (83/132)

2007/08/06 11:54 回答No.1

ごく普通にできます。サブルーチンをどのように考えられているか不明ですので、２通りの考え方を提示しておきます。 1.外部サブプログラムの場合　原則として引数のポインタを渡すだけですので、　01 印刷領域. 　02　引数1. 　03 Aコード PIC X(03). 　03 Bコード PIC X(04). 　03 Cコード PIC X(02). 　02　引数2. 　03 チェックデジット PIC X(01). 　CALL　A　USING　引数１　引数２　注）結果的にチェックデジット部分も渡してますが、外部サブ　　　プログラム中で引数１が数字以外のものだった場合にエラー　　　ステータスを返却する領域（数字以外を返却するとエラー）　　　兼、チェックデジット計算値（数字の場合正しく計算できた）　　　にして見ました。 2.内部手続きの場合　01 印刷領域. 　03　集合コード. 　04 Aコード PIC X(03). 　04 Bコード PIC X(04). 　04 Cコード PIC X(02). 　03　集合コード数値　REDEFINES　集合コード. 　04　数字コード　PIC　9(09). 　03 チェックデジット PIC X(01). 　AコードからCコードまでを数字領域として再定義して内部手続き　で使用すればよいです。　

質問者