9.63 EXCHANGE_ALPHA_VAR

注意： 9.1 組み込み関数の規則     利用オプション

英数字の変数/値を交換リストに入れます。 

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

フィールド名

1

10



2

A

必須

値

1

無制限



戻り値

この組み込み関数は値を戻しません。 

例 

このファンクションを使って、別の名前の別ファンクションに変数を交換することができます。例えば、#CODEDESというフィールドの値を交換して、そのフィールドには#DESCという別の名前を付けることができます。 

     ********** Retrieve code description
     **********
     FETCH      FIELDS(#CODEDES) FROM_FILE(CDMST)
     **********
     ********** Exchange CODEDES as DESC
     **********
     USE        BUILTIN(EXCHANGE_ALPHA_VAR) WITH_ARGS('DESC' #CODEDES)
     CALL       PROCESS(PPPPPPPP) FUNCTION(FFFFFFF)

この組み込み関数はEXCHANGEコマンドの代わりに使用することもできます。例えば単純に値を変換する場合などです。 

     EXCHANGE   FIELDS(#VALUE)
     CALL       PROCESS(PPPPPPPP) FUNCTION(FFFFFFF)

次のコードは機能的に同じものです。 

     USE        BUILTIN(EXCHANGE_ALPHA_VAR) WITH_ARGS('VALUE' #VALUE)
     CALL       PROCESS(PPPPPPPP) FUNCTION(FFFFFFF)