平方根を返却します。
サポートされているデータ型に応じて、以下のルーチンが提供されます。
CEESSSQT 32 ビットの単精度浮動小数点数
CEESDSQT 64 ビットの倍精度浮動小数点数
指定方法
CALL "CEESxSQT" USING BY REFERENCE ARG1RS, BY REFERENCE FBCODE, BY REFERENCE RESLTRS.
01 ARG1RS COMP-1. 01 FBCODE. 02 Condition-Token-Value. COPY CEEIGZCT. 03 Case-1-Condition-ID. 04 Severity PIC S9(4) BINARY. 04 Msg-No PIC S9(4) BINARY. 03 Case-2-Condition-ID REDEFINES Case-1-Condition-ID. 04 Class-Code PIC S9(4) BINARY. 04 Cause-Code PIC S9(4) BINARY. 03 Case-Sev-Ctl PIC X. 03 Facility-ID PIC XXX. 02 I-S-Info PIC S9(9) BINARY. 01 RESLTRS COMP-1.
平方根ルーチンへの入力。
本サブルーチンの結果を示すフィードバック・コードです。
出力されるフィードバック・コードは以下のとおりです。
コード | 重大度 | メッセージ番号 | 意味 |
---|---|---|---|
CEE000 | 0 | 0 | 成功 |
CEE1UQ | 2 | 2010 | 引数が制限値より小さい。 |
平方根を格納する領域を指定します。