8.150 NUMERIC_STRING

数字を文字列に変換します。

 

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

N

必須

変換される数字

1

29

0

9

2

A

任意

数字の小数部から、後続のゼロを削除する
Y = 切り捨て
デフォルト = 切り捨て

1

1

 

 

 

戻り値

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

文字列としての数字

1

31

 

 

 

OPENコマンドのQRYSLTで使用するため、数字を文字列に変換します。

DEFINE     FIELD(#SALARY)  TYPE(*DEC) LENGTH(20) DECIMALS(0)
DEFINE     FIELD(#SALCHR)  TYPE(*CHAR) LENGTH(20)
DEFINE     FIELD(#QRYSLT)  TYPE(*CHAR) LENGTH(256)
**********
REQUEST    FIELDS(#SALARY)
USE        BUILTIN(NUMERIC_STRING) WITH_ARGS(#SALARY) 
           TO_GET(#SALCHR)
CHANGE     FIELD(#QRYSLT) TO('''SALARY *GT''')
USE        BUILTIN(BCONCAT) WITH_ARGS(#QRYSLT #SALCHR) 
           TO_GET(#QRYSLT)
OPEN       FILE(PAYROLL) USE_OPTION(*OPNQRYF) QRYSLT(#QRYSLT)

      < some processing >