LXRPIA22 半角カナ文字入力チェック
サブルーチンID |
機能分類 |
サブルーチン名 |
テーブル名 |
---|---|---|---|
LXRPIA22 |
文字列処理 |
LXRCIA22 |
インタフェース
入力(区分:INPUT-PARM=I,CONSTANT=C) |
||||
---|---|---|---|---|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
03 |
I-STR-KN |
X(200) |
文字列(半角カナ) |
I |
03 |
I-SHR-KBN |
X(1) |
処理区分 |
C |
− |
− |
− |
'1':半角カナ小文字をエラーにしない |
− |
− |
− |
− |
'2':半角カナ小文字をエラーとする |
− |
− |
− |
− |
上記以外は,'1'と見なす |
− |
− |
− |
− |
− |
− |
出力(区分:OUTPUT-PARM=O,RTN-CODE=R) |
||||
---|---|---|---|---|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
03 |
O-RTN-CD |
X(10) |
リターンコード |
R |
− |
− |
− |
SPACE:正常終了 |
− |
− |
− |
− |
LXREA025:半角カナ以外 |
− |
− |
− |
− |
LXREA008:入力データなし |
− |
− |
− |
− |
− |
− |
処理基準
-
入力文字列(半角カナ)中に半角カナ以外の文字が含まれているかを判定する。
例1
I-STR-KN :'サブルーチン' I-SHR-KBN :'1' ↓ O-RTN-CD :SPACE
例2
I-STR-KN :'コード△チェック' I-SHR-KBN :'2' ↓ O-RTN-CD :'LXREA025'
例3
I-STR-KN :SPACE I-SHR-KBN :'1' ↓ O-RTN-CD :'LXREA008'
例4
I-STR-KN :'コボル2' I-SHR-KBN :'1' ↓ O-RTN-CD :'LXREA025'
注意事項
-
入力文字列(半角カナ)の中で半角カナ文字と半角スペースの混在は許される。
-
入力文字列(半角カナ)の中でスペースしか存在しない場合はリターンコードに'LXREA008'を返す。
-
このサブルーチンから(文字列有効桁数算出:LXRPIA09)を呼び出す。
-
半角カナ小文字とは特殊な半角カナ(ャュョッァィゥェォヲ「」、。・)のことを指す。