LXRPIF10 郵便番号チェック／入力編集（5桁および7桁）
|
サブルーチンID |
機能分類 |
サブルーチン名 |
テーブル名 |
|---|---|---|---|
|
LXRPIF10 |
項目処理 |
LXRCIF10 |
インタフェース
|
入力（区分：INPUT-PARM=I，CONSTANT=C） |
||||
|---|---|---|---|---|
|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
|
03 |
I-ZIPCD |
X(8) |
郵便番号 |
I |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
− |
− |
− |
− |
− |
|
出力（区分：OUTPUT-PARM=O，RTN-CODE=R） |
||||
|---|---|---|---|---|
|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
|
03 |
O-ZIPCD |
X(7) |
郵便番号 |
O |
|
03 |
O-RTN-CD |
X(10) |
リターンコード |
R |
|
− |
− |
− |
SPACE：正常 |
− |
|
− |
− |
− |
LXREF004：入力データの形式が不当 |
− |
|
− |
− |
− |
− |
− |
処理基準
-
（郵便番号チェック／入力編集（7桁）：LXRPIF12）を呼び出して，郵便番号の7桁チェックを行う。リターンコードがスペースなら，出力をO-ZIPCDに設定する。
-
リターンコードがスペースでない場合，次の処理を行う。
2.1 （郵便番号チェック／入力編集：LXRPIF07）を呼び出して，リターンコードがスペースなら，出
力をO-ZIPCDに設定する。
2.2 2.1の結果リターンコードがスペースでないとき，エラーコード'LXREF004'をリターンコード
として返す。
例1
I-ZIPCD ：'123-4567' ↓ O-ZIPCD ：'1234567' O-RTN-CD ：SPACE
例2
I-ZIPCD ：'123 4567' ↓ O-ZIPCD ：'1234567' O-RTN-CD ：SPACE
例3
I-ZIPCD ：'102-99' ↓ O-ZIPCD ：'10299' O-RTN-CD ：SPACE
注意事項
-
このサブルーチンから（郵便番号チェック／入力編集（7桁）：LXRPIF12），（郵便番号チェック／入力編集：LXRPIF07）を呼び出す。