LXRPIF12 郵便番号チェック／入力編集（7桁）
|
サブルーチンID |
機能分類 |
サブルーチン名 |
テーブル名 |
|---|---|---|---|
|
LXRPIF12 |
項目処理 |
LXRCIF12 |
インタフェース
|
入力（区分：INPUT-PARM=I，CONSTANT=C） |
||||
|---|---|---|---|---|
|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
|
03 |
I-ZIPCD |
X(8) |
郵便番号（7桁） |
I |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
出力（区分：OUTPUT-PARM=O，RTN-CODE=R） |
||||
|---|---|---|---|---|
|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
|
03 |
O-ZIPCD |
X(7) |
郵便番号（7桁） |
O |
|
03 |
O-RTN-CD |
X(10) |
リターンコード |
R |
|
− |
− |
− |
SPACE：正常 |
− |
|
− |
− |
− |
LXREF010：入力データの形式不正（郵便番号7桁） |
− |
|
− |
− |
− |
− |
− |
処理基準
-
（文字列左詰め：LXRPIA06）を呼び出して，郵便番号を左詰めする。
-
郵便番号のチェックを行う。
2.1 入力が次の3とおりのとき，次の処理を行う。
［数字7桁 ＋ ' ' ］
［数字3桁 ＋ '-' ＋ 数字4桁］
［数字3桁 ＋ ' ' ＋ 数字4桁］
2.1.1 I-ZIPCDが数字の間に'-'または空白を含む場合は，それを取り除き，出力する。
2.2 入力がどれにもあてはまらないとき，エラーコード'LXREF010'をリターンコードとして返す。
例1
I-ZIPCD ：'123-4567' ↓ O-ZIPCD ：'1234567' O-RTN-CD ：SPACE
例2
I-ZIPCD ：'123 4567' ↓ O-ZIPCD ：'1234567' O-RTN-CD ：SPACE
注意事項
-
このサブルーチンから（文字列左詰め：LXRPIA06），（指定文字列削除：LXRPIA14），（空白削除：LXRPIA15）を呼び出す。