9.148 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 >
  • No labels