Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

貸方記号、借方記号、オーバーパンチ、およびゼロ置き換え文字

同じフィールド内で、ピクチャー文字 CR、DB、T、I、および R をほかの符号文字と一緒に使用することはできません。

貸方と借方

CR (貸方) と DB (借方) は、実数の数字データ項目の符号を指定します。

CR
データ値が <0 の場合は、対応する位置に CR という文字を入れることを指定します。 それ以外の場合は、その位置に 2 つのブランクが入ります。 CR を記入できる位置は、フィールドの全数字桁の右側だけです。
DB
データ値が <0 の場合は、 対応する位置に DB という文字を入れることを指定します。 それ以外の場合は、その位置に 2 つのブランクが入ります。 DB を記入できる位置は、フィールドの全数字桁の右側だけです。

オーバーパンチ

任意のピクチャー文字 T、I、または R (オーバーパンチ文字として 知られる) は、 1 つの文字が対応する数字およびデータ項目の符号を表すことを 指定します。 浮動小数点指定は、2 つのフィールド (小数部を記述するフィールドと 指数を記述するフィールド) からなります。 オーバーパンチ文字は、フィールド内の任意の数字桁について 指定することができます。

T、I、および R ピクチャー文字は、入力文字が解釈される方法を 指定します。表 40 に示します。

表 40. T、I、および R ピクチャー文字の解釈
T または I
T または R
数字
+ 付きの数字
- 付きの数字
文字
文字
{
A
B
C
D
E
F
G
H
I
}
J
K
L
M
N
O
P
Q
R
0
1
2
3
4
5
6
7
8
9

T、I、および R は以下の値を指定します。

T
入力時には、T は、 文字 { から | と数字 0 から 9 が正の値を表し、 文字 } から R が負の値を表すことを指定します。

出力時には、T は、入力データが正の値を表す場合には、対応する位置に 文字 { から | の 1 つを含み、 入力データが負の値を表す場合には文字 } から R の 1 つを含むことを指定します。 T は '9' ピクチャー指定文字が生じるすべての場所に記入することができます。 以下に例を示します。

  dcl Credit picture 'ZZV9T';

文字表示は 4 文字です。+21.05 は '210E' として保持されます。 -0.07 は 'bb0P' として保持されます。

I
入力時には、I は、文字 { から | と数字 0 から 9 が 正の値を表すことを指定します。

出力時には、I は、入力データが正の値を表す場合には、対応する位置に 文字 { から | の 1 つを含み、入力データが負の値を表す場合には 数字 0 から 9 の 1 つを含むことを指定します。

R
入力時には、R は、文字 } から R が負の値を表し、 数字 0 から 9 が正の値を表すことを指定します。

出力時には、R は、入力データが負の値を表す場合には、対応する位置に 文字 } から R の 1 つを含み、入力データが正の値を表す場合には 数字 0 から 9 の 1 つを含むことを指定します。以下に、例を示します。

  dcl X fixed decimal(3);
  get edit (x) (P'R99');

上記の指定は、入力ストリームの次の 3 つの位置内で、 '132' を見付けると X を 132 に設定し、 'J32' を見付けると X を -132 に設定します。

ゼロ置き換え文字

Y
指定された数字桁にあるゼロを、無条件にブランク文字で置き換えることを 指定します。

表 41 に、貸方記号、借方記号、オーバーパンチ、および ゼロ置き換え文字の例を示します。

表 41. 貸方記号、借方記号、オーバーパンチ、およびゼロ置き換え文字の例
 
ソース属性
ソース・データ
(定数フォーマット)
 
ピクチャー指定
 
文字値
FIXED(3)
FIXED(4,2)
FIXED(4,2)
-123
12.34
-12.34
$Z.99CR
$ZZV.99CR
$ZZV.99DB
$1.23CR
$12.34bb
$12.34DB
FIXED(4,2)
FIXED(4)
FIXED(4)
12.34
1021
-1021
$ZZV.99DB
999I
Z99R
$12.34bb
102A
102J
FIXED(4)
FIXED(5)
FIXED(5)
1021
00100
10203
99T9
YYYYY
9Y9Y9
10B1
bb1bb
1b2b3
FIXED(5,2)
000.04
YYYVY9
bbbb4

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)