LXRPIA21 後方スペース機能キャラクタ置換
サブルーチンID |
機能分類 |
サブルーチン名 |
テーブル名 |
---|---|---|---|
LXRPIA21 |
文字列処理 |
LXRCIA21 |
インタフェース
入力(区分:INPUT-PARM=I,CONSTANT=C) |
||||
---|---|---|---|---|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
03 |
I-STR |
X(200) |
入力文字列 |
I |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
出力(区分:OUTPUT-PARM=O,RTN-CODE=R) |
||||
---|---|---|---|---|
レベル |
項目名 |
属性 |
説明および設定値 |
区分 |
03 |
O-STR |
X(200) |
出力文字列 |
O |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
− |
処理基準
PC・UNIX版
-
置換処理は行わず,入力文字列を出力文字列に転記する。
VOS3版
-
入力文字列中に空白(X'A1A1',X'40')よりも後方にある機能キャラクタ(X'0A41')を前方に置き換える。処理方法を次に示す。
1.1 入力文字列中のX'400A41',X'A1A10A41'を検索し,無くなるまで次の処理を繰り返す。
1.1.1 X'400A41'をX'0A4140'に置き換える。
1.1.2 X'A1A10A41'をX'0A414040'に置き換える。
例1
I-STR :X'D8D8D84040400A41' ↓ O-STR :X'D8D8D80A41404040'
例2
I-STR :X'0A42A3D8A3D8A1A10A41' ↓ O-STR :X'0A42A3D8A3D80A414040'
注意事項
-
置換対象が複数存在していてもすべて置換する。